方法一:

1、在那個資料夾內新建一個.TXT檔案(如wenjian.txt),用記事本單開輸入

dir> 1.txt

儲存退出

將剛才的.TXT(wenjian.txt)更名為.bat檔案(wenjian.bat)

雙擊wenjian.bat檔案執行一次,在資料夾內多出一個1.txt檔案

開啟1.txt檔案,將其中的內容貼上到Excel中,資料——分列處理就可以得到你要的檔名列表了!

方法二:

在那個資料夾下新建Excel檔案,開啟新建的Excel檔案,右擊工作表標籤(如Sheet1),檢視程式碼——在程式碼編輯器中輸入以下程式碼:

Sub aaa()

f = Dir("c:\*.*")

han = 1

Do While f > ""

Cells(han, 1).Value = f

han = han + 1

f = Dir

Loop

End Sub

回到Excel表格中,工具——宏——宏——選擇Sheet1.Test——執行

看看效果吧!

另外可以到http://www.excelhome.net/,看看有沒有更適合你的。