###前提・実現したいこと
リンク内容
エクセルVBAでIE操作の勉強をしています。
上記リンクサイトのボタン「モーダルダイアログ(都道府県選択画面)を開く」ボタンをclick操作しても、反応がありません。
マウスで手動クリックすると、モーダルダイアログ(子画面)が表示されます。
これを、エクセルVBAで子画面を自動表示させたく、ご教示願います。
###エクセル VBAコード
Option Explicit '(2)強制的に前面にさせる Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Sub buttonClick() Dim ie As Object Dim IE2 As Object Dim button As Object Dim htdoc As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://www.nishishi.com/javascript/2014/data-inout-modal-dialog.html" SetForegroundWindow (ie.hWnd) 'ie最前面 Do While ie.Busy Or ie.readyState < 4 'ie画面表示まち DoEvents Loop Set htdoc = ie.document For Each button In ie.document.getElementsByTagName("INPUT") If button.Type = "button" And button.Value = "モーダルダイアログ(都道府県選択画面)を開く" Then button.Click '※クリックしても子画面が開かない。 Exit For End If Next End Sub
###試したこと
他のサイトのボタン操作は上記コードで問題なく動いています。
###補足情報(言語/FW/ツール等のバージョンなど)
IE11 excel2013
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/02/05 12:21
2017/02/05 13:20
2017/02/05 21:53