標題: [發問] 分頁更新問題 [打印本頁]

---

作者: spermbank    時間: 2014-3-4 20:41     標題: 分頁更新問題

大家好:

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

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

---

作者: spermbank    時間: 2014-3-6 20:49

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)