【Excel如何用VBA批量提取文件名】在日常工作中，我們經常需要從文件夾中提取大量文件的名稱，并將這些信息導入到Excel表格中。手動操作不僅費時費力，還容易出錯。使用Excel的VBA（Visual Basic for Applications）功能，可以實現自動化處理，大大提高工作效率。
以下是對“Excel如何用VBA批量提取文件名”的總結與操作步驟說明：
一、VBA批量提取文件名的基本思路
1. 打開Excel VBA編輯器：按 `Alt + F11` 打開VBA編輯器。
2. 插入模塊：在菜單欄選擇“插入” → “模塊”，用于編寫代碼。
3. 編寫代碼：通過VBA代碼遍歷指定文件夾中的所有文件，提取文件名并寫入Excel工作表。
4. 運行宏：執行代碼后，文件名將被自動填充到Excel表格中。
二、VBA代碼示例
```vba
Sub ExtractFileNames()
Dim folderPath As String
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim ws As Worksheet
Dim i As Integer
' 設置目標工作表
Set ws = ThisWorkbook.Sheets(1)
ws.Cells.Clear
' 設置文件夾路徑（請根據實際情況修改）
folderPath = "C:\YourFolderPath\"' 修改為你的文件夾路徑
' 創建文件系統對象
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
' 初始化計數器
i = 1
' 遍歷文件夾中的所有文件
For Each file In folder.Files
ws.Cells(i, 1).Value = file.Name
i = i + 1
Next file
MsgBox "文件名已成功提取！"
End Sub
```
三、操作步驟總結
| 步驟 | 操作內容 | 說明 |
| 1 | 按 `Alt + F11` | 打開VBA編輯器 |
| 2 | 插入模塊 | 在VBA編輯器中選擇“插入”→“模塊” |
| 3 | 粘貼代碼 | 將上述VBA代碼復制粘貼到模塊中 |
| 4 | 修改路徑 | 根據實際文件夾位置修改 `folderPath` 的值 |
| 5 | 運行宏 | 按 `F5` 或回到Excel點擊“開發工具”→“宏”運行程序 |
| 6 | 查看結果 | 文件名將被寫入第一個工作表的A列 |
四、注意事項
- 路徑格式：確保路徑以反斜杠 `\` 結尾，例如 `"C:\YourFolderPath\"`。
- 權限問題：如果文件夾權限不足，可能無法讀取文件。
- 文件類型：此代碼僅提取文件，不包括子文件夾中的文件。
- 性能優化：若文件數量巨大，建議分批處理或添加進度提示。
通過以上方法，你可以輕松實現Excel中批量提取文件名的功能，節省大量時間，提高辦公效率。如需進一步擴展功能（如提取文件路徑、大小等），也可以在代碼中進行相應修改。
