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

公開日：2013年5月以前　最終更新日：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の扱い方まとめ

・本サイトにあるCSV関連記事一覧・CSVの読込方法・CSVの読み込み方法（改）・CSVの読み込み方法（改の改）・CSVの読み込み方法（ジャグ配列）・CSVの読み込み方法（ジャグ配列）（改）・CSVの出力（書き出し）方法・UTF-8でCSVの読み書き（ADODB.Stream）・ADOでCSVの読み込み（SQL）

CSVの読込方法

・もっとも簡単かつ良くあるCSV読み込みVBAコード・「,」「"」に対応したCSV読み込みVBAコード・CSVをExcelブックとして開くVBA ・クエリーテーブルを使ったCSV読み込みVBAコード・その他のCSV読み込み方法

CSVの読み込み方法（改）

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

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

・CSVの形式について・CSV読み込みVBAコード・配列を使ってシートにまとめて出力する場合・QueryTablesを使ったCSV読み込みVBAコード・本サイトにあるCSV関連記事一覧

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

・CSVの読み込み方法（改の改）での予告・CSV読み込みでのジャグ配列の使いどころ・CSV読み込みVBAコード：ジャグ配列バージョン・最後に・本サイトにあるCSV関連記事一覧

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

・CSV読み込みVBAコード：CSVの読み込み方法（ジャグ配列）（改）・CSVの読み込み方法（ジャグ配列）（改）の使用例・本サイトにあるCSV関連記事一覧

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

・エクセルの機能をそのまま利用します・直接CSVを出力・本サイトにあるCSV関連記事一覧

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

・アクティブシートの内容をUTF-8でCSV出力します・UTF-8のCSVを読込、シートに出力します・ADODB.Streamのメソッドとプロパティ・本サイトにあるCSV関連記事一覧

ADOでCSVの読み込み（SQL）

・CSVテストデータ・ADOでCSV読込のVBA ・ADO使用時の注意点・ADOレコードセットをCSV出力・ADOでTSVの読み込み・ADOでCSVの読み込みについて・本サイトにあるCSV関連記事一覧

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

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

VBAでのCSVの扱い方まとめ

CSVの読み込み方法

CSVの読み込み方法（改）

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

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

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

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

・エクセルの機能をそのまま利用します・直接CSVを出力・本サイトにあるCSV関連記事一覧

UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）

VBAでADOを使用し、マスターデータよりデータ付加します。ADOではSQL文が必要になりますが、ここではSQL文の詳細については説明を料略します。自身の他シートから、マスタ情報を付加し、さらに、集計をします。

ADOでマスタ更新（SQL）

VBAでADOを使用し、マスターデータを更新します。ADOではSQL文が必要になりますが、ここではSQL文の詳細については説明を料略します。自身のブックの、他シートを更新します。シート「顧客マスタ」の、A列が顧客番号、B列が顧客名で、1行目が見出しになっているものとします。

ADOでCSVの読み込み（SQL）

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門

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

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

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

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