隨手記錄

【EXCEL】- VBA - 讀取目錄下特定的檔名

⬛ 問題：EXCEL - VBA - 如何 讀取目錄下特定的檔名？

⬛ 回答：

使用情境：因為目前有需求要將當前工作路徑下的特定檔名的檔案，讀取其檔名，並放到欄位上。以下是以 *.jpg為例子

EXCEL - VBA - 如何 讀取目錄下特定的檔名？以下為範例。

Sub 讀取目錄下特定的檔名()


    Dim PathName, FileName As String   '告變數 PathName、FileName、FileCheck 為字串資料型態
    
    PathName = ActiveWorkbook.Path & "\"    '指定路徑，輸入至變數 PathName

    FileName = Dir(PathName)            ' 路徑輸入至 Dir 函數，將 Dir 函數查找到的檔案名稱回傳值輸入至 FileName 變數
    
    Range("A1").Select                  ' 選擇欄位 A1
    
    Do Until FileName = ""        '執行直到FileNane值為空白
       
       If FileName Like "*.jpg" Then     '若檔名有jpg, 則執行以下
        
          ActiveCell.Value = FileName    '將檔名填入
          ActiveCell.Offset(1, 0).Select   '選取下一行
       
       End If  
      
       FileName = Dir()
    
    Loop
    

End Sub

延伸閱讀

■ EXCEL VBA 相關文章🔍