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

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

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

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

Q&A

解決済

3回答

1643閲覧

VBAによるinnertextの使い方について

dainamo22

総合スコア3

VBA

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

0グッド

0クリップ

投稿2020/06/18 00:33

編集2020/06/18 00:51

前提・実現したいこと

お世話になっております。

IE操作によるスクレイピングをvbaで行っています。
今回の質問は、IEを操作し、サイト上で検索結果を表示させた時に「検索結果数」が表示されます。
その件数を取得するプログラムを書いてみたのですがうまく動きません。
私のプログラムの問題点・解決策をご教示していただけますと助かります。
よろしくお願いいたします。

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

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

該当のソースコード

Sub 入札情報サービスからの情報取得() Dim ie As Object Dim time As Long Dim num As Object time = 1000 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 'IE読み込む DoEvents Loop ie.document.getElementById("drpTopKikanInf").Value = "0" '大分類選択 ie.document.getElementById("drpTopKikanInf").onchange Sleep time '待ってあげないと処理がうまく進まないため入れた ie.document.getElementById("drpLargeKikanInf2").Value = "21" '中分類選択 ie.document.getElementById("drpLargeKikanInf2").onchange Sleep time '待ってあげないと処理がうまく進まないため入れた ie.document.getElementById("drpMiddleKikanInf").Value = "09" '小分類選択 ie.document.getElementById("drpMiddleKikanInf").onchange Sleep time '待ってあげないと処理がうまく進まないため入れた ie.document.getElementById("drpSmallKikanInf").Value = "129" '細分類選択 Sleep time ie.document.getElementById("drpCount").Value = "100" '一覧画面の表示件数を100件に Sleep time ie.document.getElementById("btnSearch").Click '検索開始のボタンを押す Sleep time Set num = num.document.getElementById("lblSearchCount").innerText Debug.Print num End Sub

試したこと

読み込みを終わるまで待つようにsleep timeを入れてみましたが、結果は変わりませんでした。

補足情報(FW/ツールのバージョンなど)

該当のIDのHTMLは以下の通りです

<span id="lblSearchCount" class="search_count">216</span>

Excel2019にて作成しました。

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

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

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

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

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

guest

回答3

0

これではどうですか。
Set num = ie.document.getElementById("lblSearchCount")
Debug.Print num.innerText

投稿2020/06/18 02:16

tosi

総合スコア553

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

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

dainamo22

2020/06/18 02:26

ご回答ありがとうございます。 提案いただいたプログラムも参考にしたいと思います。 ありがとうございました。
guest

0

ベストアンサー

vba

1Dim num As Object 2 3'中略 4 5Set num = num.document.getElementById("lblSearchCount").innerText

innerText は文字列(String型)を返します。オブジェクトではないので、 「オブジェクト変数または with ブロック変数が設定されていません。」というエラーになります。

あと、num.documentie.document ですね。

下記に修正すればいいでしょう。

vba

1Dim num As String 2 3'中略 4 5num = ie.document.getElementById("lblSearchCount").innerText

投稿2020/06/18 01:23

編集2020/06/18 01:26
hatena19

総合スコア33620

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

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

dainamo22

2020/06/18 02:21

ご回答ありがとうございます。 求めていたものが実現できました。 innertextが文字列を返すという点、全く考えておりませんでした。 助かりました。 ありがとうございました。
guest

0

innerTextはオブジェクトではないので、Setは使えないと思います。

VBA

1Dim num As String 2num = num.document.getElementById("lblSearchCount").innerText 3Debug.Print num

投稿2020/06/18 01:22

ttyp03

総合スコア16996

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

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

dainamo22

2020/06/18 02:22

ご回答ありがとうございます。 ご指摘のとおり、setは使えませんでした。 ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問