Как создать новый лист в Excel средствами Delphi 7?
Этот код создает Excel файл (с 3 листами по умолчанию). Нужно добавить ещё листы.
Имена листов - по умолчанию. Просто добавить.
//Создание нового excel файла.
//Входные параметры - полный путь к файлу (с именем и расширением), кол-во листов.
// Путь к Excel файлу full_path_to_file:='c\test.xls';
procedure create_excel_file(full_path_to_file: string; list_number:integer);
var
Excel: Variant;
i:integer;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:=False;
Excel.WorkBooks.Add;
//Создаем листы
//list_number - количество добавляемых листов
Excel.Save(full_path_to_file);
Excel.Quit;
end;
Простой
