[已解决]将e盘所有文件制成目录并插入超链接

要用就学

e盘内有许多Word和excel文档，我现在想把e盘内所有文档在excel中制作一个，以文件名称的目录，请教其代码怎么写？

最佳答案

月排行榜 / 总排行榜

爱疯

2014-4-5 13:26

http://www.excelpx.com/thread-315632-1-1.html

以前做的

跳转到最佳答案楼层

爱疯

http://www.excelpx.com/thread-315632-1-1.html

以前做的

风林火山

1. Sub 建立文件超链接()
   
2.     Dim str_Path$, str_File$, n%
   
3.     str_Path = "D:"
   
4.     str_File = Dir(str_Path & "*.*")
   
5.     n = 1
   
6.     Do While str_File <> ""
   
7.         n = n + 1
   
8.         Range("a" & n) = str_File
   
9.         Sheet1.Hyperlinks.Add Sheet1.Range("a" & n), str_Path & str_File
   
10.         str_File = Dir
    
11.     Loop
    
12. End Sub

复制代码