Habe den Code jetzt so abgeändert, da die Excel-Datei schon bekannt, geöffnet und in Gebrauch ist. Die Fehlermeldung lautet:
Ungültiger Index.
Delphi-Quellcode:
var
myExcel, sheet: OLEVariant;
zeile: Integer;
begin
myExcel := CreateOleObject('Excel.Application');
// Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet := myExcel.Workbooks[ExtractFilePath(ParamStr(0))+'Mappe1.xls'].WorkSheets[1];
// In order to know the dimension of the WorkSheet, i.e the number of rows
// and the number of columns, we activate the last non-empty cell of it
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
//myExcel.ActiveCell.Row;
Result := myExcel.ActiveCell.Row;
// Excel wieder schließen
myExcel.DisplayAlerts := False;
myExcel.Quit;
myExcel := Unassigned;
Sheet := Unassigned;
end;