Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.071 c
3-1080867791
kay
2004-04-02 05:03
2004.05.02
Table1, DBGrid1, значения в верхнем и нижнем регистрах.


1-1081949165
alsov
2004-04-14 17:26
2004.05.02
програмный скролинг в гриде


3-1080892115
Yad
2004-04-02 11:48
2004.05.02
TAdoConnection


3-1081240643
SerKom
2004-04-06 12:37
2004.05.02
Как документировать список всех таблиц и полей (в т.ч. описаний)


3-1081412672
Ivan
2004-04-08 12:24
2004.05.02
Общий доступ к файлу