Private Sub Command1_Click()
Dim soapClient3
Set soapClient3 = CreateObject("MSSOAP.SoapClient30")
On Error Resume Next
Call soapClient3.MSSoapInit(WSURL, "", "")
If Err <> 0 Then
MsgBox Err.Description
End If
Call soapClient3.DoSomething()
我那边这样写:
Dim Marks As Collection
Dim sc As MSSOAPLib.SoapClient
sc = CreateObject(MSSOAPLib.SoapClient)
Call sc.mssoapinit("http://192.168.1.27/WebServices/WebServiceMarks.asmx?WSDL", "", "")
Set Marks = sc.ExportMarks("student1","学期")