delphi-操作excel

Delphi 中可以通过 OLE 技术来操作 Excel，主要使用 TExcelApplication、TExcelWorkbook、TExcelWorksheet 等组件。

以下是一个简单的例子，演示如何通过 Delphi 打开 Excel 文件并读取其中的数据：

uses
  ComObj, ExcelXP;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: TExcelApplication;
  ExcelWorkbook: TExcelWorkbook;
  ExcelWorksheet: TExcelWorksheet;
  Range: Variant;
  i, j: Integer;
begin
  ExcelApp := TExcelApplication.Create(nil);
  ExcelWorkbook := TExcelWorkbook.Create(nil);
  ExcelWorksheet := TExcelWorksheet.Create(nil);

  try
    ExcelApp.Connect;
    ExcelWorkbook.ConnectTo(ExcelApp.Workbooks.Open('C:\test.xlsx'));
    ExcelWorksheet.ConnectTo(ExcelWorkbook.Worksheets[1]);

    // 读取 Excel 中的数据
    for i := 1 to 10 do
    begin
      for j := 1 to 10 do
      begin
        Range := ExcelWorksheet.Range[ExcelWorksheet.Cells[i, j], ExcelWorksheet.Cells[i, j]];
        ShowMessage(Range.Value2);
      end;
    end;
  finally
    ExcelWorksheet.Disconnect;
    ExcelWorkbook.Disconnect;
    ExcelApp.Disconnect;
    ExcelWorksheet.Free;
    ExcelWorkbook.Free;
    ExcelApp.Free;
  end;
end;

这个例子中，我们创建了 TExcelApplication、TExcelWorkbook、TExcelWorksheet 三个组件，并使用 Connect、ConnectTo 方法将它们连接起来。然后打开 Excel 文件，并读取其中的数据。最后使用 Disconnect、Free 方法进行资源释放。

当然，在实际应用中，我们可能需要更复杂的操作，比如写入数据、设置格式等，这些都可以通过 Delphi 中的 OLE 技术来实现。