Работа с Exel из Delphi

← →
SerMaxx (2007-06-14 19:42) [0]

уважаемые мастера подскажите пожайлуста, возможно ли средствами Delphi изменить размер столбца и строки в Exel, при создании отчета? или же установить свойство что бы размер был по ширине текста в ячейке? заранее благодарен за помощь. сли возможно то подскажите как это сделать?

← →
3fc © (2007-06-15 09:11) [1]

ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam, 1));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item[1] as _Worksheet);
ExcelWorksheet1.Range["A1", "A1"].ColumnWidth := 17;
ExcelWorksheet1.Range["A1", "A1"].RowHeight := 51;
ExcelApplication1.Visible[1] := True;

← →
Робинзон (2007-06-15 09:37) [2]

procedure TForm1.ExcelButtonClick(Sender: TObject);
var
XLApp,Colum,Row:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
// XLApp.Workbooks.Add(-4167);
//WindowState := -4137;

XLApp.WorkBooks.Open("D:\Проба\pp.xls");
XLApp.Workbooks[1].WorkSheets[1].Name:="Бланк";
Colum:=XLApp.Workbooks[1].WorkSheets["Бланк"].Columns;
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=10;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=25;//Размер столбца

Colum:=XLApp.Workbooks[1].WorkSheets["Бланк"].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clRed;
Colum.Rows[1].Font.Size:=14;
Colum.Rows[1].RowHeight:=36;//Размер строки
end;

P.S. Небольшое замечание.

При создании сложных отчетов в Excel предпочтительнее использовать компоненты страницы Servers, т.к. в этом случае будет задействован механизм т.н. "раннего связывания", в отличие от использования Ole-объектов (функция CreateOleObject()) - соответственно "позднее связывание". На практике 1-й способ существенно повышает быстродействие проги, т.к. все типы данных уже определены на этапе компиляции и маршалинг происходит гораздо быстрее.

Работа с Exel из Delphi Найти похожие ветки