Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Starcom © (2005-09-25 16:54:00)
Привет Мастера!

Делаю экспорт в 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! ;)

Fay (2005-09-28 15:46:00) [1]
2 Starcom © (27.09.05 17:05) [7]

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

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

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

Starcom (2005-09-27 17:05:00) [2]
Top © (27.09.05 09:46) [6]

Нифига не получается! Ткните пожалуйста куды вставить в моём коде!

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

Top (2005-09-27 09:46:00) [3]
вот так:
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;

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

Fay (2005-09-27 09:38:00) [4]
Кодовое слово - "Borders"
8)

Nikolay M. (2005-09-27 09:34:00) [5]
А где здесь советы

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

???

Fay (2005-09-27 09:29:00) [6]
2 Starcom © (27.09.05 9:10) [2]
А голова тебе зачем?

Starcom (2005-09-27 09:10:00) [7]
YurikGL © (25.09.05 21:35) [1]

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

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

YurikGL (2005-09-25 21:35:00) [8]

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

Если имеется в виду "нарисовать границы", то
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1126739002&n=8

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »