获取当前目录下所有XLS文件名

当前目录下新建保存结果的XLS文件，打开，右击sheet1->查看代码－>粘贴下面代码，运行

Sub 获取当前目录下所有XLS文件名()

    Dim myPath$, myFile$, arr(1 To 1000, 1), k%

    [a1].CurrentRegion.Offset(1, 0).ClearContents

    myPath = ThisWorkbook.Path & "\"

    myFile = Dir(myPath & "*.xls")

    Do While myFile <> ""

        k = k + 1

        arr(k, 0) = k

        arr(k, 1) = myFile

        myFile = Dir

    Loop

    [A2].Resize(k, 2) = arr

End Sub