为文件名添加超级链接

EXCEL渣渣

自己根据网上材料做了个重命名的excel，现在想在文件名列下的文件添加超级链接。
希望给为老师帮我在sub 获取目录（）的代码里添加超级链接的代码。
谢谢

蓝桥玄霜

1.             myFol = [A1] & "" & Cells(i, 4) & Cells(i, 5) & Cells(i, 6) & Cells(i, 7) & Cells(i, 2)
   
2.             Name [A1] & "" & Cells(i, 1) & Cells(i, 2) As myFol
   
3.             Cells(i, 3).Select
   
4.             ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=myFol, _
   
5.         TextToDisplay:=Cells(i, 3).Value
   

复制代码

EXCEL渣渣

老师您好。请问
假设 f:文件所在文件夹完整地址
        s:文件名称
        r=range
那么
       Activesheet .hyperlinks add.r,f&”\”s
连接不到目标文件

EXCEL渣渣

Activesheet .hyperlinks add.r,f这样只能打开文件所在文件夹。

lsdongjh

1. Sub 获取目录()
   
2.     Dim fs, f, f1, s, sf
   
3.     Dim r As Range
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     Set f = fs.GetFolder([A1])
   
6.     Set sf = f.Files
   
7.     [A4:A65536] = ""
   
8.     Range("A4:B100").ClearContents
   
9.     For Each f1 In sf
   
10.         s = f1.Path '获取全路径名称
    
11.         Set r = [A65536].End(xlUp).Offset(1)
    
12.         r = fs.GetBaseName(s) '基本文件名
    
13.         r.Offset(0, 1) = fs.GetExtensionName(s)  '文件后缀
    
14.         ActiveSheet.Hyperlinks.Add Anchor:=r, Address:=s, TextToDisplay:=r.Value
    
15.     Next
    
16.     MsgBox "刷新成功!"
    
17.    
    
18. End Sub

复制代码

EXCEL渣渣

lsdongjh 发表于 2019-10-20 13:06

谢谢你了，问题解决。

EXCEL渣渣

我发现了新的问题，就是添加了超级链接后，我的其他功能用不了了。

EXCEL渣渣

我发现了新的问题，就是添加了超级链接后，我的其他功能用不了了。