控制excel文件,出现------OLE error 800A03EC-----错误
窗体上,有ExcelApplication1 , ExcelWorkBook1 , ExcelWorkSheet1 三个控件。代码如下
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, FileCtrl, Menus,
DBGridEhGrouping, GridsEh, DBGridEh, StrUtils, ExcelXP, OleServer, ComObj,
Excel2000;
procedure TForm3.N11Click(Sender: TObject); //统计综合概算
var
lujing:string;
v:OleVariant;
begin
ExcelApplication1.workbooks.Add(v,0); //新建 1个工作本
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
ExcelWorkSheet1.Cells.Item[2,3].FormulaR1C1:='单位文件名称';
ExcelWorkBook1.SaveAs('e:\sss.xls',v,v,v,v,v,v,v,v,v,v,0);
ExcelWorkBook1.Save ;
excelworkbook1.Close;
excelworksheet1.Disconnect;
excelworkbook1.Disconnect;
excelapplication1.Disconnect;
excelapplication1.Quit;
end;
运行,出现 OLE error 800A03EC
求解
ps:uses出现excelxp和excel2000,应该是跟我 家里和单位,excel装的版本不一样有关系,但上述错误均出现
[解决办法]
看到了,但不知道-_-!
[解决办法]
这类错误一般是传错了参数,查下VBA的帮助。
[解决办法]
也是有这个毛病,我用的是XE3!
[解决办法]
ExcelWorkSheet1.Cells.Item[2,3].FormulaR1C1:='单位文件名称';
这句是错的,FormulaR1C1是公式输入,后面赋值内容应该是一个公式
具体的用法自己去百度吧,或者打开Excel看看FormulaR1C1的VBA方法是怎么写的
还有:ExcelWorkSheet1.Cells.Item[2,3]改成ExcelWorkSheet1.Cells[2,3]