Изменить название листа 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;

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

Успехов 8)

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