VBAでCSVのUTF-8文字化けを防ぐ

CSVをExcelで開いたら、名前や住所が「文字化け」していませんか。原因の一つは、ファイルの文字コードとExcelが読み取る文字コードの不一致です。UTF-8 のCSVなら、VBAの `Workbooks.OpenText` で `Origin:=65001` を指定する方法があります。最初にファイルの種類を確かめてから試しましょう。

最初に確認：文字化けとUTF-8とは

文字コード は、文字をファイルのバイト列へ対応付ける決まりです。同じCSVでも、UTF-8で保存されたものを別の文字コードとして開くと、日本語が読めない記号に変わることがあります。

Microsoftの案内では、UTF-8でBOM付きのCSVは通常の開き方で認識される場合があり、BOMがないファイルは「データの取得」から文字コードを指定する方法が紹介されています。環境やExcelの版によって画面の項目名が異なることがあります。

用語解説：BOM（Byte Order Mark）
ファイルの先頭に付くことがある短い印です。UTF-8のCSVで、読み取る側が文字コードを判断する手掛かりになります。

症状	最初に確認すること
日本語だけ文字化け	実際のファイルがUTF-8か、文字コードの選択が合っているか
カンマで列が分かれない	区切り文字がカンマか、タブなど別の形式か
00123が123になる	Excelが数値として変換していないか（先頭ゼロを文字列で保持する）

まず画面で読み込んで原因を分ける

元のCSVをコピーし、修正や再保存はコピーに対して行います。
Windows版などのExcelでは「データ」→「データの取得」→「テキスト/CSVから」を開きます。
読み込み画面で「ファイルの配信元」や文字コードをUTF-8に指定し、日本語が正しく見えるか確認します。
区切り記号がカンマで、列が期待どおりに分かれるかを確認してから読み込みます。

画面で正しく表示できれば、CSVの内容そのものよりも、取り込み時の文字コード指定が原因である可能性が高まります。逆に画面でも読めない場合は、ファイルがUTF-8ではない可能性や、元ファイルがすでに破損している可能性を疑います。

VBAでUTF-8 CSVを開くコード

次はWindows版Excelのデスクトップアプリで試すVBA例です。`Origin:=65001` はUTF-8のコードページを指定し、`Comma:=True` はカンマ区切りを示します。`FieldInfo` は1列目を文字列として読み込む設定です。作業前に元CSVを別名でバックアップしてください。

Sub ImportUtf8Csv()
    Dim filePath As Variant
    filePath = Application.GetOpenFilename("CSV Files (*.csv),*.csv")
    If VarType(filePath) = vbBoolean Then Exit Sub

    Workbooks.OpenText FileName:=CStr(filePath), _
        Origin:=65001, _
        DataType:=xlDelimited, _
        TextQualifier:=xlTextQualifierDoubleQuote, _
        Comma:=True, _
        FieldInfo:=Array(Array(1, xlTextFormat))
End Sub

ExcelのVBAエディターで標準モジュールに貼り付けて実行すると、ファイル選択後にCSVが新しいブックとして開かれます。`GetOpenFilename` はファイルを選ぶだけで、直接データを書き換えません。実行先での表示は、ご自身のExcelの版とファイルで確かめてください。