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

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


arrow
arrow
    全站熱搜

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