ontheDB
09-29-03, 17:33
| What's the error in this ? Counter = 0 While Not rs.EOF Sheets("SummaryByDate").Select ActiveSheet.Range(Cells(3, 3 + Counter)).CopyFromRecordset rs, 4, 1 ActiveSheet.Range(Cells(9, 3 + Counter)).CopyFromRecordset rs, 1, 1 ActiveSheet.Range(Cells(12, 3 + Counter)).CopyFromRecordset rs, 4, 1 Wend I'm trying to populate a table with information taht i've queried from an external source .. is there any way to capture a snapshot of a pivot table and then poplulate the cells accordingly in an excelsheet ? thank you so much in advanc.e... |