ปิดใช้งาน“ ไม่สามารถเปิด <URL> ข้อผิดพลาดไม่พบเซิร์ฟเวอร์อินเทอร์เน็ตหรือพร็อกซีเซิร์ฟเวอร์

ฉันเคยมีปัญหานี้ใน Excel 2003 แต่อาจเป็นเช่นนั้นในรุ่นก่อนหน้า

ฉันมีสเปรดชีต Excel ที่นำเข้าข้อมูลโดยใช้แบบสอบถามเว็บซึ่งเชื่อมต่อกับหน้าเว็บที่โฮสต์ในเซิร์ฟเวอร์ของ บริษัท ของฉัน ข้อมูลมีการเปลี่ยนแปลงทุกวันและ URL ก็มีดังนั้นฉันจึงมีแมโครที่ดูแลการเปลี่ยนแปลง URL และรีเฟรชข้อมูลทั้งหมดโดยอัตโนมัติทุกชั่วโมง

มันใช้งานได้ดี แต่บางครั้งเซิร์ฟเวอร์ของ บริษัท ก็ล่ม เมื่อมาโครของฉันพยายามเชื่อมต่อกับเซิร์ฟเวอร์และมันไม่ทำงานกล่องข้อความต่อไปนี้จะปรากฏขึ้น: "ไม่สามารถเปิดไม่พบเซิร์ฟเวอร์อินเทอร์เน็ตหรือพร็อกซีเซิร์ฟเวอร์" Excel จะหยุดแมโครเมื่อใดก็ตามที่สิ่งนี้เกิดขึ้นและมันจะไม่ดำเนินต่อไปจนกว่าฉันจะคลิกปุ่มยอมรับด้วยตนเอง นี่เป็นปัญหาใหญ่เนื่องจากข้อมูลจะต้องได้รับการปรับปรุงอย่างต่อเนื่อง

ฉันค้นหาหลายวิธีในการแก้ปัญหา ฉันพยายามเพิ่มตัวจัดการข้อผิดพลาด "Application.DisplayAlerts = False" ที่ด้านบนสุดของแมโครและฉันก็ทำเช่นนั้น นี้ แต่ไม่มีประโยชน์

นี่คือรหัสของฉัน:

Sub ChangeURL()
    Application.DisplayAlerts = False
    On Error Resume Next
    Dim NewURL As String
    Dim Today As String
    'M1 contains today's date formatted as text
    Today = Range("M1").Value
    NewURL = "URL;http://www.example-url.com/data/date=" & Today
    'Change the table's URL so it gets today's data
    With ActiveSheet.QueryTables(1)
        .Connection = NewURL
    End With
    ActiveWorkbook.RefreshAll
    'Re-execute the macro after an hour has passed
    Application.OnTime Now + TimeValue("01:00:00"), "Change", , True
    Application.DisplayAlerts = True
End Sub

มีวิธีปิดการใช้งานกล่องข้อความเหล่านี้อย่างแท้จริงหรือไม่?

บางสิ่งเช่นนี้อาจเป็นการหลอกลวง

Sub MyMacro()

    code...code...code
    ....trying to connect....
    On Error GoTo ErrorHandler
    code...code...code
    Exit Sub

ErrorHandler:
    . . .
    Resume <or Exit Sub>
    . . .

End Sub

จาก: https://support.microsoft.com/en-us/kb/141571