Q&A
document.getElementByTags("tr").length が 0 になるというのは本当でしょうか？
JavaScript の document オブジェクトに一般的に定義されていない関数 getElementByTags の実行は、ほとんどの環境、ページでエラーになると思います。
できればコードは実際に実行したものをコピペで掲載してください。
###現状
Webページ上の表のデータをExcelで取得しようとしています。
VBA
1 2 Dim htmlDoc As HTMLDocument 3 Set htmlDoc = objIE.document 4 5 Dim objA As Object 6 For Each objA In htmlDoc.getElementsByTagName("tr") 7 '処理 8 Next
をステップインしながら実行すると、処理文に入っていないことが分かりました
（For文の次に、処理文はおろかNextに触れずに出てしまっています）
###試したこと
そこで、試しに対象ページのコンソールで
javascript
1document.getElementsByTagName("tr").length
を取得しようとすると、何故か0と表示されてしまいます。
同様に、同表内の要素のidを同様にgetElementByIdで取得しようとしてもnullとなってしまいます。
(追記)大変素人質問で申し訳ないのですが、実はiframe内の要素だったようでhtmlDocでは直接取得できないみたいですね。そこで、iframe内のtr要素の取得方法を教えてください!
###利用環境
IE 11.0.180
Windows 10 Home 1809
Office Home and Business Premium
今日VBAを勉強したてなので素人で申し訳ありませんがよろしくお願いします！
回答2件
0
ベストアンサー
をステップインしながら実行すると、処理文に入っていないことが分かりました
（For文の次に、処理文はおろかNextに触れずに出てしまっています）
もしエラートラップのコードがあるならそれをコメントアウトして実行した場合、エラーメッセージはでますか。でるなら、そのエラーメッセージを質問に追記してください。
エラーは出ないが、Forはスルーするということなら、下記のように書き換えて、イミディエイトウィンドウにどのように表示されるか確認してみてください。
vba
1 Dim htmlDoc As HTMLDocument 2 Set htmlDoc = objIE.document 3 4 5 Dim colTR As As IHTMLElementCollection 6 Set colTR = htmlDoc.getElementsByTagName("tr") 7 Debug.print "テーブルの行数:" & colTR.length 8 9 Dim objA As Object 10 For Each objA In colTR 11 '処理 12 Next
もし、テーブルの行数:0 とイミディエイトに出力されたなら、
読み込み後に、スクリプト等で動的にテーブルデータを出力している可能性があります。
APIのSleepで少し待機する処理を挿入するか、行数が想定数を超えるまでループで繰り返すようにするか、の対策をしてくみてください。
投稿2020/04/04 14:07
編集2020/04/05 00:54
総合スコア34075
ご回答ありがとうございます。
Set colTRの後にSleep 10000を入れてみましたが、やはり行数０と表示されてしまいました。
どうしたらよいのでしょうか?
Set colTRの前に Sleep 10000 を入れたらどうなりますか。
もし、それでも テーブルの行数:0 となるなら、実際のURLとコードを提示してもらわないと原因の特定は難しいかも。提示してもらえば必ず特定できるとも限りませんが。
もし、そのサイトがスクレイピングできないように対策をしているとしたら、無理にデータ取得すると不正アクセス禁止法に抵触する恐れもありますので、そのサイトの規約をまずは確認する必要があります。
行数０でした
本当に素人で申し訳ないのですがiframe内の要素だったみたいで、コンソールのターゲットをframeに変更すると正しいgetElementsの値が出てきました
そこで、iframe内のtr要素を取得する方法を教えていただけますか？
> コンソールのターゲットをframeに変更すると正しいgetElementsの値が出てきました
そのコードをVBA用に書き換えればいいと思うのですが。
どのようなコードで確認しましたか。
ieのコンソールのターゲットのタブを変更すると「現在のウィンドウ：iframeのsrc」と出てきてもう一回打っただけなのでどのようにvbaで書けばいいのかわからないです...
下記をご参考に。
Excel VBAでIEを操作 iframe（インナーフレーム）を操作する - ie-excel
https://ie-excel.com/excel-vba%E3%81%A7ie%E3%82%92%E6%93%8D%E4%BD%9C%E3%80%80iframe%EF%BC%88%E3%82%A4%E3%83%B3%E3%83%8A%E3%83%BC%E3%83%95%E3%83%AC%E3%83%BC%E3%83%A0%EF%BC%89%E3%82%92%E6%93%8D%E4%BD%9C%E3%81%99%E3%82%8B/
ありがとうございます。
何度もすみませんが、td要素のinnerTextを取得しようとすると書き込みできません(70)が出てしまいますがこれはどうしたらよいのでしょうか？
これ以上は、実際の動作するコードと対象URLで検証しないと回答は難しいです。
また、内容によってはボランティアのこのようなサイトでのやり取りでは難しいかも。
承知しました。本当にありがとうございました！
あなたの回答
tips
プレビュー
