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

【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 相關文章🔍


arrow
arrow
    全站熱搜

    News123 發表在 痞客邦 留言(0) 人氣()