Exporting to excel

[madrappin]

I use this code to export a query that the user selects into excel.

Private Sub btnSaveTo_Click()
Dim FilePath1, FileNamePath1, Dataexport

    FilePath1 = LaunchCD(Me)
    
    strName = lstQuery.Column(0)
    
    If FilePath1 = "" Or IsNull(FilePath1) Then
    Else

    FileNamePath1 = FilePath1 & ".xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, strName, FileNamePath1, True

    End If


End Sub

Is it possible to make the listbox a multi-select so the user can select more than one query, and export them into the same excel file as different sheets? Thanks for any help.

 

[HitechUser]

madrappin,

Unfortunatly the TransferSpreadsheet Method does not have a parameter to specify the destination worksheet.

You will not be able to do this using TransferSpreadsheet method.

Someone may know how to do this using ADO.

Sorry..

Good Luck...

 

[HitechUser]

madrappin,


I forgot about this... There may be something is here that may work for you.

http://www.rogersaccesslibrary.com/download3.asp?SampleName=ExportToExcel.mdb

Gook Luck...