| |
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
|
|
taka
- 06/7/30(日) 13:23 -
