Как из DBGrid перенести данные в существующий Excel файл

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

//Если не обезательно из DBGrid-а... то вот пример из Query ...
// Если есть вопросы то ¹ ACQ 134087719

// имя файла шаблона и откуда (можно TTable)
Procedure SendtoExcel(ShFile: String; Querys: TQuery);
Var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
Begin
   BeginCol := 1;
   BeginRow := 3;

 // Размеры выводимого массива данных
   RowCount := Querys.RecordCount;
   ColCount := Querys.FieldDefs.Count;

 // Создание Excel
   ExcelApp := CreateOleObject('Excel.Application');

 // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;

 //  Создаем Книгу (Workbook)
 //  Если заполняем шаблон, то
   Workbook := ExcelApp.WorkBooks.Add(ShFile);
   ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

 // Заполняем массив
   Querys.DisableControls;
   Querys.First;
   While Not Querys.eof Do
   Begin
       For J := 1 To Querys.FieldDefs.Count Do
       Begin
           ArrayData[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Querys.Next;
   End;

   Querys.EnableControls;

//     Левая верхняя ячейка области, в которую будем выводить данные
   Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
 // Правая нижняя ячейка области, в которую будем выводить данные
   Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,
    BeginCol + ColCount - 1];

 // Область, в которую будем выводить данные
   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

 // А вот и сам вывод данных
 // Намного быстрее поячеечного присвоения
   Range.Value := ArrayData;

 // Делаем Excel видимым
   ExcelApp.Visible := True;
End;

Перевод контента на русский язык:

Задача - передать данные из DBGrid в существующий файл Excel с помощью Delphi.

Предлагается кодовый фрагмент:

Procedure SendtoExcel(ShFile: String; Querys: TQuery);

Эта процедура принимает два параметра:

• ShFile: имя шаблона файла Excel (например, "template.xlsx")
• Querys: объект TQuery, содержащий данные для передачи

Код создает экземпляр Excel, отключает события для ускорения процесса и добавляет новый рабочий стол из предоставленного шаблона. Затем он пополняет массив данными запроса с помощью VarArrayCreate. Массив используется для установки значения диапазона в таблице.

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

1. Обработка ошибок: добавить блоки try-catch для обработки потенциальных ошибок, таких как файл не найден или приложение Excel недоступно.
2. Организация кода: рассмотреть разбиение процедуры на более мелкие подпроцедуры, каждая из которых отвечает за конкретную задачу (например, создание рабочего стола Excel, пополнение массивом, установка значения диапазона).
3. Имя переменных: использовать более описательные имена переменных для улучшения читаемости кода.

Альтернативное решение - использовать компонент TExcelQuery из пакета dcevl, который предоставляет более прямой способ передачи данных из запроса в файл Excel.

uses dcevl;

procedure SendtoExcel(ShFile: String; Querys: TQuery);
var
  ExcelQuery: TExcelQuery;
begin
  ExcelQuery := TExcelQuery.Create(nil);
  try
    ExcelQuery.Query := Querys;
    ExcelQuery.FileName := ShFile;
    ExcelQuery.Execute;
  finally
    FreeAndNil(ExcelQuery);
  end;
end;

Эта APPROACH eliminates the need to manually create an array and set the range value, making the code more concise and easier to maintain.

В статье описывается способ переноса данных из DBGrid в существующий файл Excel с помощью процедуры SendtoExcel, созданной на языке Delphi.

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

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

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