طريقة SaveAs

بناء الجملة

مثال

begin
  GridToXLS1.Workbook := nil; //يمسح Workbook

  //أول dbgrid
  GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //يحدد اسم Worksheet الأولى
  GridToXLS1.DBGrid := DBGrid1; //يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid;

  //ثاني dbgrid
  GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //يحدد اسم Worksheet الثانية
  GridToXLS1.DBGrid := DBGrid2; //يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid;

  GridToXLS1.SaveAs('Example1.xls'); //يحفظ Workbook المنشأ في ملف Example1.xls
  GridToXLS1.SaveAs('Example1.xlsx'); //يحفظ Workbook المنشأ في ملف Example1.xlsx
  GridToXLS1.SaveAs('Example1.html'); //يحفظ Workbook المنشأ في ملف Example1.html
  GridToXLS1.SaveAs('Example1.rtf'); //يحفظ Workbook المنشأ في ملف Example1.rtf
end;