Pages

▼

2019-06-27

〔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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※