【VBA代碼】-批量提取文件名

Public Sub 批量提取文件名()
    Dim mypath As String, n%, myfile As String '定義變量
    mypath = "C:\Users\think\Desktop\寶潔八大問" '文件/夾所在路徑
    n = 1
    myfile = Dir(mypath & "\*.*") '提取文件路徑中的所有文件，此時返回第一個文件的名字
    Do While myfile <> "" '當文件名不為空時，循環提取文件名
        Cells(n, 1) = myfile 
        n = n + 1
        myfile = Dir
    Loop
End Sub

筆記：Dir函數提取指定文件夾中的文件名稱，“*.*”表示提取所有類型的文件；若只提取Excel文件，則寫成“\.*xls”，其他文件類型一次類推