Импорт данных из Excel в таблицу на Delphi: работа с колонками в цикле

Delphi , Технологии , COM и DCOM

Вопрос, поднятый Henry Olive, касается импорта данных из файла Excel в таблицу, созданную с использованием Delphi. Основная проблема заключается в том, что при сканировании листа Excel необходимо определить номер текущей колонки, с которой выполняются операции. Однако в коде, предоставленном Henry Olive, использована некорректная попытка обращения к методу Cell, который не поддерживается.

В контексте обсуждения, DelphiUdIT предлагает импортировать типbibliothek Excel, чтобы получить доступ ко всем свойствам объектов в файле Excel..._tlb.pas, аналогично тому, как это делается с OleObj. Die Holländer представляет пример создания собственного объекта Excel для проектов на Delphi, который включает в себя создание нового экземпляра Excel, получение новой рабочей книги и работы с листом.

Решение проблемы

Для решения проблемы с определением номера колонки в цикле, можно использовать следующий подход:

var
  Sheet, Book: Variant;
begin
  Book := ExcelApp.WorkBooks.Open(OD1.FileName);
  Sheet := Book.Worksheets[1];
  for Col := 1 to Sheet.Cells.Columns.Count do
  begin
    // Здесь код для выполнения действий с колонкой number Col
    if True then // условно, что действия должны выполняться
      doThis;
  end;
end;

Важно отметить, что индексация в Excel начинается с 1, а не с 0, как в многих других коллекциях в Delphi. Поэтому в цикле используется for Col := 1 to ... и Sheet.Cells.Columns.Count.

Также можно использовать пример класса TExportExcel, предложенный Die Holländer, для работы с ячейками. Функция GetCell(aRow, aCol: integer): OLEVariant; позволяет получить значение ячейки, а SetCellValue(aRow, aCol: integer; const Value: OLEVariant); - установить значение в ячейку.

Альтернативное решение

В качестве альтернативного решения можно использовать следующий подход с использованием COM-объектов:

uses
  ActiveX;

type
  TExcelCell = interface
    ['{00020813-0000-0000-C000-00000000048}']
    function GetAddress(local: Integer; aRow: Integer; aCol: Integer): String; stdcall;
    property Address: String read GetAddress;
  end;

var
  Excel: Variant;
  Sheet: Variant;
  Cell: TExcelCell;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    Excel.Visible := False;
    var Workbook: Variant;
    Workbook := Excel.Workbooks.Open(OD1.FileName);
    Sheet := Workbook.ActiveSheet;
    for var Col := 1 to Sheet.Cells.Columns.Count do
    begin
      Cell := Sheet.Cells(1, Col) as TExcelCell;
      Writeln(Format('Column number: %s', [Cell.Address]));
      // Дополнительные действия с колонкой
    end;
  finally
    Excel.Quit;
  end;
end.

В данном коде мы используем интерфейс TExcelCell, чтобы получить адрес ячейки, который содержит информацию о номере колонки. Это позволяет избежать проблемы с несуществующим методом Cell.

Заключение

При работе с Excel в Delphi важно правильно обращаться к свойствам объектов и использовать правильные индексы. Представленные решения позволяют эффективно импортировать данные из Excel, обрабатывая колонки в цикле.

Создано по материалам из источника по ссылке.

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

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

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

:: Главная :: COM и DCOM ::