Экспортирует
dbgrid на новый или существующий лист
Синтаксис
procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
| Newsheet |
Необязательный Boolean. True - экспортировать dbgrid на новый Worksheet; False - экспортировать dbgrid на существующий Worksheet. Значение по умолчанию True |
| Row |
Optional Integer. строка индекс |
| Col |
Optional Integer. столбец индекс |
Пример
Данный пример создаёт рабочую книгу Example1.xls с двумя листами, содержащими данные из DBGrid1 и DBGrid2
begin
GridToXLS1.Workbook := nil; //Clears книга
//First dbgrid
GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //Указывает имя первого листа
GridToXLS1.DBGrid := DBGrid1; //Указывает DBGrid для экспорта
GridToXLS1.ExportDBGrid;
//Second dbgrid
GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //Указывает имя второго листа
GridToXLS1.DBGrid := DBGrid2; //Указывает DBGrid для экспорта
GridToXLS1.ExportDBGrid;
GridToXLS1.SaveAs('Example1.xls'); //Saves created книга в Example1.xls файл
end;
Данный пример создаёт рабочую книгу Example2.xls с одним листом, содержащим данные из DBGrid1 и DBGrid2