Exports the
dbgrid to new or existing Worksheet
Sözdizimi
procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
| Newsheet |
Boolean İsteğe bağlı. True - dbgrid yeni bir çalışma sayfasına aktarılır; False - dbgrid mevcut bir çalışma sayfasına aktarılır. Varsayılan değer True |
| Row |
Optional Integer. Row index |
| Col |
Optional Integer. Column index |
Örnek
Bu örnek, DBGrid1 ve DBGrid2'den veri içeren iki çalışma sayfalı Example1.xls çalışma kitabını oluşturur
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;
Bu örnek, DBGrid1 ve DBGrid2'den veri içeren tek çalışma sayfalı Example2.xls çalışma kitabını oluşturur