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

Изменить название листа Excel   Найти похожие ветки 

← →
DimonNew ©   (2004-04-15 17:12) [0]

Подскажите пож-та. Работаю с Excel2000(пытаюсь), и никак не могу переименовать лист1 и добавить новые.
На форуме видел, что переименовывать нужно так:
XLApp.Workbooks[1].WorkSheets[n].Name:="Прайс лист n";
но свойство Name Delphi не видет.
А добавляю:
FWorkBook.Worksheets.Add(EmptyParam,EmptyParam,3,EmptyParam,LOCALE_USER_DEFAULT); - добавляется, но в начало,
А:
FWorkBook.Worksheets.Add(EmptyParam,1,3,EmptyParam,LOCALE_USER_DEFAULT); - пишет ошибку OLE error.

---

← →
Fay ©   (2004-04-15 17:19) [1]

Что, и так не ку?
var
 EA, WB, WS : Variant;
begin
 EA := CreateOleObject("Excel.Application");
 WB := EA.Workbooks.Add;
 WS := WB.ActiveSheet;
 WS.Name := "qwe";
 EA.Visible := True;

---

← →
DimonNew ©   (2004-04-15 17:46) [2]

А так - ку! Спасибо, но хотелось бы, чтобы работало и с серверными компонетами. Но если нет, то тогда придется с ку.

---

← →
Fay ©   (2004-04-15 18:08) [3]

Тогда так?
 WB.ConnectTo(EA.Workbooks.Add(EmptyParam, LOCALE_USER_DEFAULT));
 WS.ConnectTo(_WorkSheet(WB.ActiveSheet));
 WS.Name := "qwe";
 EA.Visible[LOCALE_USER_DEFAULT] := True;

---

← →
DimonNew ©   (2004-04-15 18:21) [4]

Так все прекрасно работает. Спасибо за помощь.

---

← →
Fay ©   (2004-04-15 19:38) [5]

Успехов 8)

---

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

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



Память: 0.46 MB
Время: 0.024 c