Listing 11 Copying the data into Excel
' Loads the results of GetAuthors into the first sheet Private Sub CommandButton1_Click() Dim loRecordsets As Collection Dim lsUrl As String lsUrl = "http://localhost/LiteWebServicesCS/GetAuthors.asmx" 'get the authors Set loRecordsets = ConvertXmlDocumentToRecordsetsCollection( _ InvokeLiteWebService(lsUrl)) 'copy the authors Recordset into the Excel sheet Sheet1.Range("A1").CopyFromRecordset loRecordsets(1) End Sub