Ich übernehme die Daten einer DBF-Datei nach Excel, allerdings passt bei einigen Spalten die Breite nicht.
Das Festlegen der Spaltenbreite sollte entweder automatisch gehen (autofit ?) oder, es wäre auch kein Problem, bei den "nichtpassenden" Spalten die richtige Breite manuell festzulegen.
Code: Alles auswählen
PROCEDURE main
LOCAL oExcel, oBook
LOCAL cDir := CurDrive()+":\"+CurDir()
//
oExcel := CreateObject("Excel.Application")
IF Empty( oExcel )
MsgBox( "Excel ist nicht installiert!" )
RETURN
ENDIF
//
oExcel:DisplayAlerts := .F.
oExcel:visible := .T.
oBook := oExcel:workbooks:Open(cDir+"\Testdatei.dbf")
//
oBook:SaveAs( cDir+"\Testdatei.xls" , xlWorkbookNormal )
//
oExcel:Quit()
oExcel:Destroy()
//
RETURN