Delphi Dbgrid Экспорт В Excel

Если вы работаете с Delphi и выполняете много задач, связанных с БД, то вероятно, вы сталкивались с необходимостью экспорта данных в Excel. Один из способов сделать это - использовать компонент DBGrid.

DBGrid является одним из самых популярных компонентов в Delphi, который используется для отображения и редактирования данных из БД. Для экспорта данных из DBGrid в Excel можно использовать следующий код:

procedure TForm1.ExportExcel(DBGrid: TDBGrid);var  ExcelApp: Variant;  i, j: Integer;begin  //Инициализация Excel  ExcelApp := CreateOleObject('Excel.Application');  ExcelApp.Visible := True;  ExcelApp.Workbooks.Add;  //Копирование заголовков столбцов  for i := 0 to DBGrid.Columns.Count - 1 do    ExcelApp.ActiveSheet.Cells[1, i + 1].Value := DBGrid.Columns[i].Title.Caption;  //Копирование данных  DBGrid.DataSource.DataSet.First;  i := 2;  while not DBGrid.DataSource.DataSet.Eof do  begin    for j := 0 to DBGrid.Columns.Count - 1 do      ExcelApp.ActiveSheet.Cells[i, j + 1].Value := DBGrid.Fields[j].AsString;    Inc(i);    DBGrid.DataSource.DataSet.Next;  end;  //Автоформатирование таблицы  ExcelApp.Range['A1', 'Z1'].EntireColumn.AutoFit;  ExcelApp.Range['A1', 'Z1'].Font.Bold := True;  ExcelApp.Range['A1', 'Z1'].HorizontalAlignment := xlCenter;  //Сохранение файла  ExcelApp.ActiveWorkbook.SaveAs('export.xlsx');end;

Этот код создаст новый файл Excel с данными из DBGrid и сохранит его на диске под именем "export.xlsx".