本人用的是CreateOleObject方法,并没有用控件,但保存表时总是出现问题
var
ExcelID: Variant;
begin
ExcelID :=CreateOleObject('Excel.Application');;
.........
f SaveDialog.Execute then
   ExcelID.workbooks[1].SaveAs(SaveDialog.FileName);(也不行)
   //ExcelID.SaveAs(SaveDialog.FileName);(资料上说这样可以但在我这儿报错)
.......
end;
还有一个问题:在excel中能不能设定打印时每一页的末尾都有一个所有数值列的合计(知道那几个列为数值型)忘各位高手不吝赐教

解决方案 »

  1.   

    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open('E:\aa.xls',null,false,null,null,null,null,null,null,null,null,null,null,0));
      ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
      ExcelWorksheet1.Cells.Item[1,1]:='qiu';
      ExcelWorksheet1.Cells.Item[1,2]:='jianshe';
      ExcelWorkbook1.Save ;
      ExcelWorkbook1.SaveAs( 'E:\bb.xls',null,null,null,null,null,1,null,null,null,null,0);
      ExcelWorkbook1.Close(false);
      ExcelApplication1.Quit;
      

  2.   

    Have a try:maybe filename is not the first parm(No VBA help here, so I forget it), so uses it as follow,
    ExcelID.SaveAs(filename := SaveDialog.FileName);  // is it filename? I forgot..
      

  3.   

    Thank  imacih() very much
      

  4.   

    也非常感谢 qiujsh(四大皆空) 
    但我不是用的servers控件