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

日々の業務で大量のデータを取り扱う際、手作業でのデータ入力は労力を要しミスも増えます。この記事では、CSVファイルからデータを安全に取り込むためのVBAマクロを作成します。エラー処理を含むことで、安定した動作と信頼性を確保します。

サンプルコード

VBA

Option Explicit
Sub CSVFileImport()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("データ")
    
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    
    With ws.QueryTables.Add(Connection:="TEXT;C:\path\to\yourfile.csv", Destination:=ws.Range("A1"))
        .Name = "CSVImport"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextLoop = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    Application.ScreenUpdating = True
    MsgBox "CSVファイルの取り込みが完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

CSVファイルのパスやワークシート名が正しいか確認してください。