Excel中VBA提取文件夾名稱的方法

excel中VBA提取文件夾名稱的方法

文章介紹excel中使用VBA代碼來提取文件夾名稱的具體操作步驟。

在網上看到有人用批處理命令提取文件夾名稱。其實在excel中使用VBA代碼也同樣可以提取文件夾名稱。

比如需要將電腦E盤“論壇工作資料”文件夾下面的所有文件夾名稱提取出來放在excel工作表的A列，可以使用下面的代碼。

使用方法是：新建一個excel文檔，按ALT+F11，打開VBE編輯器，單擊插入——模塊，將下面的代碼復制到右邊的代碼編輯區，然后按工具欄中的“運行”按鈕即可。

Sub 提取文件夾名稱()Dim fs As Objectn = 1Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.getfolder("E:\論壇工作資料")For Each fd In f.subfoldersCells(n, 1) = fd.Namen = n + 1NextSet f = NothingSet fs = NothingEnd Sub

下面是VBE編輯器中寫入的提取文件夾名稱相關的一個截圖演示：

舉一反三，如果需要提取F盤下面文件夾名稱，路徑更改一下就OK。

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

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