Exporting to Excel

One way to get data across is the Excel.Range.CopyFromRecordset method:

'Set up a Recordset based on either an SQL string or directly on a table (option adCmdTableDirect to the Open method)

Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlbook = GetObject(bookPath)
Set xlsheet = xlbook.Worksheets("WS Name")
xlsheet.Range("Data").CopyFromRecordset recset

Then just do this as many times as necessary, for different Recordsets and Ranges.

GetObject is a function in the VBA.Interaction module, which retrieves an (ActiveX) object from a specified file. In this case, the object is an Excel Workbook. The Excel application is started automatically