VBA:[Tips]UTF-8ファイルを読み込む - ち

なにがどう

エクセルでutf-8ファイルを読み込みたい

問題

エクセルの文字エンコード形式がShift-jisのため、utf-8ファイルを読み込むと文字化けする。

どうするのか

ADODB.Streamを利用してファイルを開く

コード

   Dim txt As Object
   Set txt = CreateObject("ADODB.Stream")
   Dim row As Integer
   Const adReadLine As Long = -2 '行ごと読む
   row = 1
   txt.Type = 2
   txt.Charset = "utf-8"
   txt.LineSeparator = 10 '改行LF（10）
   txt.Open