Delphi 自動化 Excel 報表產生實戰：從資料匯入、儀表格式化到列印輸出

OLE 自動化架構

Delphi 透過 CreateOleObject('Excel.Application') 啟動 Excel 進程（就地激活），操作 Workbooks、Worksheets、Range 等物件模型完成報表生成。

1. 建立 Excel 實例與工作表

function CreateExcel: Variant;
var V, Sheet: Variant;
begin
  V := CreateOleObject('Excel.Application');
  V.Visible := True;                     // 調試時顯示，正式可設 False
  V.Workbooks.Add(xlWBATWorksheet);      // -4167 = xlWBATWorksheet
  V.Workbooks[1].Sheets[1].Name := 'Report';
  Sheet := V.Workbooks[1].Sheets['Report'];
  Result := V;
end;

2. 資料匯入

procedure ImportData(const Excel: Variant; const Data: array of array of Variant);
var i, j: Integer;
begin
  for i := 0 to High(Data) do
    for j := 0 to High(Data[i]) do
      Excel.Workbooks[1].Sheets[1].Cells[i+1, j+1] := Data[i, j]; // 1-based
end;

3. 格式化：合併儲存格、邊框、字體

procedure FormatSheet(const Excel: Variant);
var Sheet, Rng: Variant;
begin
  Sheet := Excel.Workbooks[1].Sheets[1];
  Rng := Sheet.Range[Sheet.Cells[1,1], Sheet.Cells[39,30]];
  Rng.Select;
  Rng.Merge;                              // 合併
  Rng.Borders.LineStyle := xlContinuous;  // 邊框
  Rng.Font.Size := 9;                     // 字體
  Rng.HorizontalAlignment := xlCenter;    // 置中
end;

4. 模板複製分頁（關鍵技巧）

procedure CopyTemplate(const Excel: Variant; RowsPerPage: Integer);
var Sheet, SrcRng, DstRng: Variant; Page: Integer;
begin
  Sheet := Excel.Workbooks[1].Sheets[1];
  SrcRng := Sheet.Range[Sheet.Cells[1,1], Sheet.Cells[RowsPerPage, 30]];
  for Page := 2 to TotalPages do
  begin
    SrcRng.Copy;
    DstRng := Sheet.Range[Sheet.Cells[(Page-1)*RowsPerPage+1, 1], Sheet.Cells[(Page-1)*RowsPerPage+1, 1]];
    DstRng.Select;
    Sheet.Paste;
  end;
end;

5. 儲存與關閉

procedure SaveAndClose(const Excel: Variant; const FileName: string);
begin
  if FileName <> '' then
  begin
    Excel.Workbooks[1].SaveAs(FileName);
    Excel.Workbooks[1].Close(False);
    Excel.Quit;
    Excel := Unassigned; // 釋放 COM 參考
  end;
end;

工程實踐建議

替代方案

• 純 Delphi 報表引擎：FastReport、Rave、ReportBuilder（無 Office 相依）。
• 開放原始碼庫：ExcelExport、FREXLIB、ZMSQL（支援 .xlsx 直接寫入）。
• 伺服器端：EPPlus (C#)、Apache POI (Java)、LibreOffice headless 轉換。