Как создать лист в Excel?

Question

[Евгений Иванов]

Как создать новый лист в 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;

Answer 1

[Андрей]

www.sql.ru/forum/172993/kak-programmno-dobavit-lis...

Comments

[Евгений Иванов]

Пример не рабочий. Процедура написана некорректно, даже уже потому, что нет сохранения Excel файла.

Автор процедуры добавляет книгу в несуществующий файл C:\Шаблон.xls.
Если этот файл существует, то зачем он создал новый объект CreateOleObject('Excel.Application')?

Или автор добавляет существующий лист из файла в новый объект Excel.Application, а потом его сохранит с другим именем? Неясно...