Klingt bestimmt einfach, aber ich verzweifele gerade daran, ein weiteres worksheet in mein excel-dokument einzufügen. Hab auch nirgends eine Lösung gefunden
Delphi-Quellcode:
Template := EmptyParam;
FLCID := LOCALE_USER_DEFAULT;
ExcelAppEDM.Connect;
ExcelAppEDM.Visible[FLCID] := True;
ExcelAppEDM.caption := 'Inventarlisten Veränderungen';
ExcelAppEDM.Workbooks.Add(Template, FLCID);
ExcelWorksheetSchrott.ConnectTo(ExcelAppEDM.ActiveWorkbook.activeSheet as _Worksheet);
ExcelWorksheetSchrott.Name := 'Inv. verschrottet';
ExcelWorksheetTeilSchrott.ConnectTo(ExcelAppEDM.ActiveWorkbook.Sheets.Item[2] as _Worksheet);
ExcelWorksheetTeilSchrott.Name := 'Inv. teil-verschrottet';
ExcelWorksheetVerkauft.ConnectTo(ExcelAppEDM.ActiveWorkbook.Sheets.Item[3] as _Worksheet);
ExcelWorksheetVerkauft.Name := 'Inv. verkauft';
//hier kommt der Fehler
ExcelWorksheetKST.ConnectTo(ExcelAppEDM.ActiveWorkbook.Sheets[4] as _Worksheet);
ExcelWorksheetKST.Name := 'Kst. Änderung';
... WorkSheets füllen ...
ExcelWorksheetSchrott.Disconnect;
ExcelWorksheetTeilSchrott.Disconnect;
ExcelWorksheetVerkauft.Disconnect;
ExcelWorksheetKST.Disconnect;
ExcelAppEDM.Disconnect;
Mit den ersten drei Aufrufen klappt es. Nur wenn ich das letzte
worksheet hinzufügen möchte, kommt der Fehler "Ungültiger Index"
Befüllen der einzelnen Worksheets kann ich auch. Scheitert echt nur daran, dass ich das letzte nicht noch mit in die Excel-Datei bekomme.