[已解决]那位高手会这样的批量链接？

iuriahz

已知表中1-8的文件名,请帮忙写段程序，让1-8分别与ABC文件夹里面1-8文件形成超链接,谢谢了!

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-17 16:47

1. Sub test()
   
2.     Dim rng As Range, mypath As String
   
3.     mypath = ThisWorkbook.Path & ""
   
4.     With Sheets(1)
   
5.         For Each rng In .UsedRange
   
6.             If rng >= 1 And rng <= 8 Then
   
7.                 .Hyperlinks.Add rng, mypath & rng & ".xlsx"
   
8.             End If
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim rng As Range, mypath As String
   
3.     mypath = ThisWorkbook.Path & ""
   
4.     With Sheets(1)
   
5.         For Each rng In .UsedRange
   
6.             If rng >= 1 And rng <= 8 Then
   
7.                 .Hyperlinks.Add rng, mypath & rng & ".xlsx"
   
8.             End If
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码