把下面的代碼放在模塊里，改下文件夾名稱，

另外要把工作簿與文件夾放在同一目錄里，然后運行

Sub提取文件名作目錄()

DimmyPathAsString

DimnAsInteger

DimmyFileAsString

‘把工作簿與文件夾放在同一目錄里

myPath=ThisWorkbook.Path&“\”&“文件夾名稱”

n=1

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

DoWhilemyFile<>""

Cells(n,1)=myFile

myFile=Dir'找尋下一個文件

n=n+1

Loop

EndSub