HotXLS Belgeleri

ExportDBGrid yöntem

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

begin
  GridToXLS1.Workbook := nil; //Clears Workbook
  GridToXLS1.WorksheetName := 'DBGrid1 and DBGrid2 sheet'; //Specifies the name for Worksheet

  //First dbgrid
  GridToXLS1.DBGrid := DBGrid1; //Specifies the dbgrid for export
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.DBGrid := DBGrid2; //Specifies the dbgrid for export
  GridToXLS1.ExportDBGrid(false);

  GridToXLS1.SaveAs('Example2.xls'); //Saves the created Workbook into Example2.xls file
end;