前提・実現したいこと
お世話になります。
現在VBAを使用して、あるサイトよりスクレイピングするプログラムを作成中です。
まず手始めに該当のページを表示して、「検索開始」と書かれたボタンを押す動作をVBAで実現したいと考えてプログラムを作成したのですが、ページの表示まではされるのですが、「ボタンを押す」という動作がうまく動きません。
こちらのコードで動かない理由・対策などご教示いただけますでしょうか?
よろしくお願いいたします。
発生している問題・エラーメッセージ
エラーメッセージ
実行時エラー '438'
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
該当のソースコード
Sub 入札情報サービスの検索開始ボタン押す() Dim ie As Object Const rurl As String = "http://www.i-ppi.jp/IPPI/SearchServices/Web/Gyomu/Keika/Search.aspx" Set ie = CreateObject("InternetExplorer.application") ie.Visible = True ie.navigate rurl Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop ie.getElementById("btnsearch").Click End Sub
試したこと
該当のボタンのHTMLは以下の通りです
<input name="btnSearch" id="btnSearch" language="javascript" onclick="closeSearchHachuWindow();" type="submit" value="検索開始">補足情報(FW/ツールのバージョンなど)
Excel2019にて作成しました。
http://oirnao.blogspot.com/2011/04/vbajavascript.html?m=1
https://teratail.com/questions/260328#reply-375020
こちらは参考になりませんか。
http://oirnao・・・・のurlは一部変更して下記urlで動作確認しました。
https://teratail.com/questions/263116#reply-377483
回答1件
あなたの回答
tips
プレビュー