如何利用Excel提取文件夹里所有文件名称

用excel提取不了
批量提取同一文件夹的所有文件名
第一步，新建一个txt格式的记事本文件。
第二步，在记事本文件中输入：DIR *.* /B >LIST.TXT
第三步，将此记事本文件后辍名，由txt改为bat。会弹出重命名对话框，单击“是”。
则所有文件名出现了，复制到excel即可

Excel中，Alt+F11，插入，模块，粘贴以下代码，然后F5 

Sub GetFilesName()
Dim myPath$, myFile$, r As Long: r = 1

'--------------------- 注 意 看 这 里 ---------------
'                                                   |
 myPath = "D:\1\"   '文件路径 D:\1\ 替换成你的路径  |
'                                                   |
'--------------------- 注 意 看 这 里 ---------------
 
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
    Cells(r, 1) = myFile
    r = r + 1
    myFile = Dir
Loop
End Sub