【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”，其他文件类型一次类推