Web services VBA使用1个参数XMLHTTP调用WSDL简单方法

我需要一些调用wsdl web服务函数的帮助。WSDL有一个名为“Bye”的函数，它正在等待类型字符串的1个参数。然后它返回一种类型的字符串文本。 如何在VBA下进行呼叫

---

我可以用我发送的预构建的XML调用它，但它会给我一个XML作为回报。必须有一个更简单的方法

Dim URL As String
URL = "httx://webpage:8080/something/services/ByeService"

Dim requestDoc As New MSXML2.DOMDocument60


Dim root
Set root = requestDoc.createNode(1, "Envelope", "http://schemas.xmlsoap.org/soap/envelope/")
requestDoc.appendChild root

Dim nodeBody
Set nodeBody = requestDoc.createNode(1, "Body", "http://schemas.xmlsoap.org/soap/envelope/")
root.appendChild nodeBody

'Dim nodeOp
Set nodeOp = requestDoc.createNode(1, "Bye", "urn:MatrixService")
nodeBody.appendChild nodeOp

Dim nodeRequest
Set nodeRequest = requestDoc.createNode(1, "Bye", "urn:MatrixService")
'content of the request will vary depending on the WCF Service.'
' This one takes just a string. '
nodeRequest.Text = "This is a string to say goodbye"

nodeOp.appendChild nodeRequest

Set nodeRequest = Nothing
Set nodeOp = Nothing
Set nodeBody = Nothing
Set root = Nothing

'在这里，我可以用XML调用它，并得到一个XML Dim XMLHTTP作为新的MSXML2.XMLHTTP XMLHTTP.Open“POST”httx://webpage:8080/something/services/ByeService”“错 XMLHTTP.setRequestHeader“内容类型”、“文本/xml” XMLHTTP.setRequestHeader“SOAPAction”，“urn:MatrixService” XMLHTTP.send-requestDoc MsgBox XMLHTTP.responseText

您可以尝试：

Set objXML = CreateObject("MSXML2.XMLHTTP")
strURL = "httx://webpage:8080/something/services/ByeService"
objXML.Open "POST", strURL, False
objXML.setRequestHeader "content-type", "text/xml"
objXML.setRequestHeader "SOAPAction", "urn:MatrixService"
objXML.Send "Bye" 

strResult = objXML.ResponseText

---

这将如何将我的字符串赋给“Bye”方法？我可以用一个预构建的XML调用它，但它只给我一个XML作为返回，我给出了解析它以获得文本的方法。必须有一种更简单的方法来做到这一点。我修改了我原来的ask，以显示发送的XML文档方式。但我仍然需要一种更好的方法来调用方法：）