При экспорте данных в Excel, все данные в ячейках были бы в табли

← →
Starcom © (2005-09-25 16:54) [0]

Привет Мастера!

Делаю экспорт в Microsoft Excel >>>
...
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:="Сотрудник";
Colum:=XLApp.Workbooks[1].WorkSheets["Сотрудник"].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets["Сотрудник"].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets["Сотрудник"];
Sheet.Cells[1,2]:="Личные данные";
Sheet.Cells[2,1]:="Фамилия";
Sheet.Cells[2,2]:="Имя";
Sheet.Cells[2,3]:="e-mail";
Sheet.Cells[2,4]:="Должность";
Sheet.Cells[2,5]:="Дата рождения";

index:=3;
DataModule1.BookTable.First;
for i:=0 to DataModule1.BookTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule1.BookTable.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule1.BookTable.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule1.BookTable.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule1.BookTable.Fields.Fields[5].AsString;
Sheet.Cells[index,5]:=FormatDateTime("dddddd", DataModule1.BookTable.Fields.Fields[6].AsDateTime);
Inc(index);
DataModule1.BookTable.Next;
end;
...

Как мне сделать так чтоб при экспорте данных в Excel, все данные в ячейках были бы в таблице?

С Уважением Starcom! ;)

← →
YurikGL © (2005-09-25 21:35) [1]

> Как мне сделать так чтоб при экспорте данных в Excel, все
> данные в ячейках были бы в таблице?

Если имеется в виду "нарисовать границы", то
http://delphimaster.net/view/10-1126739002/

← →
Starcom © (2005-09-27 09:10) [2]

YurikGL © (25.09.05 21:35) [1]

А как мне привязать совет dmitry501 © (15.09.05 05:55) [1] или от
apollo © (15.09.05 14:59) [2] к моему коду!!!

С Уважением Starcom! ;(

← →
Fay © (2005-09-27 09:29) [3]

2 Starcom © (27.09.05 9:10) [2]
А голова тебе зачем?

← →
Nikolay M. © (2005-09-27 09:34) [4]

А где здесь советы

> dmitry501 © (15.09.05 05:55) [1] или от
> apollo © (15.09.05 14:59) [2]

???

← →
Fay © (2005-09-27 09:38) [5]

Кодовое слово - "Borders"
8)

вот так:
Cell1 := texcel.WorkSheets[1].Cells[st_n+1, 1];
Cell2 := texcel.WorkSheets[1].Cells[n, 10];
Range := texcel.WorkSheets[1].Range[Cell1, Cell2];
Range.Borders.Weight:=2;

И совет, не вставляй клетку за клеткой, а собирай вариантный массив и вставку делай в лист диапазоном.

2 Starcom © (27.09.05 17:05) [7]

Тебе уже разжевали - осталось только проглотить, а не в @#$% заталивать.

Покажи, как не получается. Интересно, ведь.

С УвАжЕнИеМ Fay! 8)

При экспорте данных в Excel, все данные в ячейках были бы в табли Найти похожие ветки