『壹』 批量提取文件名到excelEXCEL快速提取文件夾內的文件名
小夥伴們好啊，今天和大家分享一個高效好玩的技巧。
如下圖所示，在「測試」文件夾內，包含有兩個Word文件和子文件夾「測試2」，在「測試2」文件夾內有Excel文檔和另外一個子文件夾。
咱們看看如何快速獲取文件夾內的所有文件名。
接下來咱們以Excel 2016為例，說說具體的操作方法：
1、依次單擊【數據】→【獲取數據】→【自文件】→【自文件夾】
2、點擊【瀏覽】按鈕，找到文件夾位置。
3、在數據查詢編輯器中，右鍵單擊Name欄位，刪除其他列。
4、最後單擊【關閉並上載】。
使用此方法，可以快速提取出包含子文件夾在內的所有文件列表，如果在文件夾中增加了子文件夾或是新增了文件，只要在匯總表中單擊右鍵→刷新。就可以可獲取最新的文件名列表。
如果是低版本的Excel，還可以使用VBA代碼的方法來提取：
Sub FileDir() Dim p$, f$, k& '獲取用戶選擇文件夾的路徑 With Application.FileDialog(msoFileDialogFolderPicker) '選擇文件夾 If .Show Then p = .SelectedItems(1) '選擇的文件路徑賦值變數P Else Exit Sub '如果沒有選擇保存路徑，則退出程序 End If End With If Right(p, 1) > "\" Then p = p & "\" f = Dir(p & "*.*") '返回變數P指定路徑下帶任意擴展名的文件名 '如果有超過一個文件存在，將返回第一個找到的文件名 '如果一個文件都沒有，則返回空 [a:a].ClearContents '清空A列數據 [a1] = "目錄" k = 1 Do While f > "" '如果文件名不為空，則…… k = k + 1 '累加文件個數 Cells(k, 1) = f f = Dir '第二次調用Dir函數，但不帶任何參數，則將返回同一目錄下的下一個文件。 Loop MsgBox "OK"End Sub好了，今天的內容就是這些吧，祝各位小夥伴一天好心情！