我用delphi,通過ole操作excel的時候,我想excel不關閉,同時也可以寫內容到excel裡面,怎麼實現?謝謝
解决方案 »
- CopyMemory的源码困惑
- 但是Create(self),Create(nil) 有什么区别啊
- 两个问题?1.关于combobox的及...
- 修改数据
- 求助一个算法。
- 求助]DELPHI+SQL求救!希望大家能够尽快帮我解决!!谢谢
- 改变窗体最顶一栏的颜色
- 用delphi5打不开delphi6的工程吗?
- 我用.RecNo 定位记录,但是为什么不能修改???
- 在同一个socket连接中能不能同时用sendtext和sendstream???
- 100分求几个math 函数,立马给分,亦欢迎各位大侠讨论其他的MAth函数
- 如何将TDATABASE/TTABLE/TDBCHART这样的控件做成ACTIVEX控件?
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]:='产品质量月报';
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;