![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 24.05.2010
Сообщений: 4
|
![]()
У меня имеется таблица со списком населения, по которой нужно сделать справку в Excel. Сначала, я делаю фильтрацию, а потом переход в Excel. Данные отображаются в виде таблицы, но есть проблема: не могу сделать границы для этой таблицы. Пробовала такой код:
Sheet.Cells[9,1]:='Родственные отношения'; Sheet.Cells[9,2]:='Фамилия, имя, отчество гражданина'; Sheet.Cells[9,3]:='Дата рождения' for i := 1 to form25.DBGrid1.Columns.Count do Sheet.Cells[10,i]:=form25.DBGrid1.Columns.Items[i-1].FieldName; index:=10; form25.adotable1.First; for i := 0 to form25.adotable1.RecordCount-1 do begin for j := 1 to form25.DBGrid1.Columns.Count do Sheet.Cells[index,j ]:=form25.adotable1.Fields.Fields[j-1].AsString; Inc(index); form25.adotable1.Next; end; XL.ActiveWorkBook.WorkSheets[1].Range['a9','c9'+(IntToStr(ADOTable1.Recor dCount))].Select; //выдяляем всю таблицу XL.Selection.Borders.LineStyle:=xlC ontinuous; XL.Selection.Borders.Weight:=xlThin ; XL.Selection.WrapText:=true; Таблица выделяется границами и вместе с ней еще лишних 40 строк. Как это убрать? Помогите пожалуйста... Последний раз редактировалось Alsou; 19.06.2010 в 19:49. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание отчета в delphi | Pang | БД в Delphi | 7 | 10.01.2012 16:35 |
Создание отчета в Exel | Дмитрий Гриб | Общие вопросы Delphi | 2 | 20.08.2009 11:34 |
Создание отчета | Deni55 | Microsoft Office Excel | 13 | 15.06.2009 14:53 |
Создание отчета! | Deni55 | Microsoft Office Excel | 10 | 16.04.2009 14:04 |
Создание отчета!!! | Viento | Microsoft Office Excel | 12 | 26.01.2009 09:26 |