ここから本文です

EXCEL VBAでIEの"Internet Explorer_Server"からテーブルのデータ全部抜きたいです...

sug********さん

2014/7/1511:19:49

EXCEL VBAでIEの"Internet Explorer_Server"からテーブルのデータ全部抜きたいです。
この質問のベストアンサーを参考に、以下のコードを書いたんですが動きません。

ウォッチ式でオブジェクトの構造見てみたんですがどこに目的のデータがあるかわかりませんでした。(なんかItem256までしか表示されてない?)
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1013163525...
↑このコード自体は正常に動いてMsgboxで一番初めのaタグの内容を出力しました。


set Doc = objIE.Document

For i = 0 To Doc.all.Length -1
If Doc.all(i).tagName = "TD" Then
c = c + 1
Cells(r,c).Value = Doc.all(i).innerText
ElseIf Doc.all(i).tagName = "TR" Then
r = r + 1
c = 1
End If
Next


Dim Doc As Objectを宣言した後、
set Doc = objIE.Document
と書くとエラーが出ます。HTMLDocumentの時はエラーが出ませんでした。
どう修正すればいいか教えてください。

補足VBEでエラーは出ないんですが、テーブルのinnerTextが一つも出てきません><
ソースコードにTHのテーブルはあります。If文でタグを判定できてないみたいです。どうすればいいでしょうか?

Set THobj = ie.body.all
r = 1
c = 1

For i = 0 To THobj.Length - 1
If THobj(i).tagName = "TH" Then
Cells(r,c).Value = THobj(count).innerText
c = c + 1
ElseIf THobj(count).tagName = "TR" Then
r = r + 1
c = 1
End If
Next Count

閲覧数:
111
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

jun********さん

2014/7/1515:28:24

補足のコードですが、いつの間にか、カウンター変数が「count」に入れ替わっています。これが転記ミスでなければ、修正して試してみてください。方法自体は間違っていないはずですので・・・。

質問した人からのコメント

2014/7/15 19:37:02

笑う 回答ありがとうございます。なんとTHじゃなくて、TRでした(笑)。そこを修正したらちゃんと取れました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる