OLE访问Excel,提示错误“Variant does reference to an automation object”我的具体代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
mRow,mCol: Integer;
i,j: Integer;
ExcelApp,Sheet: Variant;
X: TStringList;
begin
ExcelApp.DisplayAlerts:=False;//禁止提示存盘
X:=TStringList.Create;
For i:=0 to FileListBox1.Items.Count-1 do
begin
ExcelApp.Workbooks.open(FileListBox1.Items[i]);//打开Excel文件
Sheet:=ExcelApp.Worksheets[1];//建立Excel的Sheet
ExcelApp.Worksheets[1].Activate;//激活Sheet1
X.Add(Sheet.Cells[2,15]);
end; ExcelApp.Workbooks.Close;
ExcelApp.Quit;end;错在哪里呐?
procedure TForm1.Button1Click(Sender: TObject);
var
mRow,mCol: Integer;
i,j: Integer;
ExcelApp,Sheet: Variant;
X: TStringList;
begin
ExcelApp.DisplayAlerts:=False;//禁止提示存盘
X:=TStringList.Create;
For i:=0 to FileListBox1.Items.Count-1 do
begin
ExcelApp.Workbooks.open(FileListBox1.Items[i]);//打开Excel文件
Sheet:=ExcelApp.Worksheets[1];//建立Excel的Sheet
ExcelApp.Worksheets[1].Activate;//激活Sheet1
X.Add(Sheet.Cells[2,15]);
end; ExcelApp.Workbooks.Close;
ExcelApp.Quit;end;错在哪里呐?
解决方案 »
- 咨询软件公司的事情。
- adoTable delete和UpdateBatch 的问题?
- idpop3怎样区分邮件是否为新邮件?
- 自己做了一个办公室看 股票行情 的小程序,免费送给边上班边炒股的朋友们
- 高分简单问题,(分不是问题哦^^)
- 现需要调用DLL中的函数取得一组字符串数据,那DLL中的函数应返回什么类型比较好呢?(我的分用完了,请大家帮助解答此问题!)
- 怎樣對查詢后的結果使用group by語句進行類別統計﹖并能通過dbchart來顯示查詢統計結果﹖
- 调用dll动态连接库
- 浮动窗口的问题!
- 一个delphi中的很实际的问题,多多讨论对大家都有好处。
- 有没有关于OLE访问Excel的资料阿,要详细学习一下,谢谢了
- 线程中 TBitmap 操作,报错“Out of system resources”?
ExcelApp:= CreateOleObject('Excel.Application');
ExcelApp.DisplayAlerts:=False;
//....