0

多数のページからテーブルからデータをダウンロードしようとしています。(テーブルクエリ)

ページ番号のインデックスを実行します - 問題は特定のページが存在しないことがあり、特定のテーブルをダウンロードできないという実行時エラーが表示されます。

最初にデータがあるかどうかを確認してからダウンロードする方法はありますか?

Dim i As Long
 Dim lastRow As Long 
For i = 120111 To 130000
 If (i Mod 100 = 11) Or (i Mod 100 = 21) Or (i Mod 100 = 31) Or (i Mod 100 = 41) Then 
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row + 1
 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://...roundNum=" & i ,Destination:=Range("A" & lastRow)
4

1 に答える 1