1、在那個資料夾內新建一個.TXT檔案（如wenjian.txt），用記事本單開輸入
dir> 1.txt
儲存退出
將剛才的.TXT（wenjian.txt）更名為.bat檔案（wenjian.bat）
雙擊wenjian.bat檔案執行一次，在資料夾內多出一個1.txt檔案
開啟1.txt檔案，將其中的內容貼上到Excel中，資料——分列處理就可以得到你要的檔名列表了！
2、VBA（2003版）
在那個資料夾下新建Excel檔案，開啟新建的Excel檔案，右擊工作表標籤（如Sheet1），檢視程式碼——在程式碼編輯器中輸入以下程式碼
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
End If
End With
End Sub
回到Excel表格中，工具——宏——宏——選擇Sheet1.Test——執行
方法一簡單的操作就可以，方法二需要對程式有一定的瞭解，方法二通用性比較強，需要的時候執行一下就可以，更快捷。
1、在那個資料夾內新建一個.TXT檔案（如wenjian.txt），用記事本單開輸入
dir> 1.txt
儲存退出
將剛才的.TXT（wenjian.txt）更名為.bat檔案（wenjian.bat）
雙擊wenjian.bat檔案執行一次，在資料夾內多出一個1.txt檔案
開啟1.txt檔案，將其中的內容貼上到Excel中，資料——分列處理就可以得到你要的檔名列表了！
2、VBA（2003版）
在那個資料夾下新建Excel檔案，開啟新建的Excel檔案，右擊工作表標籤（如Sheet1），檢視程式碼——在程式碼編輯器中輸入以下程式碼
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
End If
End With
End Sub
回到Excel表格中，工具——宏——宏——選擇Sheet1.Test——執行
方法一簡單的操作就可以，方法二需要對程式有一定的瞭解，方法二通用性比較強，需要的時候執行一下就可以，更快捷。