Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.04.04;
Скачать: 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 вся ветка

Текущий архив: 2010.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
6-1215945136
multiflex
2008-07-13 14:32
2010.04.04
NetFileEnum


15-1263463308
Tornado
2010-01-14 13:01
2010.04.04
Запуск программы с сервера


2-1264797504
NoSilence
2010-01-29 23:38
2010.04.04
Рабочий стол за формой


2-1265141725
serko
2010-02-02 23:15
2010.04.04
Как проверить существует ли база?


3-1237759093
zod33
2009-03-23 00:58
2010.04.04
Ошибка при вставке