[已解决]自动增加超链接

wsjiangshi

求助：如何才能添加更多的超链接。十几个手动、上千个就麻烦了。


附件.zip (48.68 KB, 下载次数: 11)

2017-8-29 16:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-29 16:52

1. Sub tt()
   
2.     Dim Mypath$, myname$, wk As Workbook
   
3.     Mypath = ThisWorkbook.Path & ""
   
4.     myname = Dir(Mypath & "*.xlsx")
   
5.     i = 1
   
6.     Do While myname <> ""
   
7.         If InStr(myname, "超链接") = 0 Then
   
8.         i = i + 1
   
9.             ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Mypath & myname, _
   
10.                 SubAddress:="sheet1!A1", TextToDisplay:=myname
    
11.         End If
    
12.         myname = Dir
    
13.     Loop
    
14. End Sub

复制代码

跳转到最佳答案楼层

砂海

名称有规律的话 , 可以用HYPERLINK() 函数

苏子龙

1. Sub tt()
   
2.     Dim Mypath$, myname$, wk As Workbook
   
3.     Mypath = ThisWorkbook.Path & ""
   
4.     myname = Dir(Mypath & "*.xlsx")
   
5.     i = 1
   
6.     Do While myname <> ""
   
7.         If InStr(myname, "超链接") = 0 Then
   
8.         i = i + 1
   
9.             ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Mypath & myname, _
   
10.                 SubAddress:="sheet1!A1", TextToDisplay:=myname
    
11.         End If
    
12.         myname = Dir
    
13.     Loop
    
14. End Sub

复制代码