【VBA】CSVファイルを開かずに外部参照で転記する方法

日々の業務で大量のデータを手作業でCSVからExcelへ移動させているあなた。その労力を一発で解決するVBAマクロの作り方を紹介します。この記事では、CSVファイルを開かずに外部参照で転記する方法を詳しく解説。

サンプルコード

VBA

Option Explicit
Sub CSVToExcelWithoutOpening()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 外部CSVファイルのパスを指定
    Dim csvFilePath As String
    csvFilePath = "C:\path\to\yourfile.csv"
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' CSVファイルからデータを読み込む
    Dim dataRange As Range, lastRow As Long, i As Long
    With ws
        .Cells.ClearContents
        Set dataRange = .Range("A1")
        .QueryTables.Add(Connection:="TEXT;" & csvFilePath, Destination:=dataRange)
        .QueryTables(dataRange.QueryTable.Name).Refresh BackgroundQuery:=False
        .QueryTables(dataRange.QueryTable.Name).Delete
    End With
    
    ' データ範囲の最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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