Fill the same spreadsheet with 2nd recordset

[rwei]

I am using copyFromRecordset (something like this:

SS1.ActiveSheet.Cells.copyFromRecordset adoRs, 3000

to fill my spreadsheet with results from a SQL query. How do I continue to fill this same spreadsheet with results from another query?

Thanks.

 

[01Patrik]

Use the code below after your own, in order to define the last used row.

dim lastrow as long

SS1.ActiveSheet.Cells.copyFromRecordset adoRs, 3000

    LastRow = ActiveSheet.Cells.Find(What:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByRows).Row

then use

XXX.activesheet.cells(lastrow,1).copyfromrecordset XXX, XXXX

to insert the new query data.


// Patrik
______________________________

To the optimist, the glass is half full. To the pessimist, the glass is half empty. To the IT Professional, the glass is twice as big as it needs to be.

 

[rwei]

Thanks!

I am using VBScript on ASP page, there seems to be some differences in the codes used? I am still trying to use your example to make it work.