Текущий архив: 2004.05.02;
Скачать: 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 вся ветка
Текущий архив: 2004.05.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
