3

我有一个 Excel 加载项，在某一时刻，我需要使用 Microsoft XML DLL 通过 Web 服务发送和接收数据。

问题是现在我需要让这个 Add-in 可用于 Mac。

从一开始我就遇到了一个问题，MSXML2.XMLHTTP不适用于 Mac。

Public Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl _
        As String, ByVal XmlBody As String, sPOST As String) As String

    Dim objDom As Object, objXmlHttp As Object, strRet As String
    Dim intPos1 As Integer, intPos2 As Integer
    Set objDom = CreateObject("MSXML2.DOMDocument") 'Create DOMDocument/XMLHTTP
    Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
    objDom.async = False 'Load XML
    objDom.LoadXML XmlBody

    If (sPOST = "") Then
        objXmlHttp.Open "GET", AsmxUrl, False 'Open the webservice
        objXmlHttp.setRequestHeader "Content-Type", _
            "text/xml; charset=utf-8" 'Create headings
        objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl
        objXmlHttp.setRequestHeader "Accept", "application/vnd.hmrc.1.0+json"
        objXmlHttp.send objDom.XML 'Send XML command
    Else
        objXmlHttp.Open "POST", AsmxUrl, False
        objXmlHttp.setRequestHeader "Content-Type", _
            "application/x-www-form-urlencoded"
        objXmlHttp.send sPOST
    End If

    strRet = objXmlHttp.ResponseText 'Get all response text from webservice
    Set objXmlHttp = Nothing 'Close object
    intPos1 = InStr(strRet, "Result>") + 7 'Extract result
    intPos2 = InStr(strRet, "<!--")

    If intPos1 > 7 And intPos2 > 0 Then
        strRet = Mid(strRet, intPos1, intPos2 - intPos1)
    End If
    PostWebservice = strRet 'Return result
    Debug.Print strRet
    Exit Function

Err_PW:
    PostWebservice = "Error: " & Err.Number & " - " & Err.Description
End Function

有谁知道使用VBA通过WebService（GET和POST）发送和接收数据的任何方式，但与Mac兼容？

4

0 回答 0