|
▼ゆきえ さん:
こんばんは。
>指定のリンク先ではなく
>任意のリンク先をクリックしたあとに
>マクロを動かしたいので・・・
新規ブックで試してください。
まず、「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のイベントを利用してはいかがですか?
|
|