【VBA】CSVファイルを安全に抽出する方法

手作業でCSVファイルから特定のデータを抽出するのは時間がかかるだけでなく、ミスも起こりやすいです。この記事では、エラー処理付きのVBAマクロを作成し、業務効率化を図ります。

サンプルコード

VBA

Option Explicit
Sub CSVExtract()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("抽出先")
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    'CSVファイルの読み込み処理
    With Workbooks.Open(Filename:="C:\path\to\your.csv", ReadOnly:=True)
        .Worksheets(1).Range("A1:B20").Copy Destination:=ws.Range("A1")
        .Close SaveChanges:=False
    End With
    Application.ScreenUpdating = True
    MsgBox "CSVファイルの抽出が完了しました。"
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbExclamation + vbOKOnly, "エラーが発生しました"
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

CSVファイルのパスや範囲指定が正しいか確認してください。