IEをVBAで操作する際、IEの表示エンコードをVBAから操作する事は可能でしょうか？

締切済

質問者：baijiu
質問日時：2007/06/09 14:37
回答数：2件

IEをVBAで操作する際、IEの表示エンコードをVBAから操作する事は可能でしょうか？外国のホームページを見る際、URLを開いた後手動でエンコードを変更しないと見れないページがあり困っております。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： pauNed
回答日時：2007/06/12 18:58

ぁ、すみません...テストになってないorz

Sub test2()
　　Const READYSTATE_COMPLETE As Long = 4
　　Dim s As String
　　
　　s = "MADIA/vb/vb_bbs/200603/200603_06030048.html"
　　With CreateObject("InternetExplorer.Application")
　　　　.Visible = True
　　　　.Navigate "http://homepage1.nifty.com/" & s
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　.Document.Charset = "utf-8"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Document.Charset = "windows-1252"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Document.Charset = "shift_jis"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Quit
　　End With
End Sub

- 0
- 件

通報する

この回答へのお礼

どうも有難う御座います!!
テストしてみたらうまくいきました。
感謝致します!!

通報する

お礼日時：2007/06/12 21:23

No.1

回答者： pauNed
回答日時：2007/06/12 18:49

こんにちは。

".Document.Charset"について調べてみると良いかも、です。

Sub test()
　　Const READYSTATE_COMPLETE As Long = 4
　　
　　With CreateObject("InternetExplorer.Application")
　　　　.Visible = True
　　　　.Navigate "http://homepage1.nifty.com/MADIA/vb/vb_bbs/20060 …
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　.Document.Charset = "utf-8"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Document.Charset = "windows-1252"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Document.Charset = "shift_jis"
　　　　.Refresh
　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE
　　　　　　DoEvents
　　　　Wend
　　　　Stop
　　　　.Quit
　　End With
End Sub