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

最終更新日：2020-07-02

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 の保存に使う文字セットを指定します。

Cancel メソッド

非同期 Stream 操作を停止します。

Size プロパティ

Stream 内のバイト数を設定します。

Position プロパティ

Stream 内の現在の位置を制御します。

Type プロパティ

Stream 内のデータ型を設定します。

State プロパティ

Stream の現在の状態 (開いている、閉じている、または実行中) を設定します。

Mode プロパティ

Stream のアクセスモードを指定します。

本サイトにあるCSV関連記事一覧

VBAでのCSVの扱い方まとめ

マクロVBAでCSVの読み書きする方法はいくつもあり、当サイトでも複数のページでそれぞれVBAコードを掲載しています。順次記事を掲載しているので、それぞれどのような特徴があるかが良く分からなくなってしまっているようです。そこで、CSVに関するページをまとめておきました。

CSVの読込方法

エクセルのマクロVBAでのCSVの読込方法としては。・テキストファイルとして読み込む・ワークブックとして読み込む・クエリーテーブルを使う・ADOを使う・PowerQueryを使う大別するとこのようになります。この記事を書いた当初は、エクセルのマクロVBAでCSVの読み込みについてネットで検索したところ、

CSVの読み込み方法（改）

実施したいこと・ファイル名を指定し、形式をカンマ区切り、文字列で開く、その際、改行コードLF、CRLF、CRいずれにも対応、セル内の","や改行についてはカラムで区切らない。掲示板で上記のリクエストを頂きました。ということで、対応ロジックを書いてみました。

CSVの読み込み方法（改の改）

CSVのマクロVBAでの読込方法については複数の記事を掲載しており、人気記事として多くのアクセスがあります。掲載しているVBAコードは汎用的に書いてあり、ほぼそのまま使用できるものです。しかし、CSVは多くの形式（区切り文字、文字コード等）があり、今まで掲載したコードでは解決出来ないものがあります。

CSVの読み込み方法（ジャグ配列）

CSVのマクロVBAでの読込方法についての記事は、人気記事として多くのアクセスがあります。当初作成して以来、ご要望をいただいたり自身で使っている中で、対応できないCSVが出てくるたびに改良を重ねています。今回のVBAは、一旦ジャグ配列を使用したCSV読み込み方法になります。

CSVの読み込み方法（ジャグ配列）（改）

CSVのマクロVBAでの読込方法についての記事は、人気記事として多くのアクセスがあります。順次改定していくつかのバージョンが存在します。最新のジャグ配列（配列の配列）で読み込むVBAについて、UTF-8Nの文字コード判別の課題が残っていました。

CSVの出力（書き出し）方法

シート内容をCSV出力（書き出し）する方法です。CSVの読込は、VBAでのCSVの扱い方まとめこちらを参照して下さい。以下では、2通りの方法を紹介します。エクセルの機能をそのまま利用します ※csv出力時日付がm/d/yyyyになってしまう場合の対処日付がm/d/yyyyになってしまう場合に、yyyy/m/dに…

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

VBAでUTF-8を扱う為には、ADODB.Streamを使う必要があります。以下のコードを使用するには、参照設定で、「MicrosoftActiveXDataObjects2.8Library」にチェックを付けて下さい。または、DimadoStAsNewADODB.Stream ここを DimadoStAsObj…

ADOでCSVの読み込み（SQL）

VBAでADOを使用し、CSVデータを読み込みます。ADOではSQL文が必要になりますが、ここではSQL文の詳細については説明を省略します。ADO以外の方法については、「CSVの読み込み方法」を参考にして下さい。

※ほとんどの記事でUTF-8に対応しています。

同じテーマ「マクロVBAサンプル集」の記事

VBAでのCSVの扱い方まとめ
 CSVの読み込み方法
 CSVの読み込み方法（改）
CSVの読み込み方法（改の改）
CSVの読み込み方法（ジャグ配列）
CSVの読み込み方法（ジャグ配列）（改）
CSVの出力（書き出し）方法
UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）
ADOでマスタ更新（SQL）
ADOでCSVの読み込み（SQL）

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
UTF-8でCSVの読み書き（ADODB.Stream）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
UTF-8でCSVの読み書き（ADODB.Stream）