ปัญหา not responding excel

[artist47]

สวัสดีครับ

ผมใช้ VBA ในการทำ Script ที่เกี่ยวกับ การส่ง-รับ ข้อมูล Rest API แล้วนำมาประมวลผล แต่บางครั้งมันมีปัญหาจุกจิกที่แก้ไม่หายครับ

Script VBA ของผม รันตลอดเวลา 24/7 ไม่มีสะดุดจะทำงานจนครบ Loop ที่กำหนดไว้ แต่บางครั้งมันจะสะดุด (นั่นคือตัว Excel จะเกิดการ not responding) ในกรณีที่ Internet ที่เชื่อมต่อมีปัญหา ยกตัวอย่างกรณีที่เกิดขึ้นบ่อยๆนะครับ เมื่อสัญญาณ Internet หลักผิดปกติ ระบบจะทำการเปลี่ยนเป็นเน็ตสำรองให้ ซึ่งช่วงนั้นเอง จะเกิดการ not responding ของตัวโปรแกรม Excel

ฉะนั้นผมจึงมาขอคำชี้แนะครับว่ามีวิธีไหนบ้างที่ทำให้การส่งคำขอ api ยกเลิกภายในเวลาที่กำหนดครับ หรือวิธีใดก็ตามที่ป้องกันการเกิด not responding กรณี Internet มีปัญหา ครับ

ผมได้แนบ Code ส่วนหนึ่งที่เกี่ยวข้องมาด้วยครับ

Code: Select all

Dim sJSONString As String
    Dim vJSON
    Dim sState As String
    Dim vFlat
    Dim web As String
    
    web = x1.com
    
    ' Retrieve JSON response
    With CreateObject("MSXML2.ServerXMLHTTP") 'CreateObject("MSXML2.XMLHTTP")
    
        .Open "GET", web, False
        .setRequestHeader "Content-Type", "application/json"
        '.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
        
        .send
        
        Do Until .readyState = 4: DoEvents: Loop
        sJSONString = .responseText

ขอบคุณล่วงหน้าครับ

[snasui]

ลองเพิ่มตัวหน่วงเวลาและตัวนับเข้าไปช่วยตามตัวอย่างด้านล่างครับ

Do Until .readyState = 4: DoEvents: Application.Wait Now() + TimeValue("0:00:10"): i = i + 1: If i > 1000 Then Exit Sub: Loop

Code ด้านบนหน่วง 10 วินาที หากครบ 1000 ครั้งจะออกจาก Procedure ครับ

[artist47]

กำลังลองนำมาปรับใช้ครับ ถ้ายังพบปัญหาจะกลับมาแจ้งให้ทราบครับ

ขอบคุณมากๆสำหรับคำแนะครับ