UTF-8でCSVの読み書き（ADODB.Stream）

最終更新日：2017-03-16

UTF-8でCSVの読み書き（ADODB.Stream）

VBAでUTF-8を扱う為には、ADODB.Streamを使う必要があります。

以下のコードを使用するには、

参照設定で、「Microsoft ActiveX Data Objects 2.8 Library」にチェックを付けて下さい。

または、

Dim adoSt As New ADODB.Stream
ここを
Dim adoSt As Object
Set adoSt = CreateObject(ADODB.Stream)
として下さい。

私としては、めったに使う事もないので、

自分の覚書として掲載ししました。

アクティブシートの内容をUTF-8でCSV出力します。

Sub sample1()
　　Dim i As Long
　　Dim j As Long
　　Dim strList As String
　　Dim adoSt As Object
　　Set adoSt = CreateObject("ADODB.Stream")
　　With adoSt
　　　　.Type = adTypeText
　　　　.Charset = "UTF-8"
　　　　.Open
　　End With
　　With ActiveSheet.UsedRange
　　　　For i = 1 To .Rows.Count
　　　　　　strList = ""
　　　　　　For j = 1 To .Columns.Count
　　　　　　　　If j > 1 Then
　　　　　　　　　　strList = strList & ","
　　　　　　　　End If
　　　　　　　　strList = strList & .Cells(i, j)
　　　　　　Next
　　　　　　adoSt.WriteText strList, adWriteLine
　　　　Next
　　End With
　　adoSt.SaveToFile "C:\test.txt", adSaveCreateOverWrite
　　adoSt.Close
　　Set adoSt = Nothing
End Sub

シートのUsedRangeをCSV出力しています。

※本記事を掲載後に、BOM無しのUTF8(UTF8N)でCSVを作成することがありましたので追記します。

詳細は、以下のページに詳しく書かれていますので、参考にしてください。
エクセルVBAでBOM無しのUTF-8でCSVファイルなどを出力する方法

adoSt.SaveToFile "C:\test.txt", adSaveCreateOverWrite
adoSt.Close

この部分を

Dim byteData() As Byte
With adoSt
　　.Position = 0
　　.Type = adTypeBinary
　　.Position = 3
　　byteData = .Read
　　.Close
　　.Open
　　.Write byteData
　　.SaveToFile sFile, adSaveCreateOverWrite
　　.Close
End With

このようにすることで、BOM無し(UTF8N)でCSVを作成できます。

UTF-8のCSVを読込、シートに出力します。

Sub sample2()
　　Dim i As Long
　　Dim j As Long
　　Dim strList As String
　　Dim strSplit() As String
　　Dim adoSt As New ADODB.Stream
　　i = 1
　　With adoSt
　　　　.Type = adTypeText
　　　　.Charset = "UTF-8"
　　　　.Open
　　　　.LoadFromFile ("C:\test.txt")
　　　　Do While Not (.EOS)
　　　　　　strList = .ReadText(adReadLine)
　　　　　　strSplit = Split(strList, ",")
　　　　　　For j = LBound(strSplit) To UBound(strSplit)
　　　　　　　　Cells(i, j + 1) = strSplit(j)
　　　　　　Next
　　　　　　i = i + 1
　　　　Loop
　　　　.Close
　　End With
End Sub

UTF-8のCSVを行単位で読込、アクティブシーヘ書き出しています。

ADODB.Streamのメソッドとプロパティ

Open メソッドを使って、Record または URL から Stream を開きます。

Close メソッドを使って、Stream を閉じます。

Write メソッドまたは WriteText メソッドを使って、バイトまたはテキストを Stream に入力します。

Read メソッドまたは ReadText メソッドを使って、Stream からバイトを読み取ります。

Flush メソッドを使って、ADO バッファにある Stream データを基になるオブジェクトに書き込みます。

CopyTo メソッドを使って、Stream の内容を別の Stream にコピーします。

SkipLine メソッドおよび LineSeparator プロパティを使って、ソースファイルから行を読み取る方法を制御します。

EOS プロパティおよび SetEOS メソッドを使って、ストリーム位置の末尾を設定します。

SaveToFile メソッドおよび LoadFromFile メソッドを使って、ファイル内のデータを保存および復元します。

Charset プロパティを使って、Stream の保存に使う文字セットを指定します。