Exportere til Excel med template

du kan godt linke til et excel ark..

Ja det er jeg helt med på, men jeg skal exportere nogle omsætningstal til videre behandling og da var det smart om man kunne template et og andet.

har du prøvet at lave en rapport og så eksportere til excel..

for en ting, som jeg ofte bruger på mine printpreviews af mine rapporter, er at lave en custom print værktøjslinie som indeholder eksporter til word/excel, det virker som regel!~)

Jeg har allerede en export der virker - jeg vil bare have noget mere funktionalitet.

!~)

Du kan godt linke til et eksisterende Excelark, som i forvejen indeholder nogle beregnende felter.
Kan du evt. vise os første del af din kode, hvor du åbner excel?

Jeg skal poste et eksempel ellers.

Koden er der ikke noget særligt hokus pokus i.
Jeg klargør data - har pt. ca. 1.800.000 records at vælge i blandt. Og så laver jeg et filnavn og eksporterer min query til det navn.

'Prepare data for printing / export
  fhpPrepare_Data

  strFile_Name = fhpSetup_Path_Export & Format(Nz(Me.cboYear, 2008), "0000") & "_weekly_income.xls"
  DoCmd.OutputTo acOutputQuery, conQuery_Export_Weekly_Income_XLS, acFormatXLS, strFile_Name
   
  strMessage = "Data gemt som: " & vbCrLf & strFile_Name & vbCrLf & vbCrLf & _
              "Ønsker du at åbne filen for at se indholdet?"
             
  If MsgBox(strMessage, vbInformation + vbYesNo, "Data gemt") = vbYes Then
    fhpFile_Open strFile_Name
  End If
 
  strMessage = "Data gemt som: " & vbCrLf & strFile_Name & vbCrLf & vbCrLf & _
              "Ønsker du at sende filen til valgte modtagere?"
             
  If MsgBox(strMessage, vbInformation + vbYesNo, "Sende data") = vbYes Then
    shp_Send_Excel
  End If

Det er en anden mere kompleks metode, men som giver muligheder for at indsætte mere præcist i excel, på forskellige ark osv.
Der åbnes en Excelskabelon som jo så kan indeholde foruddefinerede sumfelter, grafer og alt det andet Excel kan.





Dim sSkabelon as as string
Dim objExcelApp As Object              'late binding
Dim objExcelDoc As Object              'late binding
'Dim objExcelApp As Excel.Application  'early binding
'Dim objExcelDoc As Excel.Workbook      'early binding

sSkabelon = "navnpådinExcelSkabelon"

Set objExcelApp = CreateObject("excel.application") 'late binding
'Set objExcelApp = New Excel.Application 'early binding

'Åbner skabelon (bruger .add i stedet for .open, da skabelonen så ikke overskrives)
'antager at skabelon ligger i samme mappe som databasen
Set objExcelDoc = objExcelApp.Workbooks.Add(Application.CurrentProject.Path & "\" & sSkabelon & "") 'late binding

objExcelApp.Visible = True 'kan flyttes til sidst hvis excel først skal vises når alt er indsat

With objExcelDoc.Sheets(1)
.Range("A1").Value = 1
.Range("A2").Value = 2
.Range("A3").Value = 3
End with

'rydder op
Set objExcelDoc = Nothing
Set objExcelApp = Nothing

Det virker uden at have en reference til Excel-object-library under Tools > References.

Hvis man bruger koden ved "Early binding" får man adgang til Excel intellisense, men så må referencen sættes i Tools > References.

Late binding sikrer at det virker på maskiner med forskellige versioner af excel osv.

Det er samme måde jeg tidligere har gjort det på.

Jeg lader lige spørgsmålet svæve i luften for at se om der ikke skulle være andre muligheder.
(Jeg bruger Access/Excel 2007 hvis det skulle gøre nogen forskel)

Jeg vil godt give lidt for at blive mindet om hvad jeg tidligere har lavet med held :-)

Ok mange tak, held og lykke med det.