VBAでスクレイピング

質問

エクセルマクロを用いてスクレイピングをしようと思っているのですがなかなか思うようにいきません。

やっていることはクエリを投げてかえってくるページを切り出してセルに格納したいというものです。

以下、コードの一部になります。
objX = objIE.Document.getElementById("xx").getElementsByTagName("yy")

For n = 0 To objX.Length -1
If InStr(objX(n).OuterHTML, "zz") > 0 Then
Cells(1, n+2) = objX(n).InnerText
Sleep(1000)
End If
Next

こんな感じです。
やりたいこととしては
1. Cell(1,1)に入ってる数字でクエリ投げる
2.ページを表示
---ここまではできました---
3.idだけでは絞れなかったのでTagで絞って連想配列(?)化
4.さらにclass属性=zzのタグだけ抽出
5.それを1行目に要素分だけ列で代入

n+2の部分をどうにかして合致するセルだけ詰めて入力というのはどうやるんでしょうか？今のままではデータはとれますが空欄を処理せねばなりませんで、とても煩わしいです。

Cell(1,2) = objX(n).InnerTextとすると一個目しかとってこれないし…

getElementsByClassNameがあれば解決なのでしょうが…IEの挙動が怪しくて使えません。

どうにかなりませんか？

回答No.1

a_green_wind · ベストアンサー

勘違いであれば、ごめんなさい。

以下のようにすればよいと思いますが、そんな単純なことではないのでしょうか。

objX = objIE.Document.getElementById("xx").getElementsByTagName("yy")

i=0
For n = 0 To objX.Length -1
If InStr(objX(n).OuterHTML, "zz") > 0 Then
Cells(1, i+2) = objX(n).InnerText
i = i + 1
Sleep(1000)
End If
Next

それから Sleep(1000) は何のために実行しているのでしょうか。

お礼

あ、なるほど…うっかりしておりました、もういっこ変数入れて回せばよいだけですね…

Sleepに深い意味はありません、これもループになっていて実際はCell(x, i+2)のような感じで処理するのであまり素早くまわすと捕まるかなと思いまして一応いれていますが、画面表示した段階でのSleepは意味ないかもですね。

ありがとうございました。