Как переходить по листам в excel документе из delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var
  ExcelApp: Variant;
  Sheet: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := True;
  ExcelApp.Workbooks.Open('C:ook1.xlsx');

  // Выберите первый лист книги
  Sheet := ExcelApp.Worksheets[1];

  // Перейти к следующему листу
  Sheet := Sheet.Next;

  // Перейти к предыдущему листу
  Sheet := Sheet.Previous;

  // Перейти к листу по индексу
  Sheet := ExcelApp.Worksheets[3];

  // Выберите лист по имени
  Sheet := ExcelApp.Worksheets['Sheet2'];
end;

1
2

uses
  ComObj;