【VBA】CSVファイルをバックグラウンドで転記する方法

日々の業務で大量のデータをCSVファイルからExcelに手動で移行している方も多いと思います。この記事では、VBAを使用してCSVファイルを自動的にバックグラウンドで転記する方法を紹介します。これにより、作業効率が大幅に向上し、ミスも減ります。

サンプルコード

VBA

Option Explicit
Sub CSVToExcel()
    ' このマクロはCSVファイルを指定したワークシートにバックグラウンドで転記する
    Dim ws As Worksheet, csvPath As String, lastRow As Long, i As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")
    csvPath = "C:\path\to\yourfile.csv"
    Application.ScreenUpdating = False
    With ws.QueryTables.Add(Connection:="TEXT;" & csvPath, Destination:=ws.Range("A1"))
        .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
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        ' データの処理（必要に応じてカスタマイズ）
    Next i
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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