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

Работа с 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:="Бла-бла";

---

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

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



Память: 0.45 MB
Время: 0.026 c