excel超级处理器怎么增加,处理器,增加

1.Excel内怎么批量添加超级链接

这么大的数据量，使用VBA无疑是惟一的快速高效的方法了。

例如，可以在下面两个过程的基础上进行修改： Sub Hyperlinks1() i = 2 Do While Range("A" & i).Cells.Text <> "" Range("A" & i).Select Worksheets("sheet1").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & range("B" & i) & "'!A1" i = i + 1 Loop End Sub Private Sub Hyperlinks2() Dim CNN, RS1 Dim strSQL1$, strFind$, strHyperlink$, strPath$ Dim myRange As Range, TF As Boolean, i As Integer, Exist As Boolean Dim Lc As Integer, Count As Integer Set CNN = CreateObject("Adodb.Connection") Set RS1 = CreateObject("Adodb.Recordset") strPath = ActiveDocument.Path & "\TOC.mdb" CNN.Provider = "Microsoft.Jet.OLEDB.4.0" CNN.Open "Data Source =" & strPath & ";Jet OLEDB:Database Password=" & "" strSQL1 = "select * from TOC" RS1.Open strSQL1, CNN, 1, 3 For i = 1 To RS1.RecordCount Set myRange = ActiveDocument.Content strFind = RS1.Fields("TLFno") strHyperlink = RS1.Fields("LinkAddress") Count = 0 myRange.Find.ClearFormatting Do While myRange.Find.Execute(findtext:=strFind, Wrap:=wdFindStop, Forward:=True) Count = Count + 1 ActiveDocument.Hyperlinks.Add Anchor:=myRange, Address:=strHyperlink, _ SubAddress:="", ScreenTip:="", TextToDisplay:=strFind myRange.SetRange Start:=myRange.End + Len(strFind) + 1, End:=ActiveDocument.Content.End Loop MsgBox strFind & ":" & CStr(Count) RS1.movenext Next RS1.Close End Sub 还有一些细节问题，你的所有PDF文件都在一个文件夹里面存放着吗？如果不是，请告知存放目录的详情和规律性。