Sha256: 13cd8b8cfe7f43c0baef3d1e1f561ad672f76c6ad49bf367c56bfb98f6b606c6
Contents?: true
Size: 552 Bytes
Versions: 12
Compression:
Stored size: 552 Bytes
Contents
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
Version data entries
12 entries across 12 versions & 3 rubygems