Как экспортировать содержимое DBGrid в Excel или ClipBoard

Delphi , Компоненты и Классы , TDBGrid

// ЗАМЕЧАНИЕ: этот метод должен включать COMObj, Excel97 units

// ОБНОВЛЕНИЕ: если Вы используете Delphi 4, то замените xlWBatWorkSheet на 1 (один)

//-----------------------------------------------------------
// если toExcel = false, то экспортируем содержимое dbgrid в Clipboard
// если toExcel = true, то экспортируем содержимое dbgrid в Microsoft Excel
//-----------------------------------------------------------

procedure ExportDBGrid(toExcel: Boolean);
var
  bm: TBookmark;
  col, row: Integer;
  sline: string;
  mem: TMemo;
  ExcelApp: Variant;
begin
  Screen.Cursor := crHourglass;
  DBGrid1.DataSource.DataSet.DisableControls;
  bm := DBGrid1.DataSource.DataSet.GetBookmark;
  DBGrid1.DataSource.DataSet.First;

  // создаём объект Excel
  if toExcel then
  begin
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
    ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Grid Data';
  end;

  // Сперва отправляем данные в memo
  // работает быстрее, чем отправлять их напрямую в Excel
  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);

  // получаем данные из memo
  for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-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;

  // копируем данные в clipboard
  mem.SelectAll;
  mem.CopyToClipboard;

  // если необходимо, то отправляем их в Excel
  // если нет, то они уже в буфере обмена
  if toExcel then
  begin
    ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
    ExcelApp.Visible := true;
  end;

  FreeAndNil(ExcelApp);
  DBGrid1.DataSource.DataSet.GotoBookmark(bm);
  DBGrid1.DataSource.DataSet.FreeBookmark(bm);
  DBGrid1.DataSource.DataSet.EnableControls;
  Screen.Cursor := crDefault;
end;

Программный процессор Delphi, который экспортирует содержимое TDBGrid в файл Excel или буфер обмена, в зависимости от значения параметра toExcel.

Вот разбивка того, что код делает:

1. Он создает компонент Memo (mem) и использует его как временное хранилище для данных.
2. Он проходит по столбцам DBGrid и добавляет наименования столбцов в Memo.
3. Затем он проходит по строкам DBGrid, добавляя данные каждой строки в Memo.
4. После сбора всех данных в Memo, он выбирает все текст в Memo, копирует его в буфер обмена или отправляет в файл Excel (в зависимости от toExcel).
5. Если отправлять в Excel, он создает новый файл и лист, устанавливает имя листа, а затем вставляет данные.
6. Наконец, он освобождает компонент Memo и сбрасывает курсор.

Код включает комментарии, объясняющие, что каждый раздел делает, и указывает, что метод требует COMObj и Excel97 модулей. Он также отмечает, что если вы используете Delphi 4, вам нужно заменить xlWBatWorkSheet на значение 1.

Вот некоторые предложения по улучшению кода:

• Вместо создания компонента Memo только для хранения данных, рассмотрите возможность использования TStringList или TStringBuffer для хранения данных. Это могло быть более эффективно и проще в работе.
• Когда отправляете данные в Excel, рассмотрите возможность использования встроенных методов объекта Excel для добавления строк и ячеек, а не просто вставки всех данных сразу. Это могло сделать форматирование данных и обработку больших наборов данных более простым.
• Если вы не планируете использовать компонент Memo после экспорта данных, рассмотрите возможность освобождения его ранее в коде, чтобы избежать утечек памяти.

В целом, код хорошо организован и легко понятен, но есть некоторые возможности для улучшения, которые могли бы сделать его более эффективным и эффективным.

В статье описывается метод экспорта содержимого DBGrid в Microsoft Excel или в буфер обмена (Clipboard) с помощью COM-объекта и компонента Excel.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::