无法使用VBA通过SOAP请求从webservice获取响应

Sub GetWebServiceResponse()
    Dim soapClient As Object
    Dim soapResponse As String
    
    ' 创建SOAP客户端对象
    Set soapClient = CreateObject("MSSOAP.SoapClient30")
    
    ' 设置Web服务的URL
    soapClient.MSSoapInit("http://example.com/webservice.asmx?WSDL")
    
    ' 设置请求参数
    soapClient.AddToBody "<param1>value1</param1>"
    soapClient.AddToBody "<param2>value2</param2>"
    
    ' 发送SOAP请求并获取响应
    soapResponse = soapClient.MSSoapExecute("WebServiceMethod")
    
    ' 处理响应数据
    MsgBox soapResponse
    
    ' 释放资源
    Set soapClient = Nothing
End Sub