Web Service in Excel 2000
Forgot to say that I have this error message :
-2147467259
Attachment:Maximum retry on the connection exceeded. HRESULT=0x80004005:
Erreur non spécifiée
- Client:An unanticipated error occurred during the processing of this
request. HRESULT=0x80004005: Erreur non spécifiée
- Client:Sending the Soap message failed or no recognizable response was
received HRESULT=0x80004005: Erreur non spécifiée
- Client:Unspecified client error. HRESULT=0x80004005: Erreur non spécifiée
"Francois Houde" wrote:
This code works fine in Excel 2007 but not in Excel 2000. I have the soap
toolkit installed.
I have tried changing ReturnValue for an Object but it doesn't work either.
Any Idea on how can I make this work ?
The Web service don't have parameters and only return a string.
Here's the function
Public Sub CallWebService()
On Error GoTo CallWebService_error
Dim adress As String
Dim ReturnValue As String
Dim soap As SoapClient30
Set soap = New SoapClient30
adress = "http://test.org/Service.asmx?WSDL"
soap.MSSoapInit adress
ReturnValue = soap.GetExcelInfo()
Set soap = Nothing
Exit Sub
CallWebService_error:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub
Thanks In Advance
François Houde
|