エクセルＶＢＡ 文字化けします。

質問

初心者ですみません、ネットで調べたコードなのですが、
読み込みたいＨＴＭＬファイルがUTF-8です。
文字化けしてしますのですが、どうしたらよいでしょうか？

Option Explicit
Sub sample2()
Dim f As Variant
Dim lines() As String
Dim c As Integer
Cells.Clear
c = 1
f = Dir("C:\実験\*.html")
Do While f <> ""
With CreateObject("Scripting.FileSystemObject").GetFile("C:\実験\" & f).OpenAsTextStream
lines = Split(.ReadAll, vbCrLf)
.Close
End With
Cells(1, c).Resize(UBound(lines) + 1, 1).Value = WorksheetFunction.Transpose(lines)
f = Dir
c = c + 1
Loop
End Sub

どこかに

With CreateObject("ADODB.Stream")
End With

を入れたらいいのでしょうか？

回答No.1

中村 拓男（@tknakamuri） · ベストアンサー

ADODB.Streamだけで読めます。

Const adReadAll = -1
Const adReadLine = -2
Const adTypeText = 2
Const adCRLF = -1

With CreateObject("ADODB.Stream")
.Charset = "UTF-8"
.Type = adTypeText
.LineSeparator = adCRLF
.Open
.LoadFromFile ファイル名
読込先の変数(文字列) = .ReadText(adReadAll)
.Close
End With

詳細は　http://msdn.microsoft.com/ja-jp/library/cc364272.aspx

お礼

丁寧にありがとうございます。

記述を、スマートにしていただいたのですが、
私は初心者でして、勉強中で理解するのが難しいので。
こちらの方法は一旦保留にして
ＨＴＭＬファイル自体の文字コードを一括変換ツールを使って変更しました。
http://www.kashim.com/kanjitranslator/

せっかくいただいたコードも理解できずすみません。
今後、勉強していきたいと思います。

ありがとうございました(*^_^*)