Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22802 / 76732

←次へ　｜　前へ→


	【59307】Re:IE操作中のポップアップの処理

熊谷隆史 - 08/12/5(金) 15:37 -


	引用なし

	パスワード

> だとすると、このようにする意味が良くわからないのですが？
> ｈｔｔｐ://q.hatena.ne.jp/1174026115
を読んで欲しいのですが。

> こちらは、それこそ僕には理解できないのですが、setTimeoutが上手くいかなければ試してみようと思います。
> 出来れば補足をお願いしたいのですが。
こんな感じです。

Option Explicit
Private Declare Function GetLastActivePopup Lib "user32" _
　　　　(ByVal hwndOwnder As Long) As Long
Private Declare Function PostMessage Lib "user32" _
　　　　Alias "PostMessageA" (ByVal hWnd As Long, _
　　　　ByVal Msg As Long, ByVal wParam As Long, _
　　　　ByVal lParam As Long) As Long
Private Const WM_COMMAND = &H111

Sub test()
　　Dim hDlg As Long
　　Dim objIE As Object
　　Set objIE = CreateObject("InternetExplorer.Application")
　　With objIE
　　　.Visible = True
　　　.navigate ""
　　End With

　　Do
　　　　DoEvents
　　Loop While objIE.Busy

　　Do
　　　　DoEvents
　　Loop While objIE.Document.ReadyState <> "complete"
　　objIE.Document.Script.setTimeout "javascript:document.all.item(""投　　票"").click()",1000

　　
　　'ダイアログのウィンドウハンドルを取得。
　　Do
　　　　DoEvents
　　　　hDlg = GetLastActivePopup( objIE.hwnd )
　　Loop Until hDlg <> objIE.hwnd

　　'ダイアログのはいボタン押下
　　PostMessage hDlg, WM_COMMAND, vbOK, 0

End Sub

3 hits

▼

【59038】IE操作中のポップアップの処理 あつし 08/11/24(月) 15:26