Excel VBA - 跳过错误无法打开http：//

Question

我有一个很大的excel文件，它通过不同网站的不同模块加载数据，然后继续导出每个工作表。有时会发生一个站点没有工作几秒钟，然后出现恼人的消息：“无法打开http：// ...”阻止执行循环，无法以任何方式删除。唯一的解决方案是获取vps并按“确定”按钮重新启动整个。以下是负责更新数据的指令代码：

Sub UpdateData()
    Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.RefreshAll
    On Error Resume Next
    Application.CalculateFull
    Call CSVExport1
End Sub