快速提取文件夾內的文件名

快速提取文件夾內的文件名

如下圖所示，在“測試”文件夾內，包含有兩個Word文件和子文件夾“測試2”，在“測試2”文件夾內有Excel文檔和另外一個子文件夾。咱們看看如何快速獲取文件夾內的所有文件名。

使用此方法，可以快速提取出包含子文件夾在內的所有文件列表，如果在文件夾中增加了子文件夾或是新增了文件，只要在匯總表中單擊右鍵→刷新。就可以可獲取最新的文件名列表。

如果是低版本的Excel，還可以使用VBA代碼的方法來提取：

Sub FileDir()Dim p$, f$, k&'獲取用戶選擇文件夾的路徑With Application.FileDialog(msoFileDialogFolderPicker)'選擇文件夾If .Show Thenp = .SelectedItems(1)'選擇的文件路徑賦值變量PElseExit Sub'如果沒有選擇保存路徑，則退出程序End IfEnd WithIf Right(p, 1) <> "\" Then p = p & "\"f = Dir(p & "*.*")'返回變量P指定路徑下帶任意擴展名的文件名'如果有超過一個文件存在，將返回第一個找到的文件名'如果一個文件都沒有，則返回空[a:a].ClearContents '清空A列數據[a1] = "目錄"k = 1Do While f <> ""'如果文件名不為空，則……k = k + 1'累加文件個數Cells(k, 1) = ff = Dir'第二次調用Dir函數，但不帶任何參數，則將返回同一目錄下的下一個文件。LoopMsgBox "OK"End Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。