Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты! Можно ли экспортировать данные из DBGrid в формат MS Excel с расширением *.csv ? Если да, то как?

Вопрос задал: alone (статус: Посетитель) Вопрос отправлен: 14 октября 2008, 00:09 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Гадлевский Олег Вячеславович!
Не знаю, сколько ещё буду писать. DBGrid не хранит информацию, поэтому единственный и правильный ответ на Ваш вопрос - никак.
Но на самом деле всё гораздо проще. С этим гридом должен быть связан какой нибуть Table или Query
В таком случае код будет где то таким (грубый набросок, который надо будет дотачивать напильником под Ваши потребности).

var sl:TStringList;
begin
  sl := TStringList.create;
  try
   Table.first;
   while not table.eof do begin
     sl.add(table.fieldbyname('pole1')+','+table.fieldbyname('pole2')+','+table.fieldbyname('pole3')+');
     Table.next;
   end;
 
  sl.saveToFile('MyFile.cvs');
 finally
  sl.free;
 end;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 14 октября 2008, 02:47 Оценка за ответ: 5 Комментарий к оценке: Спасибо огромное

Ответ #2. Отвечает эксперт: Feniks

Здравствуйте, Гадлевский Олег Вячеславович!
Немного дополню. Раз уж вы заговорили про экспорт в Excel, то я выскажу свое "фее".
Лучше, на мой взгляд, использовать сторонние библиотеки и компоненты для работы с Excel на прямую, без использования OLE объектов. Работа через OLE очень тормазнутая, особенно это ощутимо на больших таблицах, плюс использование форматирование ячеек. В добавок, обязывает обязательное наличие самого MS Office. Ведь если его нет, то и объектов нет, а значит ваша программа не сможет выполнить данные инструкции.
Попробуйте использовать компоненты с нашего сайта, я думаю вам понравится и вы ощутите разницу:
1. XLSReadWrite - мощный компонент для работы с файлами "*.xls".
2. vtkExport - библиотека, предназначенная для экспорта данных из Ваших программ в форматы Excel и HTML.
Формирование XLS файла происходит без использования DDE, OLE, т.е. для того, чтобы получить XLS-файл, не обязательно, чтобы на компьютере был установлен Excel. Метод экспорта очень прост - Вы формируете объект TvteXLSWorkBook, который имеет свойства и методы схожие со свойствами и методами OLE сервера Excel и вызываете у него метод SaveAsXLSToFile или SaveAsHTMLToFile.
Лично я пользовался vtkExport и был очень доволен, т.к. приходилось экпортировать большие таблицы лет 5 назад. Тогда еще не было таких современных и мощных компьютеров, и экспорт таблиц через OLE занимал времени более 20 минут. Это приемлемо, если вы в течении дня одну, две таблицы обрабатываете. Но когда вам надо десятки таблиц в течении пару часов, то сами понимаете, какого это...
А vtkExport мне таблички кидал менее чем за 30-40 секунд.
Так что, пробуйте и делайте выводы.
Ну а если же Вы отважились использовать стандартные компоненты в Delphi, которые работают через OLE, то рекомендую сначало почитать мою статейку "Delphi 4: Автоматизация приложений MSR Office для эффективного анализа результатов. Глава 1. Работа с MS Excel."

P.S. Жедаю удачи.

Ответ отправил: Feniks (статус: Бакалавр) Время отправки: 20 октября 2008, 15:52

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.