向高手求助：工作簿目录及其工作表目录生成和超链接

Question

文件夹里有许多格式一致的工作簿，每个工作簿中含有许多工作表，如何建立工作簿目录以及对应的工作表目录，各工作表能够超链接自动更新，非常着急！

Answer 1

有一段代码可以获取当前文件夹下所有工作簿名称
Sub name1()
Dim myPath$, myFile$, i As Integer
i = 1
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "*.xls")
Do While myFile <> ""
If myFile <> ThisWorkbook.name Then
ThisWorkbook.Sheets(1).Cells(i, 1) = myFile
i = i + 1
End If
myFile = Dir
Loop
End Sub

下面代码是获取当前工作簿中所有工作表名称：
Sub test()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, "Z") = Sheets(i).Name
Next
End Sub
将二者结合起来用，如果想要自动更新，得加进重复判断才行。
建议到EXCELHOME上找找，上面好多，我这个也是在那上面找的。

Answer 2

有宏代码追问

对这方面不太了解，能否详细说明一下，谢谢！

追答

在网上下个VBA教程看下，里面有你需要的