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