Kann kein neues Excel-Arbeitsblatt(Worksheet) erstellen/hinzufügen

**philubb**

Klingt bestimmt einfach, aber ich verzweifele gerade daran, ein weiteres worksheet in mein excel-dokument einzufügen. Hab auch nirgends eine Lösung gefunden

zusammenfalten · markieren

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.

Kann kein neues Excel-Arbeitsblatt(Worksheet) erstellen/hinzufügen

Kann kein neues Excel-Arbeitsblatt(Worksheet) erstellen/hinzufügen

Stichworte

Forumregeln