Dokumentacja HotXLS
Start Spis treści Omówienie

Metoda ExportDBGrid

Eksportuje dbgrid do nowego lub istniejącego arkusza

Składnia

procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
Newsheet Opcjonalny Boolean. True - eksportuje dbgrid do nowego Worksheet; False - eksportuje dbgrid do istniejącego Worksheet. Wartość domyślna to True
Row Optional Integer. wiersz indeks
Col Optional Integer. kolumna indeks

Przykład

Ten przykład tworzy skoroszyt Example1.xls z dwoma arkuszami zawierającymi dane z DBGrid1 i DBGrid2 

begin
  GridToXLS1.Workbook := nil; //Clears skoroszyt

  //First dbgrid
  GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //Określa nazwę pierwszego arkusza
  GridToXLS1.DBGrid := DBGrid1; //Określa DBGrid do eksportu
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //Określa nazwę drugiego arkusza
  GridToXLS1.DBGrid := DBGrid2; //Określa DBGrid do eksportu
  GridToXLS1.ExportDBGrid;

  GridToXLS1.SaveAs('Example1.xls'); //Saves created skoroszyt do Example1.xls plik
end;
Ten przykład tworzy skoroszyt Example2.xls z jednym arkuszem zawierającym dane z DBGrid1 i DBGrid2 

begin
  GridToXLS1.Workbook := nil; //Clears skoroszyt
  GridToXLS1.WorksheetName := 'DBGrid1 and DBGrid2 sheet'; //Określa nazwę arkusza

  //First dbgrid
  GridToXLS1.DBGrid := DBGrid1; //Określa DBGrid do eksportu
  GridToXLS1.ExportDBGrid;

  //Second dbgrid
  GridToXLS1.DBGrid := DBGrid2; //Określa DBGrid do eksportu
  GridToXLS1.ExportDBGrid(false);

  GridToXLS1.SaveAs('Example2.xls'); //Saves created skoroszyt do Example2.xls plik
end;