HotXLS 文件
首頁 目錄 概述

ExportDBGrid 方法

將資料庫格匯出至新的或現有的工作表

語法

procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
Newsheet 選用 Boolean。True - 將 dbgrid 匯出到新的 Worksheet；False - 將 dbgrid 匯出到現有的 Worksheet。預設值為 True
Row Optional 整數. 列 索引
Col Optional 整數. 欄 索引

範例

此範例建立包含兩個工作表的 Example1.xls 活頁簿，工作表中分別包含 DBGrid1 和 DBGrid2 的資料 

begin
  GridToXLS1.Workbook := nil; //Clears 活頁簿

  //First dbgrid
  GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //指定第一個工作表的名稱
  GridToXLS1.DBGrid := DBGrid1; //指定要匯出的 DBGrid
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //指定第二個工作表的名稱
  GridToXLS1.DBGrid := DBGrid2; //指定要匯出的 DBGrid
  GridToXLS1.ExportDBGrid;

  GridToXLS1.SaveAs('Example1.xls'); //Saves created 活頁簿 到 Example1.xls 檔案
end;
此範例建立包含一個工作表的 Example2.xls 活頁簿，工作表中包含 DBGrid1 和 DBGrid2 的資料 

begin
  GridToXLS1.Workbook := nil; //Clears 活頁簿
  GridToXLS1.WorksheetName := 'DBGrid1 and DBGrid2 sheet'; //指定工作表的名稱

  //First dbgrid
  GridToXLS1.DBGrid := DBGrid1; //指定要匯出的 DBGrid
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.DBGrid := DBGrid2; //指定要匯出的 DBGrid
  GridToXLS1.ExportDBGrid(false);

  GridToXLS1.SaveAs('Example2.xls'); //Saves created 活頁簿 到 Example2.xls 檔案
end;