Excel Sheets

[Sidi61]

Hallo zusammen,

eigentlich einfache Aufgabe, mit Delphi eine Excel Arbeitsmappe erstellen, dort 2 Arbeitblätter einfügen und das zweite Arbeitsblatt umbenennen.
Wird in vielen Beiträgen beschrieben, will bei mir aber nicht fehlerfrei funktionieren.

Variablen: Excel : Variant und WBOj : Olevariant

Excel starten:

Delphi-Quellcode:

 try
    Excel := GetActiveOleObject('Excel.Application');
  Except
     try
       Excel := CreateOleObject('Excel.Application');
     except
       Showmessage('Excel konnte nicht gestartet werden!');
       OK := false;
     end;
  end;

Arbeitsmappe anlegen (enthält automatisch ein Tabellenblatt):
WBObj := Excel.Application.Workbooks.Add;
Ein weiteres Tabellenblatt anlegen:
WBObj.Worksheets.add;
Jetzt möchte ich das zweite Tabellenblatt umbenennen. Die folgende Variante funktioniert einwandfrei, kurios ist hierbei jedoch dass Delphi eine
Fehlermeldung anzeigt : Undeklarierter Bezeichner 'Activate' in Zeile ... aber trotzdem Compiliert und fehlerfrei ausführt

Delphi-Quellcode:

WBObj.Sheets[2].Activate;
WBObj.ActiveSheet.Name := 'Neu';

Bei folgender Variante wird kein Fehler angezeigt, bei der Ausführung erhalte ich jedoch eine Fehlermeldung "Mitglied nicht gefunden"

Delphi-Quellcode:

WBObj.ActiveSheet := WBObj.Sheets[Nr];
WBObj.ActiveSheet.Name := 'Neu';

Eine oft beschriebene Variante funktioniert überhaupt nicht und wird auch nicht compiliert:

Excel.WBObj[1].WorkSheets[2].Name := 'Neu'; Wer kann mir hier ein wenig auf die Sprünge helfen

Gruß
Sidi61