Я использую объект MSXML.HTTPRequest в макросе VB (Excel) для связи с HTTP-сервером. Проблема в том, что он периодически выдает следующую ошибку.

msxml3.dll -2146697211 Системе не удается найти указанный ресурс.

Я заметил в своей системе, что это произошло, когда сеть не работала, но мой клиент жаловался на то, что это периодически происходит на его компьютере. Учитывая, что в его системе установлена Windows 7, и она иногда работает, я не думаю, что это проблема правильной библиотеки, которая не была установлена. Он попробовал это в нескольких сетях, но это все еще не удается.

Function xmlHTTPPost(strURL, strData)
  Dim objHttp

  On Error Resume Next
  xmlHTTPPost = ""
  Set objHttp = CreateObject("Microsoft.XMLHTTP")
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = CreateObject("MSXML2.XMLHTTP")
  End If
  If Err.Number <> 0 Then
      MsgBox "Error creating XMLHTTP object"
      Err.Clear
      Exit Function
  End If
  objHttp.Open "GET", strURL, False
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = Nothing
      Exit Function
  End If
  objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objHttp.setRequestHeader "User-Agent", "Mozilla Compatible (MS IE 3.01 WinNT)"
  objHttp.Send
  If Err.Number <> 0 Then
      MsgBox "Error " & Hex(Err.number) & " sending to server:" & vbCrLf & Err.description
      xmlHTTPPost = "ERROR: " & Err.Source & " " & Err.Number & " " & Err.Description
      Err.Clear
  Else
      xmlHTTPPost = objHttp.responseText
  End If
  Set objHttp = Nothing
End Function

Он отлично работает на моем компьютере, который является установкой Windows 7 + Microsoft Office 2007.

Я много искал в Интернете, и две причины были смутно указаны.

Network issues due to proxy or firewall. In this case it should never connect, not intermittently. Library installation issue. Again, it shouldn't work at all but that's not the case.

Я был бы очень признателен за любую помощь в этом.