Скачать: CL | DM;

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 - имя копируемого листа

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c