VBAでCSVを読み込むと文字化けする原因と文字コード別の正しい開き方

CSV/VBA/XLSX//

目次

はじめに：VBAでCSVを開くと文字化けが頻発する現代の背景

業務効率化において、外部システム（基幹システム、Webアプリケーション、クラウドサービスなど）からダウンロードした「CSVファイル」をExcel VBAで読み込み、自動的にデータ加工やレポート作成を行うマクロは非常に需要が高いプログラムです。しかし、近年、このようなCSV読み込みマクロを実行した際、漢字やひらがななどの日本語部分が「縺ゅ＞縺」といった解読不能な文字列に変換されてしまう「文字化け」のトラブルが急増しています。

この文字化けは、マクロのプログラムが間違っているから起きるわけではありません。最大の理由は、IT業界全体の標準文字コードが「Shift-JIS」から「UTF-8」へと完全に移行したことにあります。WebシステムやSaaS（Salesforce、kintone、各種クラウド会計ソフトなど）からエクスポートされるCSVファイルのほとんどは「UTF-8」という文字コードで作られています。しかし、Windows版ExcelおよびVBAは、現在でも頑なに「Shift-JIS」を標準の文字コードとしてCSVを解釈しようとする仕様を引き継いでいます。

この「ファイル側の文字コード（UTF-8）」と「Excel側の解釈（Shift-JIS）」の強烈なミスマッチこそが、文字化けを引き起こす根本的な原因です。

本記事では、VBAでCSVファイルを読み込む際に発生する文字化けの技術的な背景を正確に解説し、古いVBAの教科書に書かれている手法（OpenステートメントやFileSystemObject）が現代において通用しない理由を明らかにします。その上で、UTF-8をはじめとする様々な文字コードのCSVファイルを、文字化けやゼロ落ちを一切起こさずに安全かつ正確に読み込むための「QueryTable」や「ADODB.Stream」を用いた最新のVBAコード実装パターンを網羅的に解説します。

CSVが文字化けする根本的な原因（文字コードとBOMの仕組み）

文字化けを解消するためには、まずファイルがどのように保存され、Excelがそれをどのように判断しているのかという「エンコーディング（文字コード）」の仕組みを理解する必要があります。

原因1：Excelの初期設定（Shift-JIS）とUTF-8の不一致

コンピュータは文字を「数値（バイト列）」の羅列として記憶しています。どの数値がどの文字に対応するかを定めた変換表が「文字コード」です。
日本国内のWindows環境におけるExcelは、テキストファイルやCSVファイルを開く際、特別な指定がない限り「これはShift-JIS（またはANSI）で作られたファイルである」と決めつけて読み込みを行います。

しかし、読み込んだファイルの中身がUTF-8で書かれていた場合、ExcelはUTF-8のバイト列を無理やりShift-JISの変換表に当てはめて文字を表示しようとします。変換表が全く異なるため、元の日本語とは似ても似つかない記号や無意味な漢字の羅列が表示されます。これが文字化けの正体です。

原因2：「BOM（Byte Order Mark）なし」のUTF-8ファイル

では、すべてのUTF-8のCSVファイルがExcelで文字化けするのかというと、そうではありません。「ダブルクリックで開いても文字化けしないUTF-8のCSV」も存在します。この違いを生み出しているのが「BOM（Byte Order Mark：バイトオーダーマーク）」という目印の有無です。

BOMとは、ファイルの先頭に付与される数バイトの特殊なデータで、「このファイルはUTF-8で書かれていますよ」とアプリケーションに伝えるための署名のようなものです。

  • BOM付きUTF-8（UTF-8 with BOM）： ExcelはこのBOMを検知すると、自動的に「これはUTF-8だ」と認識し、正しく日本語を表示します。VBAの Workbooks.Open メソッドでも文字化けしません。
  • BOMなしUTF-8（UTF-8 without BOM）： ファイルの先頭に目印がありません。WebシステムやLinux環境などから出力されたCSVの大半がこれに該当します。目印がないため、ExcelはデフォルトのShift-JISとして読み込んでしまい、確実に文字化けを引き起こします。

VBAで対応しなければならないのは、この「BOMなしUTF-8のCSVファイル」をいかにして正しい文字コード指定で読み込むか、という点に尽きます。

注意：定番の「FSO（FileSystemObject）」はUTF-8非対応

VBAの入門書や古いWebサイトでは、テキストやCSVを読み込む手法として、Open ステートメントや Scripting.FileSystemObject (FSO) がよく紹介されています。しかし、これらを現代の「BOMなしUTF-8」のCSV読み込みに絶対に使用してはいけません。

なぜなら、VBAに標準搭載されている FileSystemObject の OpenTextFile メソッドは、「Shift-JIS」と「UTF-16（Unicode）」の2種類の文字コードしかサポートしていない からです。引数にUTF-8を指定することはできず、無理やり読み込ませても結局文字化けします。

また、Workbooks.OpenText メソッドには Origin:=65001（UTF-8を意味するコード）を指定する引数がありますが、このメソッドは「UTF-8を指定すると、カンマ区切り（Comma:=True）の指示が無視されてしまい、データがセルに分割されない」というExcel特有の有名なバグ（仕様）が存在するため、実務では使い物になりません。

したがって、UTF-8のCSVを正しく読み込むためには、以下の「QueryTable」または「ADODB.Stream」という別の技術を使用する必要があります。

解決策1：QueryTableを使用したUTF-8 CSVの読み込み（最も手軽な方法）

Excelに古くから備わっている外部データの取り込み機能である「QueryTable」オブジェクトをVBAから操作する方法です。この方法は、指定した文字コード（UTF-8の場合は65001）でCSVを解釈し、指定したセルに直接一括で展開してくれるため、コードの記述量が少なく、実行速度も速いというメリットがあります。

QueryTableを用いたVBAテンプレートコード

以下のコードは、指定したパスにあるUTF-8のCSVファイルを、アクティブなシートのA1セルを起点にして読み込むマクロです。

Sub ImportCSV_UTF8_QueryTable()
    Dim ws As Worksheet
    Dim csvFilePath As String
    Dim qt As QueryTable

    ' 読み込み先のシートを指定
    Set ws = ThisWorkbook.ActiveSheet

    ' 読み込むCSVファイルのパスを指定（ご自身の環境に合わせて変更してください）
    csvFilePath = "C:\Users\Username\Downloads\data.csv"

    ' ファイルが存在するか確認
    If Dir(csvFilePath) = "" Then
        MsgBox "指定されたファイルが見つかりません。", vbCritical
        Exit Sub
    End If

    ' シート上の既存のデータをクリア
    ws.Cells.Clear

    ' QueryTableを追加してCSVを読み込む
    ' Connectionプロパティには "TEXT;" を前置きしてファイルパスを指定する
    Set qt = ws.QueryTables.Add(Connection:="TEXT;" & csvFilePath, Destination:=ws.Range("A1"))

    With qt
        .TextFilePlatform = 65001          ' 文字コードをUTF-8に指定（超重要）
        .TextFileParseType = xlDelimited   ' 区切り文字を使用する形式
        .TextFileCommaDelimiter = True     ' カンマ区切りを有効にする
        .TextFileStartRow = 1              ' 読み込み開始行

        ' データの列ごとの型指定（必要に応じて設定。1=標準, 2=文字列）
        ' 例：1列目を文字列として扱う場合は Array(2, 1, 1...) のように指定
        ' .TextFileColumnDataTypes = Array(1, 1, 1)

        ' データをシートに展開（背景で実行せず同期待ちする）
        .Refresh BackgroundQuery:=False
    End With

    ' 展開後に不要になったQueryTableの接続設定を削除（データは残る）
    qt.Delete

    MsgBox "CSVファイルの読み込みが完了しました。", vbInformation
End Sub

メリット： 実装が簡単で、展開速度が非常に速い。
デメリット： CSV内に改行コードを含むデータがあった場合、そこで行が途切れてしまいレイアウトが崩れる可能性がある。

解決策2：ADODB.Streamを使用した任意の文字コードの読み込み（最も確実・推奨）

実務において最も確実で、どのようなフォーマットのCSVに対しても柔軟にプログラムを組める「最強の読み込み手段」が、Windowsのデータベース接続技術である「ADO（ActiveX Data Objects）」の ADODB.Stream オブジェクトを使用する方法です。

ADODB.Streamの強みと仕組み

ADODB.Stream は、ファイルをメモリ上の「ストリーム（データの流れ）」として扱い、指定した文字コード（Charset）で正確にテキストをエンコード・デコードできるオブジェクトです。FSOが対応していない「UTF-8」や「EUC-JP」など、あらゆる文字コードを明示的に指定してテキストデータとして抽出することが可能です。

取得したテキストデータはVBA内でメモリ上の変数に格納されるため、VBAの Split 関数などを用いて行や列ごとに分解し、配列に格納してからシートへ一括出力するというアプローチをとります。

ADODB.Streamを用いたVBAテンプレートコード

以下のコードは、ADODB.Stream を用いてUTF-8のCSVを読み込み、配列に変換してセルに出力する実務向けのテンプレートです。参照設定が不要なLate Binding（遅延バインディング）を使用しています。

Sub ImportCSV_UTF8_ADODB()
    Dim adoStream As Object
    Dim csvFilePath As String
    Dim csvData As String
    Dim lines() As String
    Dim columns() As String
    Dim outputArray() As Variant
    Dim i As Long, j As Long
    Dim maxCol As Long
    Dim ws As Worksheet

    Set ws = ThisWorkbook.ActiveSheet
    csvFilePath = "C:\Users\Username\Downloads\data.csv"

    If Dir(csvFilePath) = "" Then
        MsgBox "ファイルが見つかりません。", vbCritical
        Exit Sub
    End If

    ' 1. ADODB.Streamオブジェクトの生成
    Set adoStream = CreateObject("ADODB.Stream")

    With adoStream
        .Type = 2               ' 1:バイナリデータ, 2:テキストデータ
        .Charset = "UTF-8"      ' 文字コードをUTF-8に指定（"Shift_JIS"や"EUC-JP"も可能）
        .Open                   ' ストリームを開く
        .LoadFromFile csvFilePath ' ファイルを読み込む

        ' ファイル全体をテキストとして一括取得
        csvData = .ReadText
        .Close
    End With
    Set adoStream = Nothing

    ' 2. 取得したテキストデータを改行コード（LFまたはCRLF）で行ごとに分割
    ' ※Web由来のCSVはLF(vbLf)区切りが多い点に注意。環境に合わせて調整。
    csvData = Replace(csvData, vbCrLf, vbLf)
    lines = Split(csvData, vbLf)

    ' 空行を無視するための処理
    If UBound(lines) = -1 Then Exit Sub

    ' 最大列数を取得（1行目のカンマの数で判定）
    maxCol = UBound(Split(lines(0), ","))

    ' 3. 出力用の二次元配列を準備（行数×列数）
    ReDim outputArray(0 To UBound(lines), 0 To maxCol)

    ' 行ごとにループ処理
    For i = 0 To UBound(lines)
        If lines(i) <> "" Then
            ' カンマで行内のデータを分割
            columns = Split(lines(i), ",")

            ' 列ごとにループ処理して二次元配列に格納
            For j = 0 To UBound(columns)
                If j <= maxCol Then
                    outputArray(i, j) = columns(j)
                End If
            Next j
        End If
    Next i

    ' 4. シートの指定セル範囲に配列のデータを一括出力（高速化）
    ws.Cells.Clear
    ws.Range("A1").Resize(UBound(outputArray, 1) + 1, UBound(outputArray, 2) + 1).Value = outputArray

    MsgBox "CSVファイルの読み込みが完了しました。", vbInformation
End Sub

ダブルクォーテーション囲みのカンマに関する注意事項

上記の Split 関数を使用したコードは高速ですが、「カンマ区切りの単純な分割」を行っているため、CSVデータの中に "東京都, 新宿区" のように「データとしてのカンマ」がダブルクォーテーションで囲まれて存在している場合、そこで誤って列が分割されてしまうという弱点があります。
データ内にカンマが含まれる複雑なCSVを扱う場合は、Split関数だけでなく、正規表現（RegExp）を用いた高度なCSVパーサー（解析処理）を自作して組み込むか、前述の「QueryTable」を使用する方が安全です。

解決策3：Power QueryをVBAから制御して読み込む（最新のベストプラクティス）

もし使用しているExcelが2016以降、またはMicrosoft 365環境であるならば、現代のExcelにおける最強のデータ取り込み機能である「Power Query（パワークエリ）」を利用するのが、文字化けやデータ変換トラブルを防ぐ最良の選択肢です。

Power QueryはGUI操作でUTF-8の読み込みや、ゼロ落ちを防ぐためのデータ型指定（すべてテキストとして扱う等）を簡単に設定できます。実務においては、「あらかじめPower QueryでCSVを読み込む設定（クエリ）を作成しておき、VBAからは ActiveWorkbook.Connections("クエリ名").Refresh というたった1行のコードでクエリを更新するだけ」という運用に移行する企業が増えています。複雑なVBAコードを書く必要がなくなり、メンテナンス性が劇的に向上します。

文字化け以外のCSV読み込みトラブルと対策（ゼロ落ち・日付化け）

文字コードの問題（文字化け）を解決した後に、高確率で直面するCSV特有のもう一つの「化け」について解説します。それがExcelのお節介機能による「データ型の自動変換」です。

「001」が「1」になる（ゼロ落ち）現象の防ぎ方

社員番号や商品コードなど、「0（ゼロ）」から始まるデータをExcelに読み込ませると、Excelはそれを「数値」だと勝手に判断し、先頭のゼロを削除してしまいます（例：”00123″ → 123）。また、「1-1」という番地データを「1月1日」という日付型に強制変換してしまう現象も起きます。

【対策】
これらを防ぐには、CSVのデータをセルに書き込む前に、あらかじめ出力先のセルの「表示形式」を「文字列（テキスト）」に設定しておく必要があります。

' セルにデータを出力する直前に、シート全体の表示形式を文字列("@")にする
ws.Cells.NumberFormat = "@"

' その後で配列などを一括出力する
ws.Range("A1").Resize(rowSize, colSize).Value = outputArray

QueryTableを使用する場合（解決策1）は、.TextFileColumnDataTypes プロパティにおいて、すべての列のデータ型を「2（xlTextFormat：文字列）」に指定することで、ゼロ落ちや日付化けを完全に防ぐことができます。

まとめ：システムに合わせた最適な読み込みメソッドの選択

VBAでCSVファイルを読み込む際に発生する文字化けは、現代の標準文字コードである「UTF-8（BOMなし）」と、Excelのレガシーな標準仕様である「Shift-JIS」との衝突によって発生します。

この問題を回避するためのポイントは以下の通りです。

  • 古いVBAの教科書にある Open ステートメントや FileSystemObject（FSO）は、UTF-8非対応であるため絶対に使用しない。
  • 手軽に一括展開したい場合は、QueryTable を使用し、TextFilePlatform = 65001 を指定する。
  • どのような文字コードにも対応し、VBA内で柔軟なデータ加工を行いたい場合は、ADODB.Stream を使用してメモリ上にテキストを展開してから処理を行う。
  • ゼロ落ちや日付化けを防ぐために、セルの表示形式（NumberFormat）を文字列に事前設定することを忘れない。
  • 最新の環境であれば、VBAでの複雑な読み込み処理を廃止し、Power Queryの更新機能（Refresh）をVBAから呼び出す設計への移行を検討する。

対象となるCSVファイルがどのシステムから、どのような文字コードで出力されているのかを事前に確認し、本記事で紹介した適切な読み込みメソッド（テンプレートコード）を選択することで、文字化けやデータ欠損の全くない堅牢な自動化マクロを構築することができます。