excel - 创建对象 ("MSXML2.ServerXMLHTTP.6.0")

Question

我目前在创建 CreateObject("MSXML2.ServerXMLHTTP.6.0") 时遇到了一些问题目的。

Public Function PrepareHttpRequest(Request As RestRequest, TimeoutMS As Long, _
Optional UseAsync As Boolean = False) As Object
Dim Http As Object
**Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")**

' Set timeouts
Http.setTimeouts TimeoutMS, TimeoutMS, TimeoutMS, TimeoutMS

' Add general headers to request
Request.AddHeader "User-Agent", UserAgent
Request.AddHeader "Content-Type", Request.ContentType

If Request.IncludeContentLength Then
    Request.AddHeader "Content-Length", Request.ContentLength
Else
    If Request.Headers.Exists("Content-Length") Then
        Request.Headers.Remove "Content-Length"
    End If
End If

' Pass http to request and setup onreadystatechange
If UseAsync Then
    Set Request.HttpRequest = Http
    Http.onreadystatechange = Request
End If

Set PrepareHttpRequest = Http
End Function

上面的代码对某些用户来说工作正常，但在某些用户机器上却失败了。任何人都可以请提供必要的更改来解决问题。

Answer 1

尝试:

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

否则放一个 On Error Goto ln告诉我们 Err.Description是和谷歌它

运行 ProcessMonitor 以查看它试图在哪里找到 DLL 和 regsvr32 msxml6.dll