Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44346 / 76732 ←次へ | 前へ→

【37406】Re:IEを起動したあとのイベント
発言  ichinose  - 06/5/3(水) 22:02 -

引用なし
パスワード
   ▼ゆきえ さん:
こんばんは。
>指定のリンク先ではなく
>任意のリンク先をクリックしたあとに
>マクロを動かしたいので・・・

新規ブックで試してください。

まず、「Microsoft Internet Controls」を参照設定して下さい。

Thisworkbookのモジュールに

'==========================================================
Public WithEvents ie As InternetExplorer
Public ieev As Boolean
'==========================================================
Private Sub ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If ieev = True Then
    'ここに実行するコード
    MsgBox URL
    MsgBox TypeName(pDisp)
    End If
  ieev = True
End Sub
'==========================================================
Private Sub ie_OnQuit()
  Set ie = Nothing
End Sub
'==========================================================
Sub main()
  ieev = False
  Set ie = CreateObject("InternetExplorer.Application")
  With ie
    .Visible = True
    .Navigate "http://www.vbalab.net/"
    End With
End Sub

で Thisworkbook.mainを実行して下さい。

VBA質問箱が表示されます。
それぞれの質問箱へ移行することでイベントが発生します。

一例ですが、上記のようにIEのイベントを利用してはいかがですか?
0 hits

【37400】IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:03 質問
【37401】Re:IEを起動したあとのイベント かみちゃん 06/5/3(水) 20:20 発言
【37402】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:38 発言
【37403】Re:IEを起動したあとのイベント かみちゃん 06/5/3(水) 20:39 発言
【37404】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:59 発言
【37406】Re:IEを起動したあとのイベント ichinose 06/5/3(水) 22:02 発言
【37407】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 22:21 お礼
【37408】Re:IEを起動したあとのイベント ichinose 06/5/4(木) 8:03 発言
【37409】Re:IEを起動したあとのイベント ゆきえ 06/5/4(木) 9:30 お礼

44346 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free