[發問] 分頁更新問題

spermbank

大家好:

  程式碼:
    With Sheets("分頁1").QueryTables(1)
        .Refresh 0
        .ResultRange.EntireColumn.AutoFit
    End With

因為有時候可能因為網路不穩沒有更新到，導致更新失敗，想請問一下加入什麼可以在更新失敗時，更新直至成功為止。謝謝。

spermbank

With Sheets("分頁1").QueryTables(1)
        On Error Resume Next
        .Refresh 0
        On Error GoTo 0
        .ResultRange.EntireColumn.AutoFit
    End With
   
這樣子加程式可以跑，但是不知道對不對，懇請大家賜教，謝謝。