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ファイルなどを出力する方法
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のメソッドとプロパティ
本サイトにある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 ・・・新着記事一覧を見る
VBA100本ノック 79本目:Wordにセル範囲を図として挿入|VBA練習問題(2月1日)
VBA100本ノック 78本目:グラフのデータ範囲拡張|VBA練習問題(1月30日)
VBA100本ノック 77本目:シート挿入イベント|VBA練習問題(1月29日)
VBA100本ノック 76本目:ボタンの表示名の位置へ移動|VBA練習問題(1月27日)
VBA100本ノック 75本目:ログインフォームの作成|VBA練習問題(1月26日)
VBA100本ノック 74本目:1シート複数表をDB形式に変換|VBA練習問題(1月25日)
VBA100本ノック 73本目:新規ブックにボタン作成しマクロ登録|VBA練習問題(1月23日)
VBA100本ノック 72本目:ITをDXに変換(文字列操作)|VBA練習問題(1月22日)
VBA100本ノック 71本目:パワーポイントへグラフを貼り付け|VBA練習問題(1月20日)
VBA100本ノック 70本目:ステータスバーに1秒ごとに時刻が表示|VBA練習問題(1月19日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- UTF-8でCSVの読み書き(ADODB.Stream)
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。