我用delphi,通過ole操作excel的時候,我想excel不關閉,同時也可以寫內容到excel裡面,怎麼實現?謝謝

解决方案 »

  1.   

    try
        eapp:=createoleobject('excel.application');
        eworkbook:=eapp.workbooks.add;
      except
        Application.MessageBox('输出到Excel文件时出错,请检查Office 2000安装是否正确。', '提示信息', MB_OK Or MB_ICONINFORMATION);
        exit;
      end;
      //    cells[行,列]
      eworkbook.worksheets[1].name:='产品质量日报';
      eworkbook.worksheets[1].Rows[1].RowHeight:= 25;             //设置表头
      eworkbook.worksheets[1].cells[1,1]:='产品质量月报';
      

  2.   

    var
       ExcelApp : Variant;
       Row      : Integer;
    begin
          ExcelApp := CreateOleObject( 'Excel.Application' );
          ExcelApp.Visible := false;//隐式打开EXCEL
          ExcelApp.WorkBooks.Open(FileName);// FileName is parameter
          ExcelApp.WorkSheets[1].Activate;
          Row:=2;
              
          ExcelApp.Cells[Row,1];='888';
          ExcelApp.Cells[Row,2];='3232'
          ExcelApp.Cells[Row,3];=343;
          ....//向Excel写入数据
          //工作表另存为:
          ExcelApp.SaveAs( 'F:\e1.xls' );
           
          ExcelApp.WorkBooks.Close;ExcelApp.Quit;//关闭工作簿
         // 退出 Excel:
          ExcelApp.Quit;
    end;
      

  3.   

    不是這個意思,是delphi操作excel的時候,在完成之後,進程裡面還留下了EXCEL.EXE,我想在delphi操作完之後此EXCEL.EXE也會消失,怎麼弄?