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

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

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

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

VBA

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

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

検索

検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

Q&A

1回答

2747閲覧

【マクロ スクレイピング】実行時エラー91が表示され進まない

jonjonjopn

総合スコア0

スクレイピング

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

VBA

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

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

検索

検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

0グッド

0クリップ

投稿2021/05/18 05:46

前提・実現したいこと

ヤフーのインプットボックスに入力された用語をヤフーの検索窓に転記し、検索ボタンをクリックする

機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

実行時エラー91 オブジェクト変数またはwithブロック変数が設定されていません。

該当のソースコード

  Sub 検索窓に任意の文字列を入力して検索()

Dim keyword As String keyword = InputBox("キーワードを入力してください") Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://www.yahoo.co.jp/" Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop Dim htmlDoc As HTMLDocument Set htmlDoc = objIE.document htmlDoc.getElementsByTagName("input")(7).getElementsByClassName("ai")(0).Value = keyword Debug.Print htmlDoc

  End Sub

### 試したこと スクレイピング初心者で初歩的なミスかもしれませんが、ご回答宜しくお願い致します。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。

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

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

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

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

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

guest

回答1

0

htmlDoc.getElementsByTagName("input")(7).getElementsByClassName("ai")(0).Value = keyword

で、要素が見つかってないのでしょう。一気にやらず、少しずつ確認しながら進めましょう。

VBA

1set x = htmlDoc.getElementsByTagName("input") 2if x.Length > 7 then 3 set y = x(7).getElementsByClassName("ai") 4 if y.Length > 0 then 5 y(0).Value = keyword 6 else 7 debug.print "aiが無い" 8 end if 9else 10 debug.print "inputが7つ以下しかない" 11end if

投稿2021/05/18 07:33

otn

総合スコア84775

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

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

jonjonjopn

2021/05/19 00:58

ご回答ありがとうございます。 実行してみたところ、inputの数は8個(7)で間違いありませんでした。 しかし"ai"がないという結果になりました。コンソールには"ai"があるのですがなぜないという判断になったのでしょうか? また、インプットボックスに入力するにはValueの値を変換するという認識で大丈夫でしょうか? 質問ばかりで申し訳ありませんが、お時間があればご返答お待ちしております。
otn

2021/05/19 02:19

このコードだと、求めているのは「8つめのinputタグの子孫ノードの、name="ai"のタグ」ですが、 認識あってますか? inputタグには子孫ノードがないので、見つからないのが当然かと思います。 8つめのinputタグ自身がname-"ai"では?
jonjonjopn

2021/05/19 07:40

ご回答ありがとうございます。 javaの知識がなく、正確に理解しておりませんでした。ご指摘ありがとうございます。 申し訳ありませんが、もう1点ご質問がございます。 「検索」のコードが下記のようになっております。 <button class="_63Ie6douiF2dG_ihlFTen rapid-noclick-resp" type="submit"><span class="_3s3YPSCNUcgAFkPwVeRyfT"><span class="PHOgFibMkQJ6zcDBLbga8">検索</span></span></button> 検索ボタンをクリックしたく、下記のようにコードを書いたのですが、実行されません。なぜでしょうか? また、スクレイピングを学び始めて間もないので、お勧めの参考書やサイトなどがございましたら、お教えいただければと思います。 htmlDoc.getElementsByClassName("_63Ie6douiF2dG_ihlFTen rapid-noclick-resp").Click
otn

2021/05/20 05:25

getElementsByClassNameの結果は複数を示すsが付いていることからわかるように、ノードのリストです(配列のような物)。 クリックできるのはノードなので、結果リストの長さが0でないことを確認の上、0番目の要素をクリックしましょう。 また、見た感じでは _63Ie6douiF2dG_ihlFTen は、動的なクラス名で、ページを表示されるごとにクラス名が変わるのでは?おそらくその名前で探しても見つからないと思います。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

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

ただいまの回答率
85.46%

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

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

質問する

関連した質問