本文件夹中的工作簿目录（Excel代码集团）

本工作簿所在的文件夹里所有xlsx文件列到A列并形成超链接

?

1 2 3 4 5 6 7 8 9 10 11 12

Sub Sample() Dim MyName As String, MyPath As String Dim i As Long MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath & "*.xlsx") Do While MyName <> ""     i = i + 1     Cells(i + 1, 1) = MyName     ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:=MyName     MyName = Dir Loop End Sub

效果：