Calling sap webservice through Excel using VBA code

Hi All,

I have a requriment,where we have to call sap web service from EXCEL 2010 using VBA code.

I am using the below code in VBA.

Private Sub CommandButton1_Click()
Dim sURL As String
Dim sEnv As String
Dim xmlhtp As New MSXML2.XMLHTTP
Dim xmlDoc As New DOMDocument
sURL = "http://website name:8000/sap/bc/srt/wsdl/sdef_Z_CRM_EXCEL_WEB_SERVICE/wsdl11/standard/document?sap-client=800"

sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:xsi="""" xmlns:xsd="""" xmlns:soap="""">"
sEnv = sEnv & " <soap:Body>"
'sEnv = sEnv & " <CurrentConvertToEUR xmlns="""">"
sEnv = sEnv & "<n0:Z_CRM_EXCEL_CREATE_WEB_SERVICE xmlns:n0=""urn:sap-com:document:sap:rfc:functions" > ""
sEnv = sEnv & " <DESC>Test Of lead Report </DESC>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"

With xmlhtp
.Open "post", sURL, False
.setRequestHeader "Host", "Host name"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "http://website name /Z_CRM_EXCEL_CREATE_WEB_SERVICE"
.setRequestHeader "Accept-encoding", "zip"
.send sEnv
xmlDoc.LoadXML .responseText
'xmlDoc.Save ThisWorkbook.Path & "\WebQueryResult.xml"
MsgBox .responseText
End With
End Sub

But I am getting ERROR like <wsdl:types><xsd:schema attributeFromDefault= 'Qualifed'>

please help me short out the error.

Thanks in Advance.

RR Pradhan