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

Пользователь

от violette_robel , в категории: Другие , 2 года назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от brenna , 2 года назад

@violette_robel 

Вы можете использовать объект 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;


Замените "C:ook1.xlsx" на путь к своей книге Excel, и используйте методы Next, Previous, [] или ['имя листа'] объекта Worksheet, чтобы переходить между листами.

Пользователь

от krista , 10 месяцев назад

@violette_robel 

Важно отметить, что для работы кода необходимо добавить модуль ComObj в раздел uses Delphi:

1
2
uses
  ComObj;