VBA IE操作 Classタグ読み取り、途中終了方法 Excel2003、VBAで組んでます。 削除
| Message#1 2014年11月28日(金)19時37分 From: vba_vba |
| VBA IE操作 Classタグ読み取り、途中終了方法 Excel2003、VBAで組んでます。 IEを操作し、指定のClaas名のもののみを抽出しようとしております。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1113876504... 現在は抽出作業までできましたが、 途中でエラーが出てしまい、どうすれば上手く進められるのか分からないので 質問させて頂きました。 Forループの中は、1周目はOK 2週目OK 3週目で躓く？ みたいです。 For i = 1 To Maxrow Call IE_OPEN_NEXT(.Range("C" & i)) Set doc = ie.document For Each tr In doc.getElementsByTagName("table")(0).getElementsByTagName("tr") Set tds = tr.getElementsByTagName("td") Dim ClassNameData MaxColumn = .Cells(i, Columns.Count).End(xlToLeft).Column + 1 On Error GoTo Endding If Not IsNull(tds.Item(0).getAttribute("class")) Then ClassNameData = tds.Item(0).getAttribute("class") If ClassNameData = "menu" Or ClassNameData = "setting" Then .Cells(i, MaxColumn) = Trim(tds(0).innerText) & " " & Trim(tds(1).innerText) .Cells(i, MaxColumn + 1) = Trim(tds(2).innerText) & " " & Trim(tds(3).innerText) End If End If Next このような書き方にしたのですが、 2週目にて必ずWithがどうのっていうエラーが出て上手く行きません。 （オブジェクト変数またはWithブロック変数が設定されてません）と出ます。 If Not IsNull(tds.Item(0).getAttribute("class")) Then でエラーが出ます。 止まったときにローカル？を見てみると tds には item が１つもありませんでした。 開いているページのデータ構成は、変わらないものです。 回答よろしくお願い致します。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
