http://q.hatena.ne.jp/1248338268に関連しているのですが、VBAでHTMLのページ内でJavaScriptのConfirm関数で表示されるメッセージのボタンを自動的にクリックするには、どのようにしたらいいのでしょうか？サンプルのHTMLページとして、以下のようなものを知人に作っていただきました。

Question

tororosoba

14

13もっと見る

554pt

コンピュータ

http://q.hatena.ne.jp/1248338268に関連しているのですが、VBAでHTMLのページ内でJavaScriptのConfirm関数で表示されるメッセージのボタンを自動的にクリックするには、どのようにしたらいいのでしょうか？サンプルのHTMLページとして、以下のようなものを知人に作っていただきました。

http://kamicha1.web.fc2.com/Excel/Test20090726.html
このページの OK ボタンをクリックすると、「PDFを表示しますか？」という表示が出るので、その表示の OK ボタンをクリックしたいのです。現在できているコードは、以下のとおりです。

Sub Sample()
Dim objIE As Object
Dim objTag As Object
Dim i As Long

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate2 ("http://kamicha1.web.fc2.com/Excel/Test20090726.html")
While (objIE.Busy = True): Wend　' 表示完了まで待つ
　Set objTag = objIE.Document.getElementsByTagName("INPUT")
For i = 0 To objTag.Length - 1
If objTag(i).Value = "OK" Then
objTag(i).Click
'↑ここでClickした後にJavaScriptのConfirm関数で表示されるOKボタンを
クリックしたい
Exit For
End If
Next i
End Sub

以上、ご教授いただけると幸いです。何卒宜しくお願いいたします。

回答の条件

1人5回まで

登録：2009/07/27 10:16:15
終了：2009/07/27 16:42:01

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

HALSPECIAL 2009/07/27 16:43:28

たくさんのポイントありがとうございました。
tdoi 2009/07/27 16:47:35

別スレッドでボタンを押すという手もありますよ。参考までに。

Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "KERNEL32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, ByRef lpThreadId As Long) As Long
Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long
Declare Function WaitForSingleObject Lib "KERNEL32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Function ClickThread()
Sleep (1000)
SendKeys "{enter}", True
End Function

Sub Macro1()
Dim objIE As Object
Dim objTag As Object
Dim i As Long

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate2 ("http://kamicha1.web.fc2.com/Excel/Test20090726.html")
While (objIE.Busy = True): Wend
Set objTag = objIE.Document.getElementsByTagName("INPUT")

Dim idThread As Long
Dim hThread As Long
hThread = CreateThread(0&, 0&, AddressOf ClickThread, 1, 0&, idThread)

For i = 0 To objTag.Length - 1
If objTag(i).Value = "OK" Then
objTag(i).Click
Exit For
End If
Next i

Range("A1").Select
End Sub

ただ、本来やりたいことのソリューションとしてこれが最適なのかちょっと疑問な気はします。
HALSPECIAL 2009/07/27 17:37:40

＞ただ、本来やりたいことのソリューションとしてこれが最適なのかちょっと疑問な気はします。
そうですね。
実際のページを見ることができ、操作して確かめることができるのであれば、XMLHTTPREQUEST等を使って別の解決方法があるかもしれません。

ken3memoの日記 - ためになる回答を見つけました。感激です(IE操作でメッセージのボタンを自動的にクリック) 2009-07-31 19:35:45

ためになる回答を見つけました。感激です(IE操作でメッセージのボタンを自動的にクリック) http://q.hatena.ne.jp/1248657374 の回答を見て感激？ VBAでたまにIE操作系の質問を自分のホームページ(h
人力検索はてな InternetExplorerに関する質問です。 Acces.. 2009-10-25 22:17:30
h-ふじた(藤田浩)の日記 - ちょっときになったぺーじ 2010-04-13 18:54:18

ちょっときになったぺーじ ■三流君VBAでIE操作 InternetExplorer.Applicationを操作する (URL:http://www.ken3.org/cgi-bin/group/vba_ie.asp) ■JavaScriptのポップアップのボタンを自動で押すには？ (URL:http://q.hatena.
ken3memo (三流君) - 蛇足脱線横道 VBScript IE操作で javaScriptを実行 Document.Script.setTimeoutをテスト 2011-06-26 16:23:01

蛇足脱線横道 VBScript IE操作で javaScriptを実行 Document.Script.setTimeoutをテストよく、私の例だと、リンクやボタンのオブジェクトを探して .Clickで押したように動作させていますが、 javaScript
はてなグループ - 三流君ken3のひとりグループ - 蛇足脱線横道 VBScript IE操作で javaScriptを実行 Document.Script.setTimeoutをテスト 2012-03-17 05:44:18

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

HALSPECIAL · Answer 1 · 2009-07-27T11:24:20+09:00

スマートでないですが、SendKeys を使えばできます。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Sample()
    '・・・
    Sleep (1000)  '待ちを入れる
    SendKeys "{enter}", True

SendKeysステートメント

HALSPECIAL · Answer 2 · 2009-07-27T14:24:55+09:00

再回答ですみませんが

Sleep で待ちを入れましたか？

回答では

Sleep (1000)　としましたが、

2000とか3000とか待ち時間を増やしても駄目でしょうか？

HALSPECIAL · Answer 3 · 2009-07-27T16:34:42+09:00

何度も済みません。


Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function GetLastActivePopup Lib "user32" _
    (ByVal hWnd As Long) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
     ByVal hWnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
     

Public Sub Sample()
    Dim objIE As Object
    Dim objTag As Object
    Dim i As Long
    
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate2 ("http://kamicha1.web.fc2.com/Excel/Test20090726.html")
    While (objIE.Busy = True): Wend  ' 表示完了まで待つ
    
   
    Set objTag = objIE.Document.getElementsByTagName("INPUT")
    For i = 0 To objTag.Length - 1
        If objTag(i).Value = "OK" Then

'            objTag(i).Click
            '↑ここでClickした後にJavaScriptのConfirm関数で表示されるOKボタンを
            'クリックしたい

            '===================================================================
            'VBAからではなく、ページ中のスクリプトで押させる
            objIE.Document.Script.setTimeout "javascript:document.getElementById('popOK').click()", 200
            'ダイアログが表示されるまで待機
            Dim lngDHnd As Long
            Do
                Sleep (200)
                lngDHnd = GetLastActivePopup(objIE.hWnd)
            Loop While lngDHnd = objIE.hWnd
            'ＯＫボタンを押す
            Const WM_COMMAND = &H111
            Dim lngRc As Long
            lngRc = PostMessage(lngDHnd, WM_COMMAND, 1, 0)
            '===================================================================
          
           Exit For
        End If
    Next i
    
End Sub

（参考）

http://q.hatena.ne.jp/1174026115

http://www.happy2-island.com/bbs/bbs.cgi?mode=past&no=488

回答（3件）

HALSPECIAL407862009/07/27 11:24:20

HALSPECIAL407862009/07/27 14:24:55

HALSPECIAL407862009/07/27 16:34:42

コメント（3件)

この質問への反応（ブックマークコメント）

トラックバック