Excel VBA質問箱 IV

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

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


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

22783 / 76732

←次へ　｜　前へ→


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

熊谷隆史 - 08/12/6(土) 13:25 -


	引用なし

	パスワード

と思ったけど、まあ一応、書いておきます。
↑でヒントは書いたけど、誤って伝わっても何なので。

---
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
　　Dim i As Long
　　Dim obj 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"

　　For Each obj In objIE.Document.all
　　　　If obj.tagName = "INPUT" Then
　　　　　　If obj.Value = "投　　票" Then
　　　　　　　　Exit For
　　　　　　End If
　　　　End If
　　　　i = i + 1
　　Next
　　objIE.Document.Script.setTimeout "javascript:document.all.item(" & i & ").click()", 1000

　　'ダイアログのウィンドウハンドルを取得。
　　Do
　　　　DoEvents
　　　　hDlg = GetLastActivePopup(objIE.hwnd)
　　Loop Until hDlg <> objIE.hwnd
　　
　　'ダイアログのOKボタン押下
　　PostMessage hDlg, WM_COMMAND, vbOK, 0

End Sub

1 hits

▼

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