excel - 没有要下载的表时绕过运行时错误（Excel 宏）

Question

我正在尝试从多个页面的表中下载数据。（表查询）

我浏览了页码索引-问题有时是某些页面不存在，并且我收到一个运行时错误，指出它无法下载特定的表。

有没有办法检查是否有数据第一然后下载它？

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)

Answer 1

由于您没有在代码中发布实际网址，因此我无法对此进行测试，但是您不能在其中添加 On Error Resume Next 以跳过错误吗？还是您需要能够实际跟踪失败的那些？在这种情况下，您可以编写一个错误处理程序。

Sub Download()
   Dim i As Long
   Dim lastRow As Long
   On Error Resume Next
   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:="..." & i, Destination:=Range("A" & lastRow))
       End If
   Next i
End Sub