|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.10.2014, 12:21 | #1 |
Пользователь
Регистрация: 06.10.2014
Сообщений: 46
|
Вывод данных в Excel
В делфи ,как запретить вывод одного поля из таблицы аксесс в Excel?
Есть таблица в ней 9 полей, 1 поле с индексом 0 и именем ID, нужно чтоб не отображалось при выводе данных в Excel. begin Excel := CreateOleObject('Excel.Application' ); Excel.Workbooks.Add; FData:=VarArrayCreate([1,Form_general.table_organization.R ecordCount+1,1,Form_general.table_o rganization.Fields.Count],varVariant); for j:=1 to Form_general.table_organization.Fie lds.Count do FData[1,j]:=Form_general.table_organization.F ields[j-1].DisplayName; ADOQuery2.First;i:=2; while not ADOQuery2.Eof do begin for j:=1 to ADOQuery2.Fields.Count do FData[i,j]:=ADOQuery2.Fields[j-1].Value; ADOQuery2.Next;i:=i+1; end; Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery2.RecordCount+1, ADOQuery2.Fields.Count]].Value:=FData; Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery2.RecordCount+1, ADOQuery2.Fields.Count]].Select; Excel.Selection.Borders.LineStyle := 1; Excel.Selection.Borders.Weight := 2; Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, 1]].Select; Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, ADOQuery2.Fields.Count]].Interior.ColorIndex:=16; Excel.Columns.AutoFit; Excel.Visible:=True; end; Последний раз редактировалось sdr1; 07.10.2014 в 12:28. |
07.10.2014, 12:45 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
Код:
программа — запись алгоритма на языке понятном транслятору
|
|
07.10.2014, 16:37 | #3 |
Пользователь
Регистрация: 06.10.2014
Сообщений: 46
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод данных из Excel? | ivt22 | PHP | 2 | 26.07.2014 12:00 |
Вывод данных в Excel | Kamenuk | C# (си шарп) | 0 | 23.10.2013 16:21 |
Вывод данных в Excel | Ericnex | БД в Delphi | 3 | 12.01.2013 14:16 |
Вывод данных в excel - массивом данных | sergey113 | Помощь студентам | 4 | 22.08.2011 17:16 |
Вывод данных в Excel | Novi4ek | Помощь студентам | 3 | 22.05.2008 11:32 |