求高手帮忙着急.只提取子目录文件夹名,并超链接子文件夹

a370681810

求高手帮忙着急.只提取选定目录下,子目录文件夹名,并超链接子文件夹,只显示文件夹名,不显示绝对路径.这段代码可以提取文件夹名,能不能再修改一下代码,使这段代码提取出来的文件夹有超链接.谢谢各位 高手哈.

Sub 提取文件夹名称()
Dim fs As Object
n = 2
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("E:\论坛工作资料")
For Each fd In f.subfolders
Cells(n, 1) = fd.Name
n = n + 1
Next
Set f = Nothing
Set fs = Nothing
End Sub

VBA万岁

也想知道答案，帮忙顶一个。

a370681810

VBA万岁 发表于 2014-3-27 20:09
也想知道答案，帮忙顶一个。

为什么没大神来解决一下呀,呵呵

liuhaoqin1988

1.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="F:\测试", _
   
2.         TextToDisplay:="F:\测试"

复制代码

随便录制了一段，根据实际情况修改后插入循环代码里

VBA万岁

liuhaoqin1988 发表于 2014-3-27 23:51
随便录制了一段，根据实际情况修改后插入循环代码里

楼主的意思是链接到文件夹，即单击链接，相应的文件夹就会打开，是这个意思吗，楼主？

liuhaoqin1988

VBA万岁 发表于 2014-3-28 08:27
楼主的意思是链接到文件夹，即单击链接，相应的文件夹就会打开，是这个意思吗，楼主？

我录制的这段就是这个效果

wj2368

a370681810 发表于 2014-3-27 21:16
为什么没大神来解决一下呀,呵呵

1. Sub 提取文件夹名称()
   
2. Dim fs As Object
   
3. n = 2
   
4. Set fs = CreateObject("Scripting.FileSystemObject")
   
5. Set f = fs.GetFolder("E:\论坛工作资料")
   
6. For Each fd In f.SubFolders
   
7. ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, 1), Address:=fd.Path, _
   
8.         TextToDisplay:=fd.Name
   
9. n = n + 1
   
10. Next
    
11. Set f = Nothing
    
12. Set fs = Nothing
    
13. End Sub

复制代码

a370681810

wj2368 发表于 2014-3-28 09:27

牛要的就是这,太牛啦.