Hey there, let's figure out why your VBA request keeps timing out—even with a reliable test URL like JSONPlaceholder. Timeouts here almost always boil down to network configuration, security settings, or missing setup steps. Let's walk through actionable fixes:

1. Force TLS 1.2 (Critical for HTTPS Requests) #

Most modern APIs block older SSL/TLS versions, but WinHttpRequest might default to them by default. Add these lines right before objHTTP.Send to ensure you're using a supported protocol:

' Force TLS 1.2 (required for most HTTPS sites)
objHTTP.Option(WinHttpRequestOption_SecureProtocols) = &H800
' Set a 10-second timeout to avoid hanging indefinitely
objHTTP.Option(WinHttpRequestOption_ConnectTimeout) = 10000
' Tell the server we expect JSON
objHTTP.SetRequestHeader "Accept", "application/json"

Note: If you run into SSL certificate errors temporarily, you can add objHTTP.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300 for testing—but remove this once you confirm the request works, as it skips important security checks.

2. Handle Proxy Configuration (If Behind a Corporate Network) #

WinHttpRequest doesn't always pick up system proxy settings automatically. Add this right after creating the object:

' Auto-detect system proxy settings
objHTTP.SetAutoProxyConfiguration WinHttpRequestAutoProxyConfig_Automatic
' If auto-detect fails, manually set your proxy (replace with your details):
' objHTTP.SetProxy 2, "your-proxy-server:port"

3. Add Error Handling to Diagnose the Exact Issue #

Instead of just timing out, let's get concrete error details. Wrap your code in error handling like this:

Sub Test()
    Dim strResult As String
    Dim objHTTP As Object
    Dim URL As String
    
    On Error GoTo ErrorHandler
    
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    URL = "https://jsonplaceholder.typicode.com/posts/2"
    
    ' Configure request settings first
    objHTTP.Option(WinHttpRequestOption_SecureProtocols) = &H800
    objHTTP.Option(WinHttpRequestOption_ConnectTimeout) = 10000
    objHTTP.SetRequestHeader "Accept", "application/json"
    
    objHTTP.Open "GET", URL, False
    objHTTP.Send
    
    strResult = objHTTP.ResponseText
    Debug.Print strResult ' Check the Immediate Window (Ctrl+G) for the result
    
    Exit Sub
    
ErrorHandler:
    MsgBox "Error: " & Err.Description & vbCrLf & "HTTP Status Code: " & objHTTP.Status
End Sub

This will pop up a message with specific errors (like 403 Forbidden, or a network connectivity message) instead of just hanging.

4. Check Firewall/Antivirus Restrictions #

Sometimes local security tools block VBA from making outbound requests. Try temporarily disabling your firewall/antivirus (carefully!) to see if that fixes the timeout. If it does, add an exception for Excel or WinHTTP in your security settings.

5. Try MSXMLHTTP as an Alternative #

If WinHttp keeps failing, switch to MSXMLHTTP—it often has better compatibility with system settings:

Sub TestWithMSXML()
    Dim strResult As String
    Dim objXML As Object
    Dim URL As String
    
    Set objXML = CreateObject("MSXML2.XMLHTTP.6.0")
    URL = "https://jsonplaceholder.typicode.com/posts/2"
    
    objXML.Open "GET", URL, False
    objXML.SetRequestHeader "Accept", "application/json"
    objXML.Send
    
    strResult = objXML.ResponseText
    Debug.Print strResult
End Sub

After trying these steps, run the code in the VBA Editor (Alt+F11) and check the Immediate Window (Ctrl+G) for the JSON response. If you still get timeouts, the issue is likely with your network setup—reach out to your IT team to confirm outbound requests to these URLs are allowed.

内容的提问来源于stack exchange，提问作者bobsmith