VPF::Excel - Форум программистов

Burka

Дата 22.5.2008, 04:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 429
Регистрация: 11.5.2007

Репутация: нет
Всего: 2

Работаю с экселем таким образом:

Код


procedure TFmain.N8Click(Sender: TObject);
var
Excel:OleVariant;
Book:OleVariant;
Sheet:OleVariant;
m: integer;
n:integer;
tmp:OleVariant;
i:integer;

begin
 Excel:=CreateOleObject('Excel.Application');
 Excel.Application.EnableEvents:=False;
 Excel.Visible:=False;
 Book:=Excel.WorkBooks.Add;
 Sheet:=Excel.ActiveWorkBook.Worksheets[1];
 //ПЕРВАЯ СТРАНИЦА
 Excel.Range['A1','G1'].MergeCells:=True;


 Excel.Range['A1','FF50'].WrapText:=true;
 Excel.Range['A1','FF51'].HorizontalAlignment := xlCenter;
 Excel.Range['A1','FF51'].VerticalAlignment:=xlCenter;
 Excel.Range['A5','A18'].HorizontalAlignment := xlleft;
 Excel.Range['A1','A20'].Columns.ColumnWidth:=35;
 Excel.Range['A1','AA4'].Rows.RowHeight:=25;
 Excel.Range['B1','Z5'].Columns.ColumnWidth:=20;

// Excel.ActiveWorkBook.Worksheets



 Excel.Visible:=true;
 Sheet:=UnAssigned;
 Book:=UnAssigned;
 Excel:=UnAssigned;
end;

Подскажите как сменить текущий лист в книге?
И есть ли вообще какой нибудь справочник по этому компоненту или что нить такое? Сложно найти какие нибудь отдельные методы.

--------------------

Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.

Данкинг

Дата 22.5.2008, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Код


excel.activeworkbook.sheets[2].activate;

ЗЫ: а зачем вот это?

Код


Book:OleVariant;
Sheet:OleVariant;

Цитата(Burka @ 22.5.2008, 05:58

)

И есть ли вообще какой нибудь справочник по этому компоненту или что нить такое?

Записый макросы в самом Excel, а затем смотри их код!

--------------------

There's nothing left but silent epitaphs.

uranpro

Дата 28.5.2008, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

бугага))

Код


Excel.Range['A1','FF50'].WrapText:=true;
 Excel.Range['A1','FF51'].HorizontalAlignment := xlCenter;
 Excel.Range['A1','FF51'].VerticalAlignment:=xlCenter;
 Excel.Range['A5','A18'].HorizontalAlignment := xlleft;
 Excel.Range['A1','A20'].Columns.ColumnWidth:=35;
 Excel.Range['A1','AA4'].Rows.RowHeight:=25;
 Excel.Range['B1','Z5'].Columns.ColumnWidth:=20;

у тебя это работает ???? обычно для Range нужно указать рабочую книгу

Код


excel.activeworckbook.range['A1'].HorizontalAlignment

и хз, что у тебя будет лежать в Book, когда ты прировняешь ей процедуру Add) мб она и будет ActiveWorkBook

Это сообщение отредактировал(а) uranpro - 28.5.2008, 18:31

--------------------

I want a perfect soul

Albinos_x

Дата 28.5.2008, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

http://forum.vingrad.ru/topic-84634.html

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »