VBA ADODB.Streamで文字コードを変換する方法

DE092：変換元データと変換先データの文字コードが異なる場合、変換処理のコードがかける

DE092：変換元データと変換先データの文字コードが異なる場合、変換処理のコードがかける

文字コードが異なるデータの変換で困っていませんか？

異なるシステム間でデータをやり取りする際に発生する文字化けやフォーマットエラーは、データ処理の大きな課題です。特に、Shift_JISとUTF-8のような異なる文字コード間での変換は、スムーズなデータ共有を妨げることがあります。

この記事では、VBAのADODB.Streamを使って簡単に文字コードを変換する方法を紹介します。文字化けの問題を解決し、データの整合性を保ちたい方におすすめの内容です。

ADODB.Streamとは？

ADODB.Streamは、ファイルの読み書きやバイナリデータの操作を簡単に行えるCOMオブジェクトです。主に、以下の2つの機能を持っています。

テキストモード：テキストデータの読み書きをサポート。
バイナリモード：バイナリデータの読み書きが可能。

VBAを使って、異なる文字コード間でのデータ変換を効率よく行うために非常に役立ちます。今回は、これを利用してShift_JISからUTF-8への変換を行います。

ADODB.Streamを使った文字コード変換の手順

次に、ADODB.Streamを用いた文字コード変換の流れを説明します。

ADODB.Streamオブジェクトを生成
まず、VBAでADODB.Streamオブジェクトを生成します。
データの読み込み
Shift_JISなど変換元の文字コードでファイルを読み込みます。
データをバイナリに変換
読み込んだデータを一度バイナリ形式に変換します。
変換先の文字コードを指定
UTF-8などの変換先文字コードを指定して保存します。

これで、Shift_JIS形式のファイルをUTF-8形式に変換できます。

コード例：Shift_JISからUTF-8への変換

具体的なコード例を紹介します。このコードでは、Shift_JIS形式のテキストをUTF-8形式に変換します。

Sub ConvertShiftJIStoUTF8()
    ' ADODB.Streamオブジェクトの作成
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
 
    ' Shift_JISでテキストを読み込む
    stream.Type = 2 ' テキストモード
    stream.Charset = "Shift_JIS" ' 変換元の文字コードを指定
    stream.Open
    stream.LoadFromFile "C:\path\to\input_shiftjis.txt" ' Shift_JIS形式のファイルを読み込む
 
    ' バイナリモードでデータを取得
    stream.Position = 0
    stream.Type = 1 ' バイナリモードに切り替え
    Dim binaryData() As Byte
    binaryData = stream.Read
 
    ' 新しいADODB.StreamオブジェクトでUTF-8として書き出す
    stream.Close
    Set stream = CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = 1 ' バイナリモード
    stream.Write binaryData
    stream.Position = 0
    stream.Type = 2 ' テキストモード
    stream.Charset = "UTF-8" ' 変換先の文字コードを指定
    stream.SaveToFile "C:\path\to\output_utf8.txt", 2 ' 新しいUTF-8形式のファイルとして保存
    stream.Close
End Sub

Sub ConvertShiftJIStoUTF8()

' ADODB.Streamオブジェクトの作成

Dim stream As Object

Set stream = CreateObject("ADODB.Stream")

' Shift_JISでテキストを読み込む

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

stream.Charset = "Shift_JIS" ' 変換元の文字コードを指定

stream.Open

stream.LoadFromFile "C:\path\to\input_shiftjis.txt" ' Shift_JIS形式のファイルを読み込む

' バイナリモードでデータを取得

stream.Position = 0

stream.Type = 1 ' バイナリモードに切り替え

Dim binaryData() As Byte

binaryData = stream.Read

' 新しいADODB.StreamオブジェクトでUTF-8として書き出す

stream.Close

Set stream = CreateObject("ADODB.Stream")

stream.Open

stream.Type = 1 ' バイナリモード

stream.Write binaryData

stream.Position = 0

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

stream.Charset = "UTF-8" ' 変換先の文字コードを指定

stream.SaveToFile "C:\path\to\output_utf8.txt", 2 ' 新しいUTF-8形式のファイルとして保存

stream.Close

End Sub

このコードは以下の流れで処理します。

Shift_JIS形式でテキストファイルを読み込み
バイナリ形式に変換
UTF-8形式で新しいファイルに書き出し

データ変換時の注意点

文字コード変換を行う際の注意点をいくつか紹介します。

正しい文字コードの指定
誤った文字コードを指定すると、データが正しく変換されず、文字化けが発生します。特に、Shift_JISとUTF-8の間の変換では、日本語特有の文字が正しく変換されるように注意が必要です。
ファイルパスの確認
読み込み元ファイルと保存先ファイルのパスを正確に指定してください。間違ったファイルパスを指定すると、ファイルの読み込みや書き出しが失敗する可能性があります。

まとめ

ADODB.Streamを利用すると、VBAで簡単に異なる文字コード間の変換が可能です。特に、Shift_JISからUTF-8への変換のようなシステム間でのデータ整合性を保つための処理に役立ちます。文字化けなどの問題を避け、スムーズなデータ変換を実現できるので、ぜひこの方法を試してみてください。