批量提取文件名 vba

上文提到文件名的录入，那么，如果文件名是不规律的呢，找找老朋友Excel，VBA可以做到。
在要提取文件名的文件夹中新建一个Excel文档，“工具”--“宏”--“Visual Basic编辑器”--“插入”--“模块”，粘贴以下内容：

Sub 提取同目录下文件名()
    Dim file As String
    Dim n As Integer
    n = 1
    file = Dir(ActiveWorkbook.Path & "\")
    Do Until Len(file) = 0
        Range("a" & n) = file
        ActiveSheet.Hyperlinks.Add anchor:=Range("a" & n), Address:=file
    n = n + 1
    file = Dir
    Loop
    MsgBox "报告长官，该文件夹共有文件" & n & "个，汇报完毕，请指示！"
End Sub

Then，运行该宏，搞定！