Работа с Excel

← →
studentRSU (2004-12-05 17:05) [0]

Подскажите, пожалуйста, как создать еще один лист(WorkSheet) в Excel-документе. Вот как я создаю этот документ:
XLApp:=CreateOleObject("Excel.Application");
XLApp.Visible:=true;
XLApp.WorkBooks.Add(-4167);
XLApp.WorkBooks[1].WorkSheets[1].Name:="Бла-бла";
Может быть есть другая константа (-4167)? Вообщем, кто знает, подскажите, пожалуйста. Заранее благодарен.

← →
YurikGL © (2004-12-05 17:38) [1]

Попробуй
XLApp.WorkBooks.Add;
или
XLApp.WorkBooks.Add(emptyparam);

← →
studentRSU (2004-12-05 22:53) [2]

Это не помогло. Может кто знает как, подскажите, очень надо.

← →
GanibalLector © (2004-12-06 02:52) [3]

Господин,Вы хоть знаете что есть -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;

← →
Konrads (2004-12-06 12:09) [4]

XLApp:=CreateOleObject("Excel.Application");
XLApp.Visible:=true;
Без параметра
XLApp.WorkBooks.Add;
По умолчанию будет 3 листа добавь если надо листов ещё
XLApp.WorkBooks[1].Sheets.Add;
Перетменовываеш правильно
XLApp.WorkBooks[1].WorkSheets[1].Name:="Бла-бла";

Работа с Excel Найти похожие ветки