〔VBA〕範例：抓取資料夾下所有檔案名稱並寫入工作表內--v011

2019-06-27

27.6.19

〔VBA〕範例：抓取資料夾下所有檔案名稱並寫入工作表內--v011

【列出指定目錄下所有檔案名稱】

當你需要將特定資料夾下的檔案名稱放入Excel工作表內做處理，除了辛苦的將檔名個別複製或寫入外，還有沒有更快的方式??

本範例是在工作表上放個按鈕，只要按下就即刻更新目前檔案所在的資料夾下所有的檔案名稱

注意：每次更新時記得先將舊資料刪除喔★★★★

語法：
Private Sub cmdGetAmount_Click()
    ActiveSheet.Range("B6:D1000").ClearContents '清除舊資料
    '取得所有檔名
    Dim myDir As Variant
    Dim strPath As String: strPath = ActiveWorkbook.Path        '目前Workbook所在位置
    Dim iRow As Integer: iRow = 6           '從第6行開始寫入

    Range("C2") = Now()
    myDir = Dir(strPath & "\*.*")        '指定抓出xlsx的檔案
    Do While myDir <> ""
        Range("B" & iRow) = myDir
        iRow = iRow + 1
        myDir = Dir()
    Loop

End Sub

★★範例檔下載★★

章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※