###前提・実現したいこと
VBAで特定の検索サイトにアクセスし、エクセル上の文字列を入れたうえで検索ボタンを押す、という動作をエクセルVBAで作成したいと考えています。
###発生している問題・エラーメッセージ
エラーメッセージはありませんが、反応がありません。
###該当のソースコード
VBA
1Dim objIE As InternetExplorer 2Set objIE = CreateObject("internetexplorer.application") 3objIE.Visible = True 4objIE.Navigate "URL(AAA)" 5 6'ページ出力待ちプログラム(省略) 7 8Dim i As Long 9Dim maxrow As Long 10 11 For i = 2 To maxrow 12 maxrow = Workbooks("BBB").Worksheet("CCC").Cells(Rows.Count, 2).End(xlUp).Row 13 14MsgBox maxrow 15 16 Dim keyword As String 17 keyword = Workbooks("BBB").Worksheet("CCC").Cells(i, 2) 18 19'①試したことに記載 20 21Dim objInpTxt As HTMLInputTextElement 22Set objInpTxt = objIE.document.getElementsByName("DDD")(0) 23 24objInpTxt.Value = keyword 25 26Dim objbutton As Object 27For Each objbutton In objIE.document.getElementsByName("EEE") 28 29If InStr(objbutton.outerHTML, "ボタン") > 0 Then 30 31'buttonボタンクリック 32objbutton.Click 33 34End If 35Next 36 37 'ページ待ち処理(省略) 38 39Next i 40 41End Sub 42
###試したこと
IEが起動して、ページに飛んだあとが処理されないのでiやmaxrowなどをdebug.printやMsgBoxなどで確認しようとしましたが、これもうまくいきませんでした。
###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2007 VBA
回答1件
あなたの回答
tips
プレビュー