1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Public Function testStockQuoteService(ticker As String) As Variant
On Error GoTo ErrorHandler
Dim soapClient
Set soapClient = CreateObject("MSSoap.SoapClient")
soapClient.mssoapinit("http://localhost/cgi-bin/stockQuoteService.cgi?wsdl")
r = soapClient.getQuote(ticker)
testStockQuoteService = r
Exit Function
ErrorHandler:
MsgBox Err.Description + vbCrLf + soapClient.faultactor + vbCrLf +
soapClient.faultcode + vbCrLf + soapClient.faultstring + vbCrLf +
soapClient.detail
End Function
|
