VPF::Экспорт DbGrid в Exel - Форум программистов

bartram

Дата 10.8.2005, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: нет
Всего: 29

dsergey, спасибо большое, посмотрю...

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

offline

Дата 12.8.2005, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7

Код


uses
  ComObj, excel97, excel2000, excelXP

procedure TfrmObmen.butToExcelClick(Sender: TObject);
var
  MyExcel: Variant;
  i:LongWord;
  str:String;
begin
 try
  Screen.Cursor:=crHourGlass;
  i:=8;//началь с 8 строки
  MyExcel:=CreateOleObject('Excel.Application');//переменная Экселя
  MyExcel.Visible:=False;//скрыть Эксель
  MyExcel.WorkBooks.Add;//Добавить документ
  frmMain.ADOQuery1.DisableControls;//отключить контроль
  Application.ProcessMessages;//обработьать сообщения от приложения
  frmMain.ADOQuery1.First;//перейти на первую запись в запросе
  MyExcel.Columns['A:E'].NumberFormat := '@';//истановить диапазон как текст
  //перенос данных
  while not frmMain.ADOQuery1.Eof do begin
   Application.ProcessMessages;//обработьать сообщения от приложения
   //вставить данные
   MyExcel.Range['A'+IntToStr(i), 'e'+IntToStr(i)].Value := VarArrayOf([
      frmMain.ADOQuery1.FieldByName('..').AsString,
      frmMain.ADOQuery1.FieldByName('..').AsString,
      frmMain.ADOQuery1.FieldByName('..').AsString,
      frmMain.ADOQuery1.FieldByName('..').AsString,
      frmMain.ADOQuery1.FieldByName('..').AsString]);
   inc(i,1);//перейти на следущую строку
   frmMain.ADOQuery1.Next;//перейти на следущую запись
   end;
 finally
  frmMain.ADOQuery1.First;
  frmMain.ADOQuery1.EnableControls;//разрешить контроль
  Screen.Cursor:=crDefault;//курсор вернуть
  MyExcel.Visible:=true;//показать Эксель
  Application.ProcessMessages;//обработьать сообщения от приложения
 end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »