【知ってると便利】Excel VBAでUTF-8出力を実現する方法

2024.05.26

Excel VBAを使用してUTF-8形式でデータを出力する方法を探している方へ。本記事では、その方法をわかりやすく解説します。初心者でも簡単に実践できる手順を紹介するので、ぜひ最後までご覧ください。

結論
ADODB.Streamオブジェクトの使用する手順
具体例：実際にExcel VBAでUTF-8出力を行う手順

結論

Excel VBAでデータをUTF-8形式で出力するには、標準のVBA関数だけでは不十分です。具体的には、ADODB.Streamオブジェクトを使用することで、簡単にUTF-8形式のファイルを生成できます。

あなたがExcel VBAでのUTF-8出力方法を探している理由は、グローバルなデータ交換が増えているからですよね。特に、日本語を含むマルチバイト文字を扱う場合、UTF-8形式での出力はかなり重要となります。私自身も、UTF-8出力の方法を知らなかった時は、文字化けに悩まされていました。しかし、この方法を知ってからはスムーズにデータを扱えるようになり、業務効率が大幅に向上しました。

ADODB.Streamオブジェクトの使用する手順

VBAでUTF-8エンコーディングでファイルを出力するには、ADODB.Streamオブジェクトを使用する必要があります。以下の手順に従ってください。

Visual Basic Editorを開きます。
メニューから [ツール] > [参照設定] を選択します。
“Microsoft ActiveX Data Objects x.x Library” (xはバージョン番号) にチェックを入れ、[OK] をクリックします。
ADODB.Streamオブジェクトの作成をします。
/* VBAコード① */ Dim outStream As ADODB.Stream Set outStream = New ADODB.Stream
ADODB.Streamオブジェクトの設定をします。
/* VBAコード② */ With outStream .Type = adTypeText '出力形式をテキストに設定 .Charset = "UTF-8" 'UTF-8エンコーディングを指定 .LineSeparator = adLF 'ラインセパレータをLF(UNIX形式)に設定 .Open '出力ストリームを開く End With
出力データの準備とストリームへの書き込みをします。
/* VBAコード③ */ Dim data As String data = "出力したいデータ" outStream.WriteText data, adWriteLine '改行付きで書き込み
ファイルへの保存と後片付けをします。
/* VBAコード④ */ outStream.SaveToFile "出力ファイルのパス", adSaveCreateOverWrite 'ファイルに保存 outStream.Close 'ストリームを閉じる Set outStream = Nothing 'オブジェクト変数を解放

このようにADODB.Streamオブジェクトを使うことで、VBAからUTF-8エンコーディングでファイルを出力できます。

注意点として、ADODB.Streamを使うとBOMが付加されるので、BOMが不要な場合は別途削除する必要があります。

上記の内容をわかりやすく１つのコードにまとめたのが以下の形になります。

/* 1つにまとめたコード */

Sub OutputUTF8File(ByVal outputFilePath As String, ByVal outputData As String)
    Dim outStream As ADODB.Stream

    Set outStream = New ADODB.Stream
    With outStream

        .Type = adTypeText

        .Charset = "UTF-8"

        .LineSeparator = adLF

        .Open

        .WriteText outputData, adWriteLine

        .SaveToFile outputFilePath, adSaveCreateOverWrite

        .Close

    End With
    Set outStream = Nothing

End Sub

上記のコードを使うことで、UTF-8エンコーディングでのファイル出力を簡単に行えます。必要に応じて、出力データを動的に生成したり、ファイルパスを変数から取得したりすることができます。

具体例：実際にExcel VBAでUTF-8出力を行う手順

ここでは、具体的なVBAコードを使って、ExcelのデータをUTF-8形式で出力する手順を解説します。

/* コード例 */

Sub ExportToUTF8()

    Dim filePath As String

    Dim fileNum As Integer

    Dim stream As Object

    Dim textData As String
    ' 出力するテキストデータを準備

    textData = "テストデータ"
    ' 出力ファイルのパスを指定

    filePath = "C:\path\to\your\file.txt"
    ' ADODB.Streamオブジェクトを作成

    Set stream = CreateObject("ADODB.Stream")
    ' ストリームの設定

    With stream

        .Type = 2 ' テキストモード

        .Charset = "UTF-8" ' 文字エンコードをUTF-8に設定

        .Open

        .WriteText textData

        .SaveToFile filePath, 2 ' ファイルに保存

        .Close

    End With
    ' 後処理

    Set stream = Nothing