|
Blueさま
ご丁寧なご回答どうもありがとうございました。一日中頭をひねったり、さらにリサーチしておりましたが、理解できませんでした。。。(涙)
教えていただいたリンクをたどっていき、文字コードの変換(UTF-8→S-JIS)をADODB.Streamをつかってやるあたりからついていけなくなりました。
これは、WebQueryのマクロのどこかにいかのようなコードを埋め込めばWebQueryを用いて文字化けせずにエクセルにデータを取り込むことができるということでしょうか?
申し訳ございませんが、再度ご教授お願いいたします。
Sub S_JIS1()
Dim s As String
With New ADODB.Stream
.Open
.Charset = "UTF-8"
.LoadFromFile "C:\UTF-8.txt"
s = .ReadText
.Position = 0
.SetEOS
.Charset = "Shift_JIS"
.WriteText s
.SaveToFile "C:\S_JIS.txt" ' , adSaveCreateOverWrite
.Close
End With
End Sub
|
|