Exports the
dbgrid to new or existing Worksheet
语法
procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
| Newsheet |
可选 Boolean。True - 把 dbgrid 导出到新工作表；False - 把 dbgrid 导出到既有工作表。默认值为 True |
| Row |
Optional Integer. Row index |
| Col |
Optional Integer. Column index |
示例
此示例创建 Example1.xls 工作簿，其中两个工作表分别包含来自 DBGrid1 和 DBGrid2 的数据
begin
GridToXLS1.Workbook := nil; //Clears Workbook
//First dbgrid
GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //Specifies the name for first Worksheet
GridToXLS1.DBGrid := DBGrid1; //Specifies the dbgrid for export
GridToXLS1.ExportDBGrid;
//Second dbgrid
GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //Specifies the name for second Worksheet
GridToXLS1.DBGrid := DBGrid2; //Specifies the dbgrid for export
GridToXLS1.ExportDBGrid;
GridToXLS1.SaveAs('Example1.xls'); //Saves the created Workbook into Example1.xls file
end;
此示例创建 Example2.xls 工作簿，其中一个工作表包含来自 DBGrid1 和 DBGrid2 的数据