Question

delphi如何从数据库中按excel模版格式导出到excel

Answer 1

关于操纵EXCEL增加行并保持设定好的格式的问题，我有个解决办法，不知道是不是符合你的意思： 其实我只要事先在模板文件中将两行的格式设定好就行了，比如我把第7和第8行的底色设成灰色，你在DELPHI中就可以通过在第8行前插入行就OK了。 varExcelApp, MyWorkBook, sheet: OLEVariant; f1: string; i: integer;beginExcelApp := createoleobject('excel.application'); ExcelApp.visible := false; ExcelApp.ScreenUpdating := false; f1 :='c:\模板文件.xls'; ExcelApp.WorkBooks.Open(f1); MyWorkBook := ExcelApp.workbooks[1]; sheet := MyWorkBook.worksheets[1]; for i := 0 to table1.RecordCount - 1 dobeginsheet.rows[8 + i].insert; sheet.cells[8 + i, 1] := 'A'; sheet.cells[8 + i, 2] := 'B'; table1.next;end;sheet.rows[7].delete; //删除仅为提供格式样板的多余空行