如何在Excel中列出所有文件夾和子文件夾？
如何在Excel中列出所有文件夾和子文件夾？
您是否曾經(jīng)遇到過將指定目錄中的所有文件夾和子文件夾列出到工作表中的問題？ 在Excel中，沒有一種快速簡便的方法可以一次獲取特定目錄中所有文件夾的名稱。 為了處理該任務，本文可能會對您有所幫助。
列出所有帶有VBA代碼的文件夾和子文件夾
列出所有帶有VBA代碼的文件夾和子文件夾
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！
如果要從指定目錄中獲取所有文件夾名稱，則以下VBA代碼可能會為您提供幫助：
1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic for Applications窗口.
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.
VBA代碼：列出所有文件夾和子文件夾名稱
Sub FolderNames()
Update 20141027
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
Copy
3。 然后按 F5 運行此代碼的關鍵，以及 選擇文件夾 窗口將彈出，然后您需要選擇要列出文件夾和子文件夾名稱的目錄，請參見屏幕截圖：
4。 點擊 OK，您將在新工作簿中獲得文件夾和子文件夾的路徑，目錄，名稱，創(chuàng)建日期和最后修改日期，請參見屏幕截圖：
相關文章：
如何將目錄中的文件列出到Excel中的工作表？
最佳辦公生產(chǎn)力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復項并執(zhí)行高級數(shù)據(jù)轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權內(nèi)容。
版權聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權內(nèi)容。
相關文章
