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

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


arrow
arrow
    全站熱搜

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