質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
スクレイピング

スクレイピングとは、公開されているWebサイトからページ内の情報を抽出する技術です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

2031閲覧

VBAによるIE操作(ボタンを押す)について

dainamo22

総合スコア3

スクレイピング

スクレイピングとは、公開されているWebサイトからページ内の情報を抽出する技術です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/06/11 02:20

前提・実現したいこと

お世話になります。
現在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にて作成しました。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

ie.getElementById("btnsearch").Click

についてですが、2点の問題があります。

1つ目は、構文は

ie.getElementById(id).Click

ではなく、

ie.Document.getElementById(id).Click

です。

次に、該当サイトに"btnsearch"というIDがなければ、上記コードもエラーとなります。
(実際には、"btnsearch"ではなく、"btnSearch"がIDとして使用されています。)
このため、

ie.Document.getElementById("btnSearch").Click 'Sが大文字

であればクリックが行われますが、

ie.Document.getElementById("btnsearch").Click 'sが小文字

の場合は、"btnsearch"というIDが該当ページに存在しない(ie.Document.getElementById("btnsearch")という要素がない)ためエラーとなってしまいます。

投稿2020/06/11 06:18

編集2020/06/11 06:34
kenshirou

総合スコア772

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

dainamo22

2020/06/11 06:53

早速の回答ありがとうございます。 結果ですが、動作しました。 ご指摘いただいた、.Documentが足りなかった点はミスだったと感じましたが、ID検索の大文字小文字の違いによるエラーは全く思い浮かびませんでした。(vbaは大文字小文字を反映させないと勝手な思い込みでした) ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問