批量提取文件名 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，運行該宏，搞定！