Tweet Olá pessoal, Esta dica foi enviada pelo colega Walter Chagas e mostra como exportar dados de um DBGrid para o Excel. procedure TForm1.ExportDBGrid(toExcel: Boolean);varbm: TBookmark;col, row: Integer;sline: String;mem: TMemo;ExcelApp: Variant;beginScreen.Cursor := crHourglass;DBGrid1.DataSource.DataSet.DisableControls;bm := DBGrid1.DataSource.DataSet.GetBookmark;DBGrid1.DataSource.DataSet.First;// create the Excel objectif toExcel thenbeginExcelApp := CreateOleObject(‘Excel.Application’);ExcelApp.WorkBooks.Add(xlWBatWorkSheet);ExcelApp.WorkBooks[1].WorkSheets[1].Name := ‘Grid Data’;end; // First we send the data to a memo// […]