Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Excel

Автор: Burka 22.5.2008, 04:58

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

Код


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

Код


excel.activeworkbook.sheets[2].activate;

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

Код


Book:OleVariant;
Sheet:OleVariant;

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

)

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

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

Автор: uranpro 28.5.2008, 18:29

бугага))

Код


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

Автор: Albinos_x 28.5.2008, 19:30

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