procedure ExportDBGrid;
procedure ExportDBGrid(NewSheet: Boolean);
procedure ExportDBGrid(NewSheet: Boolean; Row, Col: Integer);
| NewSheet | Optional Boolean. True - export the dbgrid to new worksheet; False - export the dbgrid to existing worksheet. Default value is True. |
| Row | Optional Integer. Row index |
| Col | Optional Integer. Column index |
This example creates Example1.xls workbook with two worksheets which contain data from DBGrid1 and DBGrid2.
begin
DBGrid2Excel1.Workbook := nil; //Clears workbook
//First dbgrid
DBGrid2Excel1.WorkSheetName := 'DBGrid1 sheet'; //Specifies the name for first worksheet
DBGrid2Excel1.DBGrid := DBGrid1; //Specifies the dbgrid for export
DBGrid2Excel1.ExportDBGrid;
//Second dbgrid
DBGrid2Excel1.WorkSheetName := 'DBGrid2 sheet'; //Specifies the name for second worksheet
DBGrid2Excel1.DBGrid := DBGrid2; //Specifies the dbgrid for export
DBGrid2Excel1.ExportDBGrid;
DBGrid2Excel1.SaveAs('Example1.xls'); //Saves the created workbook into Example1.xls file
end;
This example creates Example2.xls workbook with one worksheet which contain data from DBGrid1 and DBGrid2.
begin
DBGrid2Excel1.Workbook := nil; //Clears workbook
DBGrid2Excel1.WorkSheetName := 'DBGrid1 and DBGrid2 sheet'; //Specifies the name for worksheet
//First dbgrid
DBGrid2Excel1.DBGrid := DBGrid1; //Specifies the dbgrid for export
DBGrid2Excel1.ExportDBGrid;
//Second dbgrid
DBGrid2Excel1.DBGrid := DBGrid2; //Specifies the dbgrid for export
DBGrid2Excel1.ExportDBGrid(false);
DBGrid2Excel1.SaveAs('Example2.xls'); //Saves the created workbook into Example2.xls file
end;
