【VBA】特定のフォルダ内の全ファイルを高速に転記する方法

日々のデータ管理で、特定フォルダ内の全ファイルを一つずつ手動で転記するのは大変な作業です。この記事では、Excel VBAを使用して高速にその作業を行える方法を紹介します。これにより、労力を大幅に削減し、業務の効率化が可能になります。

サンプルコード

VBA

Option Explicit
Sub CopyFilesToWorkbook()
    Dim fso As Object, folder As Object, file As Object
    Dim wb As Workbook, ws As Worksheet
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\指定フォルダパス") '変更が必要な部分
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set ws = ThisWorkbook.Sheets(1) '転記先のシートを指定
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1 '次の行を取得
    For Each file In folder.Files
        If Right(file.Name, 4) = ".txt" Then '拡張子が.txtの場合のみ処理
            Set wb = Workbooks.Open(file.Path)
            ws.Cells(lastRow, 1).Value = wb.Name 'ファイル名を転記
            lastRow = lastRow + 1
            wb.Close SaveChanges:=False '変更なしで閉じる
        End If
    Next file
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。