エクセルのVBAでWEBページの更新

エクセルのVBAで現在表示されているWEBページの更新は可能でしょうか？

No.3 ベストアンサー 回答者： ForestRain 回答日時： 2007/05/14 18:36

それでは

Set oIE = GetObject(, "InternetExplorer.Application")
を
Set oIE = GetObject("", "InternetExplorer.Application")
に変えて試したらどうなりますか？

それでもダメなら
以下のコードを試して下さい。

Sub Macro2()

Dim oSH As Object
Dim oIE As Object

Set oSH = CreateObject("Shell.Application")

For Each oIE In oSH.Windows
If oIE.FullName Like "*Internet Explorer*" Then
oIE.Refresh
End If
Next

Set oSH = Nothing

End Sub

これでダメなら私では、お役に立てないです。
ちなみに、WinXP、Excel2002、IE6　ではうまく動いています。

この回答へのお礼

お礼が遅くなり申し訳ありません。
うまくいきました。ありがとうございました！！

お礼日時：2007/05/20 16:47

No.2 回答者： ForestRain 回答日時： 2007/05/13 20:03

>何か設定の違いでしょうか・・・？

とくに設定などは必要ないはずですが・・・

>ActiveXコンポーネントはオブジェクトを作成できません

InternetExplorerを開いた状態で試していますか？
IEを開いていないとそのようなエラーになりますけど・・・。

もう少し詳しく状況を説明してもらわないと、
質問や補足の文章から原因を特定するのは難しいです。

この回答への補足

回答ありがとうございます。
ForestRain様の例文をVBEにコピペして、IEを一枚開いた状態で実行してみたのですが前述のようなエラーが出てしまいました。
ちなみに私が使用しているのは、EXCEL2003ですがそのあたりでも何か変わってしまうのでしょうか？
素人質問で申し訳ないです。。。

補足日時：2007/05/13 22:22

No.1 回答者： ForestRain 回答日時： 2007/05/13 15:57

こんにちは。

WEBブラウザがInternetExplorerであれば、
GetObject 関数で可能でしょう。

Sub Macro1()
Dim oIE As Object
Set oIE = GetObject(, "InternetExplorer.Application")
oIE.Refresh
Set oIE = Nothing
End Sub

IEが複数開かれている場合は1番目に開いたIEを更新します。
またIEが開かれていない場合の事は考慮してません。

この回答への補足

回答ありがとうございます。
早速試してみましたが、”Set oIE = GetObject(, "InternetExplorer.Application")
”
でエラーが出てしまいます。
エラーナンバー429
ActiveXコンポーネントはオブジェクトを作成できません
とでます。
何か設定の違いでしょうか・・・？よろしくお願いします

補足日時：2007/05/13 17:12