Веб-сервисы в VBA, использующие MSXML.ServerXMLHTTP на Mac - PullRequest
Новая
       31

Веб-сервисы в VBA, использующие MSXML.ServerXMLHTTP на Mac

0 голосов
/ 03 октября 2018

У меня есть надстройка для Excel, которая в какой-то момент мне нужна для отправки и получения данных через веб-службы с использованием Microsoft XML DLL.

Проблема в том, что теперь Мне нужно сделать эту надстройку доступной для 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

Кто-нибудь знает какой-либо способ отправки и получения данных через WebService (GET и POST) с использованием VBA, но совместимый с Mac ??

...