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:
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?

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