みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。
エクセルVBAで色々なタイプのCSVを取り込む方法をお伝えしています。
前回はこちらの記事でした。
エクセルVBAでCSVの取り扱いをしていると、必ず出くわすと言ってもよい「UTF-8問題」。
これまでの方法ではUTF-8のCSVファイルは取り込むと文字化けを起こしてしまいます。
今回は、ADODB.Streamオブジェクトというものを使ってエクセルVBAでUTF-8のCSVファイルを取り込む方法についてお伝えします。
前回のおさらい
前回のおさらいとしてこちらのプログラムをご覧ください。
Sub getCSV_camma()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim strPath As String
strPath = "C:UsersNoriakiDropbox40_ブログvba-csvtestラーメン店アンケート_dq & comma.csv"
Dim i, j As Long
Dim strLine As String
Dim arrLine As Variant 'カンマでsplitして格納
Open strPath For Input As #1 'csvファイルをオープン
i = 1
Do Until EOF(1)
Line Input #1, strLine
arrLine = Split(Replace(replaceColon(strLine), """", ""), ":") 'strLineをカンマで区切りarrLineに格納
For j = 0 To UBound(arrLine)
ws.Cells(i, j + 1).Value = arrLine(j)
Next j
i = i + 1
Loop
Close #1
End Sub
流れとしては
- OpenでCSVファイルをオープン
- CSVのレコードを1行ずつ取り込む
1. データ区切りのカンマをコロンに置き換える
2. ダブルクォーテーションを削除
3. コロンで区切って配列に格納 - 配列内の要素をワークシートのセルに書き込む
という流れです。
replaceColonはデータ区切りのカンマをコロンに置き換える自作の関数です。詳細は前回の記事をご覧頂ければと思います。
UTF-8は文字化けしてしまう
こちらのプログラムでUTF-8形式のCSVを取り込もうとすると
…文字化けでぐちゃぐちゃになってしまいます。
Line Input命令では有無も言わさずShift-JISのつもりでデータを読み込んでしまうのです。
ADODB.StreamオブジェクトでUTF-8のCSVを読み込む
UTF-8のCSVを取り込むにはADODB.Streamオブジェクトを使います。
ストリーム？なんじゃそりゃ、という感じですよね…
IT用語辞典によりますと
ストリームとは、小川、流れ、連続などの意味を持つ英単語で、ITの分野では連続したデータの流れや、データの送受信や処理を連続的に行うことなどを意味する。
IT用語辞典：ストリーム
データの流れ…なるほど、ストリーミングのストリームと一緒ですね。
それでもわかりづらい感じもしますが…ADODB.StreamというタイプのオブジェクトにいったんCSVファイルを入れると文字コードがUTF-8でも取り扱いができるようになる、という認識で頂ければと思います。
ライブラリを追加
まず準備として、ADODB.Streamを使えるようにするためにライブラリを追加する必要があります。
Visual Basic Editor のメニューのメニューから「ツール」→「参照設定」を開いて、参照可能なライブラリファイルの中から「Microsoft ActiveX Data Objects x.x Library」を選んでください。執筆時点ではバージョンは「2.8」ですが、最新のものを選んで頂いて良いと思います。
UTF-8のCSVを読み込むプログラム
プログラムはこちらになります。
Sub getCSV_utf8()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim strPath As String
strPath = "C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート_utf8.csv"
Dim i, j As Long
Dim strLine As String
Dim arrLine As Variant 'カンマでsplitして格納
'ADODB.Streamオブジェクトを生成
Dim adoSt As Object
Set adoSt = CreateObject("ADODB.Stream")
i = 1
With adoSt
.Charset = "UTF-8" 'Streamで扱う文字コートをutf-8に設定
.Open 'Streamをオープン
.LoadFromFile (strPath) 'ファイルからStreamにデータを読み込む
Do Until .EOS 'Streamの末尾まで繰り返す
strLine = .Readtext(adReadLine) 'Streamから1行取り込み
arrLine = Split(Replace(replaceColon(strLine), """", ""), ":") 'strLineをカンマで区切りarrLineに格納
For j = 0 To UBound(arrLine)
ws.Cells(i, j + 1).Value = arrLine(j)
Next j
i = i + 1
Loop
.Close
End With
End Sub
色々と新しい命令が出てきているので難しく感じるかも知れませんが、基本的な流れはLine Inputのそれとあまり変わりません。
- ADODB.Streamオブジェクトを生成
- ADODB.Streamオブジェクトの文字コードの設定
- ADODB.StreamオブジェクトをオープンしCSVファイルを取り込む
- ADODB.Streamオブジェクトからレコードを1行ずつ読み込む
1. データ区切りのカンマをコロンに置き換える
2. ダブルクォーテーションを削除
3. コロンで区切って配列に格納 - 配列内の要素をワークシートのセルに書き込む
以下、解説をしていきますね。
ADODB.Streamオブジェクトの生成
14行目と15行目でADODB.Streamオブジェクトを生成してadoStという変数で取り扱えるようにしています。
これは決まり文句ですので、深く考えずにコピペでOKです。
ADODB.Streamオブジェクトのプロパティとメソッド
本プログラムでは、以下ADODB.Streamオブジェクトのプロパティまたはメソッドを使用しています。
Charset：Streamオブジェクトで取り扱う文字コードを指定。
Open：Streamオブジェクトを開く。
LoadFromFile：Streamオブジェクトに指定のファイルのデータを読み込む。
EOS：Streamの末尾かどうかを返す（End Of Stream）。末尾だとTrueを返す。
Readtext：Streamオブジェクトから指定した文字数のデータを読み取る。1行ずつならadReadLine。既定値はadReadAll。
Close：Streamオブジェクトを閉じる。
…どうでしょう？一つ一つはそれほど難しくないとは思うのですが。
Line Inputによる方法にはない概念のものはCharsetくらいだと思います。
あとEOSはご注意下さい。EOFではありませんので。
実行結果
上記プログラムを実行しますと
このように無事にUTF-8のCSVファイルを読み込むことができました。
まとめ
以上、エクセルVBAでUTF-8のCSVファイルを読み込む方法についてお伝えしました。
ADODB.Streamオブジェクトですが、パッと見では難しいように思えますが、一個一個のプロパティやメソッドの意味さえわかってしまえばそれほど難しいものではないと思います。
次回はまだ思案中ですが、このADODB.Streamオブジェクトのプロパティやメソッドを研究して、もっと本プログラムに汎用性を持たせられればと思っています。
またそれとは別記事でエクセルVBAからCSVファイルを書き出す方法も書ければと思います。
どうぞお楽しみに！