Błąd z kodu makra VB excel - msxml3.dll -2146697211 System nie może zlokalizować określonego zasobu
Używam obiektu MSXML.HTTPRequest w makrze VB (excel) do komunikacji z serwerem HTTP. Problem polega na tym, że sporadycznie generuje następujący błąd.
msxml3.dll -2146697211 System nie może zlokalizować określonego zasobu.
Zauważyłem w moim systemie, że stało się to, gdy sieć była wyłączona, ale mój klient skarżył się, że dzieje się to sporadycznie na jego komputerze. Biorąc pod uwagę, że jego system ma zainstalowany system Windows 7 i działa czasami, nie sądzę, aby problem dotyczyła niepoprawnej instalacji biblioteki. Próbował go w kilku sieciach, ale nadal nie działa.
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
Działa idealnie na moim pudełku, który jest instalacją systemu Windows 7 + Microsoft Office 2007.
Przeszukałem dużo online, a dwa powody zostały niejasno wymienione.
Problemy z siecią spowodowane przez serwer proxy lub zaporę. W tym przypadku nigdy nie powinno się łączyć, nie z przerwami.Problem z instalacją biblioteki. Ponownie, to nie powinno działać w ogóle, ale tak nie jest.Byłbym wdzięczny za każdą pomoc w tym zakresie.