Использование WinHttpRequest в Excel 2003 под XP

Question

Я использую приведенный ниже код для выполнения запросов POST и GET к моему веб-сервису HTTP+JSON. Все отлично работает под 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

Answer 1

Спасибо за ответы Аксель. Я только что решил проблему (после того, как выдернул мои волосы). По-видимому, это работает как ожидалось в Excel 2003:

mobjWebReq.Send (PostData)

И это не так (хотя он работает в Excel 2013)

mobjWebReq.Send PostData

Похоже, что PostData просто игнорируется во втором случае, и проблема не была связана с типом объекта. По совпадению, когда я использовал объект ServerXMLHTTP, я также использовал круглые скобки.