Code: Alles auswählen
// Das Excel-Objekt erstellen
oExcel := CreateObject("Excel.Application")
// Hat dass funktioniert?
IF Empty(oExcel)
MsgBox("Excel ist nicht installiert", "Achtung")
RETURN .F.
ENDIF
// Excel auf jeden Fall nicht anzeigen
oExcel:visible := .F.
// Rückmeldungen von Excel unterdrücken
oExcel:DisplayAlerts := .F.
// Die übergebene Datei öffnen
oBook := oExcel:workbooks:open(cDateiname)
oSheet := oBook:ActiveSheet
Die beim Kunden installierte Excel-Version ist 2002. Bei mir ist 2010 installiert, da passiert das nicht.
Wie kann ich das beim Kunden verhindern? Der ist verständlicherweise nicht begeistert, das er während langwieriger Arbeiten mit meinem Programm nicht parallel mit Excel arbeiten kann.
Jan