Delphi调用EXCEL问题?

Question

哪位前辈能提供一个Delphi调用EXCEL并向里面写入数据的例子啊,
最好是不用Delphi控件,真接加入ComObj单元,然后用代码完成. 
急,,十分感谢,,我只有这最后的50分啦,,全贡上!!!:(

Answer 1

procedure exceldo;//导出excel
var
 ExcelApp,MyWorkBook:Variant;
 i,cou:integer;
begin
 if main.saved.Execute then
  begin   try
     ExcelApp:=createoleobject('Excel.Application');
    MyWorkBook:=CreateOleObject('Excel.Sheet');
   except
    application.MessageBox('无法打开XLS文件，请确认已经安装EXCEL?','',mb_Ok+mb_IconStop);
   Exit;
   end;
   MyWorkBook:=ExcelApp.workbooks.add;
   if datam.MainDataS.DataSet=datam.MainTable then
    begin
     datam.MainTable.First;
      while not datam.MainTable.Eof do
      begin
         MyWorkBook.WorkSheets[1].Cells[i,1].value:=datam.MainTable.FieldByName('ocflag').AsString;
       datam.MainTable.Next;
      end;
    end;
end;
这是导入EXCEL，反之就是读s:=MyWorkBook.WorkSheets[1].Cells[i,1].value；

Answer 2

Unit unit1;InterfaceUses  Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;  { ComObj是操作OLE对象的函数集}Type  TForm1=class(TForm)Button1:TButton;Procedure Button1Click(Sender:Tobject);  Private { Private declaration}  Public { Public declaration }  end; var  Form1:Tform1; Implementation{$R *.DFM}procedure TForm1.Button1Click(sender:Tobject);var  eclApp,WorkBook:Variant;  {声明为OLE Automation对象}  xlsFileName:string;begin  xlsFileName:='ex.xls';  try    {创建OLE对象：Excel Application与WordBook}eclApp:=CreateOleObject('Excel.Application');WorkBook:=CreateOleObject('Excel.Sheet');  ExceptApplication.MessageBox('你的机器没有安装Microsoft Excel',
'使用Microsoft Excel',MB_OK+MB_ICONWarning);Exit;  End;  TryShowMessage('下面演示：新建一个XLS文件，并写入数据，并关闭它。');WorkBook:=eclApp.workbooks.Add;EclApp.Cells(1,1):='字符型';EclApp.Cells(2,1):='Excel文件';EclApp.Cells(1,2):='Money';EclApp.Cells(2,2):=10.01;EclApp.Cells(1,3):='日期型';EclApp.Cells(2,3):=Date;WorkBook.SaveAS(xlsFileName);WorkBook.close;ShowMessage('下面演示：打开刚创建的XLS文件，并修改其中的内容，然后，由用户决定是否保存。');Workbook:=eclApp.WorkBooks.Open(xlsFileName);EclApp.Cells(1,4):='Excel文件类型';If MessageDlg(xlsFileName+'已经被修改，是否保存？',mtConfirmation,[mbYes,mbNo],0)=mrYes then  WorkBook.SaveElse  WorkBook.Saved:=True;  {放弃保存}Workbook.Close;EclApp.Quit;   //退出Excel Application
  exceptShowMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开，或系统错误。');WorkBook.close;EclApp.Quit;
  end;end;end.