多数のページからテーブルからデータをダウンロードしようとしています。(テーブルクエリ)
ページ番号のインデックスを実行します - 問題は特定のページが存在しないことがあり、特定のテーブルをダウンロードできないという実行時エラーが表示されます。
最初にデータがあるかどうかを確認してからダウンロードする方法はありますか?
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)