[kiman.ru]

Так можно считать количество страниц в документе Excel.

Код:

procedure ExcelPageCount;
var
  i: Integer;
  SumPages: Integer;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open('C:\money.xls',False);
  DocPages := 0;
  for i := 1 to Excel.Workbooks[1].Sheets.Count do
  begin
    Workbook := Excel.ActiveWorkBook.WorkSheets[i];
    Workbook.PageSetup.LeftMargin := 0;
    Workbook.PageSetup.RightMargin := 0;
    SumPages := DocPages + Workbook.PageSetup.Pages.Count;
  end;
  ShowMessage(IntToStr(DocPages));
end;