总出错,请问如何用delphi 动态地添加一个worksheet给一个Excel文件

Question

用xlsreadwrite控件试试.可以不要excle

Answer 1

直接调用excel：  try
    STBar.Panels[0].Text := '正在启动Excel...';
    if VarIsEmpty(XlsApp) then
      XlsApp := Createoleobject('Excel.Application');
      XLsApp.Workbooks.Add;
      XlsSheet := XLsApp.Worksheets['Sheet1'];
  except
    Application.MessageBox(pchar('Ms Excel 无法启动,数据转入终止!'),pchar('注意'),mb_ok);
    Abort;
end;

Answer 2

谢谢cobi(小新国际),不过我这次用的是server控件,而且在打开文件时也有问题,因为无论是open方法还是add方法都有很多参数,我不太懂,望赐教!如可以,看一下我的另外一个问题:http://www.csdn.net/expert/topicview1.asp?id=280909,真的很急!不胜感激!

Answer 3

参考一下delphi的例子吧，在demos下面有个activex\oleauto\srvcomp的子目录，下面有excel的例子