| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с Excel [D7, WinXP]
studentRSU © (2004-12-05 17:05:00)Подскажите, пожалуйста, как создать еще один лист(WorkSheet) в Excel-документе. Вот как я создаю этот документ:
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add(-4167);
XLApp.WorkBooks[1].WorkSheets[1].Name:='Бла-бла';
Может быть есть другая константа (-4167)? Вообщем, кто знает, подскажите, пожалуйста. Заранее благодарен.
Konrads (2004-12-06 12:09:00) [1]XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
Без параметра
XLApp.WorkBooks.Add;
По умолчанию будет 3 листа добавь если надо листов ещё
XLApp.WorkBooks[1].Sheets.Add;
Перетменовываеш правильно
XLApp.WorkBooks[1].WorkSheets[1].Name:='Бла-бла';
GanibalLector (2004-12-06 02:52:00) [2]Господин,Вы хоть знаете что есть -4167 и на кой его использовать???Вот там,то что Вы желали...если не хочется видеть 3 страницу,то удилите ее(в примере это есть).Единственное что Вам осталось,так это подавить вопрос Excel,который будет кричать что лист удаляется...но это уже мелочи.
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name:='sdf';
XLApp.WorkBooks[1].WorkSheets[2].Name:='sdf2';
XLApp.WorkBooks[1].WorkSheets[3].Name:='sdf3';
XLApp.WorkBooks[1].WorkSheets[3].Select;
XLApp.ActiveWindow.SelectedSheets.Delete;
studentRSU (2004-12-05 22:53:00) [3]Это не помогло. Может кто знает как, подскажите, очень надо.
YurikGL (2004-12-05 17:38:00) [4]Попробуй
XLApp.WorkBooks.Add;
или
XLApp.WorkBooks.Add(emptyparam);
| |
