excel高手来指点连接问题

来源：百度知道 编辑：UC知道 时间：2024/06/12 20:56:57
我想批量处理一些连接

把一个文件夹内的pdf文件,按他们的文件名,连接到excel的一列里面

有没有不需要一个一个处理的连接办法.

高手快出来

否则我要被累死了

试试这个宏，它可以在A列返回目录（例子是C盘根目录下）里面所有的PDF文件的超链接格式，但是需要编辑一次超链接才能生效打开文件，问题还没找到，明儿继续。

Sub getfile()
'Dim myfile As String
Dim i As Integer: i = 1
myfile = Dir("C:\*.pdf")
Do While myfile <> "" ' 开始循环。
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="C:/" & myfile, TextToDisplay:=myfile
i = i + 1
myfile = Dir ' 查找下一个文件。
Loop
End Sub