Dim soapclient, result
Set soapclient = CreateObject("MSSOAP.SoapClient30")
soapclient.mssoapinit "MyTestWebService.wsdl"
result = soapclient.Add( 1 , 2 )
MsgBox result
Dim soapclient, result
Set soapclient = CreateObject("MSSOAP.SoapClient30")
soapclient.mssoapinit "MyTestWebService.wsdl"
result = soapclient.Add( 1 , 2 )
MsgBox result
转载于:https://www.cnblogs.com/ryhan/archive/2011/05/03/2035883.html