在Excel中使用input参数调用Web服务

我开始使用Web服务

我试图发送一个XML请求的Web服务在oXmlHttp.send xmlInput但我得到一个错误在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作为input参数发送给admitirTrabalhador方法？

对不起我的英语不好。