【VBA】CSVファイルをExcelに読み込むマクロ｜コピペ不要の自動化

経緯

これまでCSVファイルの内容をExcelに貼り付ける際、手作業でコピペしていたのですが、
毎回繰り返すのが手間に感じていたため、VBAでCSVファイルを直接読み込むマクロを作成しました。

特に、CSV形式で出力されるデータベースファイルを取り扱う場面で、自動で読み込める仕組みがあると非常に効率的です。

実装したVBAコード

以下は、CSVファイルを選択し、その内容をアクティブなシートに自動的に読み込むマクロです。
あわせて、既存データを全削除するクリア処理も付け加えています。

CSV読み込みマクロ

Sub ImportCSVFile()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim csvFilePath As String
    Dim targetSheet As Worksheet

    With fd
        .Title = "Select a CSV File"
        .Filters.Clear
        .Filters.Add "CSV Files", "*.csv"
        .AllowMultiSelect = False
        If .Show = True Then
            csvFilePath = .SelectedItems(1)
        Else
            MsgBox "No file selected."
            Exit Sub
        End If
    End With

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Set targetSheet = ActiveSheet

    Dim fileNum As Integer
    Dim lineContent As String
    Dim lineArray() As String
    Dim rowNum As Long
    Dim colNum As Long

    fileNum = FreeFile
    Open csvFilePath For Input As #fileNum

    rowNum = 1
    Do Until EOF(fileNum)
        Line Input #fileNum, lineContent
        lineArray = Split(lineContent, ",")
        For colNum = LBound(lineArray) To UBound(lineArray)
            targetSheet.Cells(rowNum, colNum + 1).Value = lineArray(colNum)
        Next colNum
        rowNum = rowNum + 1
    Loop

    Close #fileNum

    Application.ScreenUpdating = True
    Application.EnableEvents = True

    MsgBox "File has been imported successfully."
End Sub

アクティブシートの内容をクリアするマクロ

Sub ClearActiveSheet()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ws.Cells.ClearContents

    Application.ScreenUpdating = True
    Application.EnableEvents = True

    MsgBox "All data has been cleared from the active sheet."
End Sub

実行の流れとポイント

• 実行するとファイルダイアログが表示され、CSVファイルを選択できます。
• 選択したCSVファイルの内容は、現在アクティブなシートに1行ずつ読み込まれます。
• 読み込んだデータはカンマで分割され、それぞれのセルに入力されます。
• 処理の際は画面更新とイベントを一時的にオフにし、完了後に再有効化しています。

文字化け対策と処理速度について

最初は標準のインポート機能を使おうとしましたが、文字化けが発生したため、1行ずつ読み込んでSplit関数で分割して配置する方式に変更しました。

この方法は、文字化けの回避に有効ですが、行数が多いCSVでは多少時間がかかる点に注意が必要です。

まとめ

• CSVの読み込み作業をVBAで自動化することで、コピペ作業が不要になる
• ファイル選択ダイアログを使って柔軟に対応可能
• 文字化け対策には1行ずつの読み込み処理が有効
• 必要に応じて、事前にシートのクリア処理も組み合わせると便利

ルーチン業務の効率化に大きく役立つので、CSVファイルを頻繁に扱う方にはおすすめのマクロです。
参考になれば幸いです。

副業から独立まで「稼げる」Webスキルを習得する（PR）

ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。

「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。

このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。

講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。

副業に特化した強み

• 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
• AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
• 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。

受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。

受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。

ブログで稼ぎたいなら「メイカラ」