Listing 13 Retrieving Titles by Author
' Retreive titles for a specific author. You'd make this a function ' that takes the Author ID as a parameter and returns the data. Private Sub CommandButton2_Click() Dim loRecordsets As Collection Dim lsUrl As String lsUrl = "http://localhost/LiteWebServicesCS/GetTitles.asmx" _ & "?" & UrlEncode("au_id") & "=" & UrlEncode("486-29-1786") 'get the titles Set loRecordsets = ConvertXmlDocumentToRecordsetsCollection( _ InvokeLiteWebService(lsUrl)) 'copy the titles Recordset into the Excel sheet Sheet1.Range("A26").CopyFromRecordset loRecordsets(1) End Sub