|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
02.06.2009, 19:28 | #1 |
Пользователь
Регистрация: 26.11.2008
Сообщений: 11
|
DBGrid->EXCEL
Хочу содержымое DBGrid перегнать в ексель.
Вот код: procedure ExportDBGrid(toExcel: Boolean); var bm: TBookMark; col, row: Integer; sline: string; mem: TMemo; ExcelApp: Variant; begin Screen.Cursor := crHourglass; DBGrid1.DataSource.DataSet.DisableC ontrols; bm := DBGrid1.DataSource.DataSet.GetBookm ark; DBGrid1.DataSource.DataSet.First; if toExcel then begin ExcelApp := CreateOleObject('Excel.Application' ); ExcelApp.WorkBooks.Add(xlWBatWorkSh eet); ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Grid Data'; end; mem := TMemo.Create(Self); mem.Visible := false; mem.Parent := MainForm; mem.Clear; sline := ''; for col := 0 to DBGrid1.FieldCount-1 do sline := sline + DBGrid1.Fields[col].DisplayLabel + #9; mem.Lines.Add(sline); for row := 0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do begin sline := ''; for col := 0 to DBGrid1.FieldCount-1 do sline := sline + DBGrid1.Fields[col].AsString + #9; mem.Lines.Add(sline); DBGrid1.DataSource.DataSet.Next; end; mem.SelectAll; mem.CopyToClipboard; if toExcel then begin ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste; ExcelApp.Visible := true; end; FreeAndNil(ExcelApp); DBGrid1.DataSource.DataSet.GotoBook mark(bm); DBGrid1.DataSource.DataSet.FreeBook mark(bm); DBGrid1.DataSource.DataSet.EnableCo ntrols; Screen.Cursor := crDefault; end; И видает такие ошибки: [Error] fmNaclsU.pas(153): Undeclared identifier: 'TBookMark' [Error] fmNaclsU.pas(160): Undeclared identifier: 'DBGrid1' |
02.06.2009, 19:31 | #2 | |
Форумчанин
Регистрация: 02.09.2008
Сообщений: 340
|
Вот тебе компонент, да прибудет с тобой сила (Експорт в Excel SQL WORD TXT и многое многое другое)
Цитата:
|
|
02.06.2009, 21:55 | #3 |
Пользователь
Регистрация: 08.04.2009
Сообщений: 41
|
Код:
Последний раз редактировалось Hobbit_88; 02.06.2009 в 21:59. |
04.06.2009, 22:45 | #4 |
Пользователь
Регистрация: 04.12.2008
Сообщений: 55
|
Код:
|
05.06.2009, 11:18 | #5 | |
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
Цитата:
Вот еще один вариант, но УЖЕ без ШАПКИ, т.е. не надо отдельно созавать на компе Excel документ... Код:
|
|
27.04.2010, 14:58 | #6 |
Пользователь
Регистрация: 17.03.2010
Сообщений: 21
|
а как сделать несколько ячеек в одну?
ExcelApp.WorkBooks[1].WorkSheets[1].Range['D1']:='name'; мне нужно, чтобы она занимала несколько ячеек. помогите пожалуйста и еще, как перевернуть текст в ячейке? |
29.04.2010, 21:31 | #7 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Поясните последний вопрос - что нужно сделать, что значит несколько ячеек?
|
03.11.2010, 05:23 | #8 |
Новичок
Джуниор
Регистрация: 03.11.2010
Сообщений: 1
|
20 часов поисков наконец то увенчались успехом!) Теперь этот долбаный dbgrid выводится в excel! Ура! Спасибо всем вам!))))))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как загрузить в DBGrid таблицу из Excel | artemavd | БД в Delphi | 11 | 13.04.2011 09:41 |
Сделать так, чтобы в DBGrid выводилась таблица Excel | Илюха | БД в Delphi | 10 | 06.05.2010 15:59 |
перенос данных из DBGrid в DBGrid | KingSize | БД в Delphi | 17 | 24.04.2009 09:30 |
Выаод из DBGrid в EXcel (странный способ) | Girl | БД в Delphi | 1 | 02.04.2009 08:47 |
Вставка данных(Excel) из clipboard в DBGrid | mahsus | Общие вопросы Delphi | 1 | 07.10.2007 02:02 |