bisher erstelle ich für den Datenexport eine Datei im Excel 97-2003-Format (Endung xls).
Kann ich diese Datei ohne größere Codeänderungen auch im neueren xlsx-Format erstellen?
Mein Standard-Code sieht bisher etwa so aus:
Code: Alles auswählen
LOCAL oExcel, oBook, xls_datei
//
xls_datei:=XbpFileDialog():new():create():saveas(Hauptpfad+"\Export\TEST.xls")
//
if !empty(xls_datei)
oExcel := CreateObject("Excel.Application")
IF Empty( oExcel )
MsgBox( "Um diese Funktion zu nutzen muss auf Ihrem Rechner Excel installiert sein!","Problem" )
RETURN
ENDIF
//
oExcel:DisplayAlerts := .F.
oExcel:visible := .F.
oBook := oExcel:workbooks:Open(Hauptpfad+"\Daten\TEST.dbf")
//
oSheet := oBook:ActiveSheet
oSheet:columns(5):autoFit()
oSheet:columns(6):autoFit()
//
oBook:SaveAs( xls_datei , xlWorkbookNormal )
//
else