Копировать лист Excel из одной книги в другую через Delphi.

[S_Yevgeniy]

Доброе утро!!!
Помогите пожалуйста. Не получается копировать из файла с шаблонами нужный лист в новую книгу Excel в делфи. Хотелось бы без макрасов обойтись.

Вот как пытался копировать.

   FileName5:=Ish_Data.LabeledEdit0001.Text +'\Prikaz.xls';


   Excel := CreateOleObject('Excel.Application');

// файл с шаблонами.
   WorkBook_F := Excel.WorkBooks.Open(FileName5);
// новая книга.
   WorkBook := Excel.WorkBooks.ADD;

// переключаюсь на нужный лист (шаблон) в книге

   WorkSheet_F := Workbook_F.WorkSheets[2]; //OpF


//   нужно скопировать лист в новую книгу.


   Workbook.WorkSheets.Copy ( EmptyParam, Workbook_F.ActiveSheet);

   WorkSheet := Workbook.ActiveSheet;

В книге с шаблонами просто появляются несколько новых листов.
Надеюсь на помощь.

Заранее спасибо.

[Junsui]

Вы копируете лист новой книги в ваш шаблон. А вам нужно наоборот, например:

WorkSheet_F.Copy(EmptyParam, Workbook.ActiveSheet);