0

我正在使用下面的代码对我的 HTTP+JSON 网络服务执行 POST 和 GET 请求。一切都在 Win7 和 Excel 2013 下完美运行。在 Windows XP 和 Excel 2003 下测试时，GET 工作正常（请求正文包含 JSON 对象），但 POST 没有。应该通过线路发送的 JSON 数据看起来很完美，但是服务器端没有收到，客户端代码也没有报告错误。不幸的是，我无法安装嗅探器来查看真正发送的内容。修改代码以使用 MSXML2.ServerXMLHTTP 对象后，它工作正常（这将是解决方案）。有没有人有这个问题的经验？我试图弄清楚为什么它不适用于 WinHttpRequest ......

'Copied from https://coderwall.com/p/pbxsyw/vba-web-requests
Private Function MakeWebRequest(Method As String, Url As String, PostData As String) As Boolean
    ' make sure to include the Microsoft WinHTTP Services in the project
    ' tools -> references -> Microsoft WinHTTP Services, version 5.1
    ' http://www.808.dk/?code-simplewinhttprequest
    ' http://msdn.microsoft.com/en-us/library/windows/desktop/aa384106(v=vs.85).aspx
    ' http://www.neilstuff.com/winhttp/

    On Error GoTo ErrorHandler:

    ' create the request object
    Set mobjWebReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    ' set timeouts
    ' http://msdn.microsoft.com/en-us/library/windows/desktop/aa384061(v=vs.85).aspx
    ' SetTimeouts(resolveTimeout, ConnectTimeout, SendTimeout, ReceiveTimeout)
    mobjWebReq.SetTimeouts 60000, 60000, 60000, 60000

    If Not LastUsedUrlMonitor Is Nothing Then
        LastUsedUrlMonitor.Value2 = Url
    End If

    ' make the request, http verb (method), url, false to force syncronous
    ' open(http method, absolute uri to request, async (true: async, false: sync)
    mobjWebReq.Open Method, Url, False

    ' handle post content type
    If Method = "POST" Then
        mobjWebReq.SetRequestHeader "Content-type", _
          "application/json"
        If Not LastHttpBodySendMonitor Is Nothing Then
            LastHttpBodySendMonitor.Value2 = PostData
        End If
    End If

    ' set WinHttpRequestOption enumerations
    ' http://msdn.microsoft.com/en-us/library/windows/desktop/aa384108(v=vs.85).aspx

    ' set ssl ignore errors
    '   13056: ignore errors
    '   0: break on errors
    mobjWebReq.Option(4) = 13056

    ' set redirects
    mobjWebReq.Option(6) = True

    ' allow http to redirect to https
    mobjWebReq.Option(12) = True

    ' send request
    ' send post data, should be blank for a get request
    mobjWebReq.Send PostData

    MakeWebRequest = True

    If Not LastHttpBodyReceivedMonitor Is Nothing Then
        LastHttpBodyReceivedMonitor.Value2 = mobjWebReq.Status & ": " & mobjWebReq.StatusText & ", Body: " & mobjWebReq.ResponseText
    End If

    Exit Function

ErrorHandler:
    Select Case Err.Number
        Case &H80072EFD
            MsgBox "Connection to URL: " & Chr(13) & Url & Chr(13) & "failed: " & Err.Description
        Case Else
            MsgBox Err.Number & Chr(13) & Err.Description
    End Select
    Err.Clear
    'Set mobjWebReq = Nothing
    MakeWebRequest = False
    Exit Function
End Function
4

1 回答 1

0

感谢阿克塞尔的回复。我刚刚解决了这个问题（拔掉头发后）。显然，这在 Excel 2003 中按预期工作：

mobjWebReq.Send (PostData)

这不是（虽然它在Excel 2013 中有效）

mobjWebReq.Send PostData

看起来 PostData 在第二种情况下只是被忽略了，并且问题与对象类型无关。巧合的是，当我使用 ServerXMLHTTP 对象时，我也使用了括号。

于 2016-10-04T08:04:15.180 回答