VBAでIEのボタンを押してメッセージ応答したい

Question

盛りだくさんですみません。ボタンを押してその後表示されたメッセージにVBAで応答したいのですが、ボタンを押した後の制御をVBAに戻せなくて困っています。 CLICKじゃなくてjavascriptで呼んであげると応答をVBAに戻せるようなのですが、エラーにならずに通るけど、メッセージも表示されません。 ↓ objIE.Document.Script.setTimeout "javascript:ExecUp();", 1000 もう私の頭ではお手上げです。どなたかアドバイスいただけると助かります。よろしくお願いします！ボタンのソース＞------------------------------------------------------------ VBA>------------------------------------------------------------ Dim objIE As InternetExplorer Dim url As String url = "http://www*******" Set objShell = CreateObject("Shell.Application") For Each objWin In objShell.Windows If objWin.Name = "Internet Explorer" And objWin.LocationURL = url Then Set objIE = objWin Exit For End If Next If objIE Is Nothing Then Stop Dim objFrame As HTMLDocument Set objFrame = objIE.document.frames Dim i As Long Dim objFrameDoc As HTMLDocument Dim objtag As HTMLDocument For i = 0 To objFrame.Length - 1 Set objFrameDoc = objFrame(i).document For Each objtag In objFrameDoc.getElementsByTagName("input") If objtag.Name = "btnUp" Then objtag.Click '★1 ←ここでIEに制御が渡り、VBAが止まってしまう Sleep 1000 Dim hwnd As Variant hwnd = FindWindow("#32770", "Web　ページからのメッセージ") If hwnd <> 0 Then PostMessage hwnd, WM_COMMAND, vbOK, 0 End If GoTo ext End If Next Next ext:

taisuke555 · Accepted Answer

Frameが絡んだのはやった事が無いのでさらに推測での回答です。

objIE.document.parentWindow.execScript "window.setTimeout(""document.frames(" & cstr(i) & ").document.getElementsByTagName('input')(" & CStr(ri) & ").click

または、

objframedoc.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('input')(" & CStr(ri) & ").click();"",10);"'
推測での回答では、無理がありますので、これ以上の回答は控えます。
objIEからたどってボタンを取得できるようにしないといけないのでは？と思います。（これも推測）

何か参考になるような事が分かれば、またお邪魔します。
ごめんなさい。

taisuke555 · Answer

だめでしたか。ごめんなさいね。
確認ですけど、
objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('input')(" & CStr(ri) & ").click();"",10);"　'★ 
の部分は通っています？

objIE.Document.getElementsByTagName("input")(ri).Click
にした場合、メッセージ表示されますか？

私も試行錯誤した結果なので、ちょっと違うだけでもうまくいかないかも。

こちらで試せればいいんですけどね。

後、ページが完全に読み込まれていなかったりで失敗する事があるので
私は、１度失敗したら１秒待って３回までチャレンジするようにしています。

taisuke555 · Answer

参考になるか分かりませんが、私も先日同じ様な事で悩んでいました。
私の場合はタグが”A"でIDもNAMEもなかったので
　　cn = 0
　　For Each objInput In objIE.Document.getElementsByTagName("A")
　　　　If (objInput.innerText = "ファイル選択") Then
　　　　　　objIE.Document.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('A')(" & CStr(cn) & ").click();"",10);"
　　　　　　Exit For
　　　　End If
　　　　cn = cn + 1
　　Next

という様な感じで作成しました。
これが正解か分かりませんが、とりあえず動いたので良しとしています。

NAMEがあるみたいなので
objIE.Document.parentWindow.execScript "window.setTimeout(""document.getElementsByName('btnUp').click();"",10);"

の様な感じで出来ませんか？

objIE.Document.parentWindow.execScriptはどこかのサイトから探してきた物で
詳細はよくわかりません。（とりあえず動いたので良しとしています。）

WindFallerさんも仰ってますが、検証のしようが無いので、
うまくいかなかったらごめんなさい。

WindFaller · Answer

今の状態では、URLがありませんので、ご質問のコード自体を試すことができません。ですから、想像の範囲しか書けません。ここには、JavaScript で詳しい人もいるようですから、そちらのほうは、こちらでは応えられませんが、私の知る範囲で気がついたことを書かせていただきます。

objtag As HTMLDocument
HTMLDocument は、もともと、テキストのソースを再構成させてオブジェクトにするものではなかったのではないでしょうか。だから、IE オブジェクトから切り離されてしまっているのではないでしょうか。

>objtag.Click '★1 ←ここでIEに制御が渡り、VBAが止まってしまう
objFrameDoc.getElementsByTagName("input")　から、取り出したものを、オブジェクトのまま渡していれば、IEにつながっているけれども、HTMLDocument では、仮想オブジェクトになってしまっています。

それと、
●　>hwnd = FindWindow("#32770", "Web　ページからのメッセージ")
>If hwnd <> 0 Then
●で、止めてみて、ダイアログの　Class:"#32770" は、確かに取れていますか？Windowsアプリのダイアログで、Webでは使わないような気がしたのですが……。

同様のコードを見てみると、サンプルサイトを使っているようですが、JavaScript が必要な場合は、コードの下に出てくるようですが、そうでない場合は、IEオブジェクトを確保したら、その中の objtagの一つを選び、Clickする、今のコードのままで良いはずなのです。

VBAでIEのボタンを押してメッセージ応答したい

Frameが絡んだのはやった事が無いのでさらに推測での回答です。

だめでしたか。

参考になるか分かりませんが、私も先日同じ様な事で悩んでいました。

今の状態では、URLがありませんので、ご質問のコード自体を試すことができません。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング