Μεταφορά πίνακα στο Excel *xlsm
 

Καλησπέρα, Καλησπέρα

Μπορούμε να αντιγράψουμε έναν πίνακα από Access στο Excel σε μορφή *xlsm (με δυνατότητα μακροεντολών);
Με τον παρακάτω κώδικα το αρχείο που δημιουργείται είναι σε *xls

Private Sub Export_Click()
Dim oXL As Object
Dim oExcel As Object
Dim sFullPath As String
Dim sPath As String

outputFileName = CurrentProject.Path & "Book.xls"
DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, _
"Dates", _
outputFileName, _
True

' Create a new Excel instance
Set oXL = CreateObject("Excel.Application")

sFullPath = outputFileName

' Open it
With oXL
.Visible = True
.Workbooks.Open (sFullPath)
End With

Νομίζω πως πρέπει να αλλάξω το τύπο acSpreadsheetTypeExcel9, αλλά δε βρήκα τον κατάλληλο στη βοήθεια του Office.
Παρακαλώ για τη βοήθειά σας