隨手記錄

【EXCEL】- VBA - 讀取目錄下所有檔名

⬛ 問題：EXCEL - VBA -如何 讀取目錄下所有檔名？

 

---

 

---

 

⬛ 回答：

EXCEL - VBA -如何 讀取目錄下所有檔名。範例如下

 

Sub 讀取目錄下所有的檔名()


    Dim PathName, FileName As String
    PathName = ActiveWorkbook.Path & "\"

    FileName = Dir(PathName) 
    Range("A1").Select
    
    Do Until FileName = ""
    
       ActiveCell.Value = FileName
       ActiveCell.Offset(1, 0).Select
       FileName = Dir()
    
    Loop

End Sub

 

---

 

---

 

延伸閱讀

■ EXCEL VBA 相關文章🔍