隨手記錄

【EXCEL】- VBA - 依序開啟檔案資料夾內的所有檔案

⬛ 問題：EXCEL - VBA - 依序開啟檔案資料夾內的所有檔案？

 

---

 

---

 

⬛ 回答：

EXCEL - VBA - 如何依序開啟檔案資料夾內的所有檔案。以下為程式範例

 

Sub 開啟檔案資料夾內的所有檔案()


    Dim PathName, FileName As String
    
    PathName = ActiveWorkbook.Path & "\"　'指定路徑，輸入至變數 PathName
    FileName = Dir(PathName)              '路徑輸入至 Dir 函數，將 Dir 函數查找到的檔案名稱回傳值輸入至 FileName 變數
    
    Do Until FileName = ""                'Do Until 會持續迴圈直到 FileName 變數為空字串當( Dir 函數查找完所有檔案，最後會回傳空字串)
    
       Workbooks.Open PathName & FileName '呼叫 Workbooks.open 函數，合併 PathName 及 FileName 變數，開啟檔案
       FileName = Dir()                   '叫 Dir 函數，將下一個查找到的檔案名稱輸入至 FileName 變數
    
    Loop
    

End Sub

 

---

 

---

 

延伸閱讀

■ EXCEL VBA 相關文章🔍