VBAスクレイピングで同じクラス名の複数のテーブルを読み込むときの対応

Question

すみません、情報収集用のファイルを作っているのですが、同じページにテーブルクラスの名前が複数ダブっているときに、一番上のテーブルしか読み込んできません。

取得先は例えば　https://keiyaku.city.fukuoka.lg.jp/contract/
VBAコードは
Sub 福岡市入札情報一覧取得()
Dim myDriver As New WebDriver
Dim myTable As WebElement
Dim myTDs As WebElements
Dim myTD As WebElement
Dim myRowNo As Integer
Dim i As Integer
With myDriver
.Start "edge"
.Get "https://keiyaku.city.fukuoka.lg.jp/contract/"
Set myTable = .FindElementByCss(".dataBox")
myRowNo = 2
i = 1
Set myTDs = myTable.FindElementsByTag("td")
For Each myTD In myTDs
Cells(myRowNo, i).Value = myTD.Text
i = i + 1
If i = 50 Then
i = 1
myRowNo = myRowNo + 1
End If
Next
.Close
End With
Set myDriver = Nothing
End Sub

これだと結果が現在結果が一般競争入札の「現在公告している案件はありません。」のみ表示されます。
その下のテーブルも同時に取得することはできないものでしょうか？
なにとぞご教授くださいませ。

Answer 1

.FindElementByCss(".dataBox") だと該当する最初の要素しか取得できません。

.FindElementsByCss(".dataBox") というようにsを付けるとコレクション(複数の要素)として取得できますので、それを For Each でまわせばいいでしょう。

次のFor Each myTD In myTDsで For Each は使っているので、使いかたは分かりますよね。

Comments

[TeruakiKozu]

ありがとうございます。For each でどうやって回すのかがわかりません。色々やってみましたがエラー頻発で、恐縮ですがご教授いただけますか？複数要素までは通ったようです。

[hatena19]

下記のような感じでどうでしょう。

For Each myTable In .FindElementsByCss(".dataBox")
myRowNo = 2
i = 1
Set myTDs = myTable.FindElementsByTag("td")
For Each myTD In myTDs

'中略

Next
Next

[TeruakiKozu]

なるほど、試してみます。m(__)m

[TeruakiKozu]

hatena19様
試してみました
が、読み込みがところどころずれるのと、読みこんでいないパートがあるようです。
あと、下から読みに行っているようで、上の物は読み込みませんでした。
間違えている所がありましたら、恐縮ですがご教授ください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝以下コード

Sub 表組みデータ取り込み()
Dim myDriver As New WebDriver
Dim myTable As WebElement
Dim myTables As WebElements
Dim myTDs As WebElements
Dim myTD As WebElement
Dim myRowNo As Integer
Dim i As Integer
Dim s As Integer

With myDriver
.Start "edge"
.Get "https://keiyaku.city.fukuoka.lg.jp/contract/"
For Each myTable In .FindElementsByCss(".dataBox")

myRowNo = 2
i = 1
Set myTDs = myTable.FindElementsByTag("td")

For Each myTD In myTDs
Cells(myRowNo, i).Value = myTD.Text
i = i + 1
If i = 6 Then
i = 1
myRowNo = myRowNo + 1
End If
Next
Next
.Close
End With
Set myDriver = Nothing
End Sub

[hatena19]

一応読み込みができているということなので、For Each の部分の問題ではないと思います。
中のロジックの問題では。
ざっと見た感じでは、

For Each myTable In .FindElementsByCss(".dataBox")

myRowNo = 2
i = 1

の部分、ループで繰り返すたびに同じ値を入力しているので、同じ場所に上書きしていることになっています。

[TeruakiKozu]

なるほどそういうことですか。ありがとうございます。何となく解決方法わかりました。やってみます。