Export naar bestaande excel file

[bertje123]

Hoi,

Ik vroeg me af of het mogelijk is om data van access naar een bestaande excell file te exporteren.
Liefst iedere keer met een andere scheet naam.

Met volgende code maakt hij gewoon een nieuwe, wat ik dus niet wil

Set RST = CurrentDb.OpenRecordset("select * from aantalsheets")
Set TRST = CurrentDb.OpenRecordset("select * from Lang_Kort_CMS_NA_SAP_FINAL")
aantal = RST!sheets

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(aantal)
    oSheet.Range("A1").CopyFromRecordset TRST


   oBook.SaveAs "D:\Data\wx7\Desktop\LTS\LTST.xlsx"
   oExcel.Quit

 

[Guus2005]

In plaats van

Set oBook = oExcel.Workbooks.Add

kan je ook

Set oBook = oExcel.Workbooks.Open("c:\temp\somefile.xls")

gebruiken. Dan open je een bestaande spreadsheet.

Enjoy!