|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.04.2012, 20:36 | #1 |
Новичок
Джуниор
Регистрация: 13.04.2012
Сообщений: 1
|
Экспорт данных из dbgrid в excel
с помощью кода отображается информация в excel.делаю для 1 дбгрида-выводится вся информация и даже скрытые ячейки выводятся в эксель(почему то с иероглифами).пробую сделать для другого дбгрида-выводится только 1 поле с информацией.что не так?
procedure TForm2.SpeedButton5Click(Sender: TObject); var ExcelApp : variant; row :integer; col:integer; begin dbgrid1.DataSource.DataSet.First; ExcelApp:=CreateOLEObject('Excel.Ap plication'); // создает объект ExcelApp.WorkBooks.add; //новый док ExcelApp.visible:=true; // показывает док ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'ScorpioN'; // переименовывание ЛИСТА 1 for col :=0 to DBGrid1.Columns.Count-1 do ExcelApp.WorkBooks[1].WorkSheets[1].cells[6,col+2].value:=dbgrid1.fields[col].displaylabel; for row :=0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do begin for col :=0 to DBGrid1.Columns.Count-1 do begin ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet. Fields[col].AsString; ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1; end; DBGrid1.DataSource.DataSet.Next; end; ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,1]:='Дата'; ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,2]:=datetostr(now); ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true; ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false; ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false; end; |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Экспорт из DBGrid в Excel | Oleg Romanchuk | БД в Delphi | 2 | 23.07.2011 09:46 |
Экспорт DBGrid в Excel | SevenXP | C/C++ Базы данных | 2 | 08.07.2011 15:36 |
Экспорт данных из DBgrid | pusik | БД в Delphi | 0 | 24.05.2011 09:14 |
Экспорт DBGrid в Excel | SpyCrypt | БД в Delphi | 5 | 28.04.2011 15:54 |
Экспорт данных в Excel | boakineo | Общие вопросы .NET | 1 | 08.01.2010 19:01 |