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出力しています。
詳細は、以下のページに詳しく書かれていますので、参考にしてください。
エクセルVBAでBOM無しのUTF-8でCSVファイルなどを出力する方法
この部分を
このようにすることで、BOM無し(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の扱い方まとめ
※ほとんどの記事でUTF-8に対応しています。
・本サイトにある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の出力（書き出し）方法
UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）
ADOでマスタ更新（SQL）
ADOでCSVの読み込み（SQL）
新着記事NEW ・・・新着記事一覧を見る
セル数式における「再帰」の必要性｜エクセル雑感(2025-11-10)
掛け算(*)を使わない掛け算｜足し算(+)を使わない足し算｜エクセル関数応用(2025-11-10)
配列を自在に回転させる数式｜エクセル関数応用(2025-11-09)
非正規化（カンマ区切り）の結合と集計：最適な手法は？｜エクセル雑感(2025-11-06)
SQL基礎問題10：非正規化（カンマ区切り）の結合と集計｜SQL入門(2025-11-06)
SQL基礎問題9：特定商品購入者の平均購入金額｜SQL入門(2025-11-04)
SQL基礎問題8：バスケット分析・ペア商品の出現回数｜SQL入門(2025-11-04)
SQL基礎問題7：成績表から各教科の最高点と最低点を抽出｜SQL入門(2025-11-02)
SQL基礎問題6：成績表から教科ごとの点数ベスト3を抽出｜SQL入門(2025-11-02)
SQL基礎問題5：複数のマスタテーブルの結合｜SQL入門(2025-11-01)
アクセスランキング ・・・ ランキング一覧を見る
1.生成AIパスポート試験 練習問題（四肢択一式）｜生成AI活用研究
2.最終行の取得（End,Rows.Count）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.RangeとCellsの使い方｜VBA入門
7.FILTER関数（範囲をフィルター処理）｜エクセル入門
8.日本の祝日一覧｜Excelリファレンス
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- UTF-8でCSVの読み書き（ADODB.Stream）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.