Excel Seitenzahl fortlaufend erstellen

[Mucki]

:) Hallo :)

Würde gerne die Seitenzahl einer Excel-Datei mit mehreren Tabellenblätter
fortlaufend gestalten. Dafür benutze ich den Befehl:

Delphi-Quellcode:

Excel.ActiveSheet.PageSetup.RightFooter := 'Seitenzahl' //Rechte Fußzeile

Klappt auch aber da ich mehrere Tabellenblätter habe, möchte ich die
Seitenzahl fortlaufend haben.
Gibt es die Möglichkeit das 2.Tabellenblatt direkt anzusprechen?
Oder wie kann ich das umsetzten? :gruebel:

Gruß Mucki

[marabu]

Hallo Mucki,

du kannst über die WorkSheets im ActiveWorkBook iterieren und so auf jedes WorkSheet zugreifen - nicht nur auf das ActiveWorkSheet:

Delphi-Quellcode:

var
  i: Integer;
  xl: TExcelApplication;

begin
  for i := 1 to xl.ActiveWorkBook.WorkSheets.Count do
    xl.ActiveWorkBook.WorkSheets.Item(i).PageSetup.RightFooter := '&P';
end;

Getippt und nicht getestet.

Grüße vom marabu