【VBA】特定のフォルダ内の全ファイルを配列を使って高速にコピーする方法

手作業で大量のファイルをコピーするのは時間がかかり、ミスも起こりやすいです。この記事では、特定のフォルダ内の全ファイルを高速にコピーする方法を紹介します。Excel VBAを使って効率化しましょう。

サンプルコード

VBA

Option Explicit
Sub CopyAllFilesInFolderToArray()
    Dim fso As Object, folder As Object, file As Object
    Dim filePaths() As String
    Dim i As Long
    
    ' フォルダ内のファイルパスを配列に格納
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\指定フォルダ名")
    ReDim filePaths(folder.Files.Count - 1)
    i = 0
    For Each file In folder.Files
        filePaths(i) = file.Path
        i = i + 1
    Next file
    
    ' 配列内のファイルをコピー
    Application.ScreenUpdating = False
    For i = LBound(filePaths) To UBound(filePaths)
        FileCopy filePaths(i), "C:\目的フォルダ名\" & fso.GetFileName(filePaths(i))
    Next i
    
    ' 必要に応じて、ファイルの移動や削除もここで行うことができます。
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、フォルダパスが正しく指定されているかもチェックしましょう。