Delphi_Excel Как создать копию раб. листа?

← →
s_t_d (2010-02-03 12:44) [0]

Уважаемые Мастера, если можно, пожалуйста подскажите. При работе приложения необходимо вывести результаты в Excel. Простейшим манипуляциям с MS_Excel (создать приложение, открыть/закрыть книгу, занести данные в ячейку) я научился. Но вот потребовальсь в открытой раб.книге создать копию раб.листа. И вот это не получается. Макрорекодер MS_Excel пишет: " Sheets("Лист1").Select Sheets("Лист1").Copy After:=Sheets(3) "... Попытка интерпретировать это в Delphi так:
v.Workbooks[wb].Worksheets[ws].Select;
v.Workbooks[wb].Worksheets[ws].Copy;
к успеху не привела... Пожалуйста посоветуйте, как быть.

← →
12 © (2010-02-03 13:06) [1]

еще раз вставить на другой лист?

← →
oldman © (2010-02-03 13:13) [2]

> v.Workbooks[wb].Worksheets[ws].Select;
> v.Workbooks[wb].Worksheets[ws].Copy;

А где Paste?

← →
oldman © (2010-02-03 13:21) [3]

> Макрорекодер MS_Excel пишет: " Sheets("Лист1").Select
> Sheets("Лист1").Copy After:=Sheets(3)

Мне пишет:

Sheets("Лист1").Select
Cells.Select
Selection.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste

← →
s_t_d (2010-02-03 19:54) [4]

>oldman © (03.02.10 13:13) [2]
Видимо, плохо сформулировал вопрос...Но речь идет именно о СОЗДАНИИ КОПИИ раб.листа (это шаблон документа), а не о записи одних и тех же данных на разные листы...

← →
s_t_d (2010-02-03 21:43) [5]

Добился. Вот так получилось.
v.Workbooks[wb].Worksheets[ws].Select;
v.Workbooks[wb].Worksheets[ws].Copy(After:=v.Workbooks[wb].Worksheets[ws]);
где wb - имя книги, ws - имя копируемого листа

Delphi_Excel Как создать копию раб. листа? Найти похожие ветки