使用Excel中的输入参数调用Web Service

Question

我开始使用Web服务

我正在尝试在vba中发送一个Web服务的xml请求，但我在oXmlHttp.send xmlInput收到错误：MSXML“系统找不到指定的资源”

Sub testar()

Dim xmlInput As String xmlInput = "<admitirTrabalhador><trabalhador>11111111111</trabalhador><modalidadeContratoTrabalho>E</modalidadeContratoTrabalho><dataInicioContrato>2016-12-26</dataInicioContrato><dataFimContrato>2016-12-26</dataFimContrato><retribuicao>540.60</retribuicao><diuturnidades>1</diuturnidades></admitirTrabalhador>"

Dim oXmlHttp As MSXML2.XMLHTTP60 
Set oXmlHttp = New MSXML2.XMLHTTP60

oXmlHttp.Open "POST", "https://pregfct.seg-social.pt/ws/gfct/admitirTrabalhador?wsdl", False, "2222222222", "XXXXX" oXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 

oXmlHttp.send xmlInput

Debug.Print oXmlHttp.responseText

Dim oXmlReturn As MSXML2.DOMDocument60 
Set oXmlReturn = New MSXML2.DOMDocument60 
oXmlReturn.LoadXML oXmlHttp.responseText


End Sub

如何将请求XML作为输入参数发送到admitirTrabalhador方法？

抱歉我的英文。