Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.04.04;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.003 c
1-1247727939
wildarg
2009-07-16 11:05
2010.04.04
Получить выделенный текст из другого окна


15-1263083184
Inovet
2010-01-10 03:26
2010.04.04
Почему сломалась ветка "Кто знает, что-то похожее, но новое?"


6-1207310729
Pochemuk
2008-04-04 16:05
2010.04.04
Ремэпинг без подмены IP. Как сделать?


2-1265185615
oleg1963lora
2010-02-03 11:26
2010.04.04
Поймать OnClick в классе


2-1264721972
Danco
2010-01-29 02:39
2010.04.04
Как узнать значения в чужих приложениях?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский