读书人

delphi控制EXCEL哪里出错?该怎么解

发布时间: 2012-03-02 14:40:29 作者: rapoo

delphi控制EXCEL,哪里出错?
以下是代码,请帮看下哪里出错?
procedure TForm1.FormCreate(Sender: TObject);
var
excelapp:variant;
m:integer;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=false;
excelapp.DisplayAlerts:=False;
excelapp.workbooks.open('e:\11.xls');
m:=excelapp.sheet[1].usedrange.rows.count;
showmessage(inttostr(m));

end;
报错“无效的类别字符串”,应该如何解决?

[解决办法]

Delphi(Pascal) code
ExcelApp.Workbooks.Open('e:\11.xls', EmptyParam, ReadOnly, EmptyParam, EmptyParam,  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False);
[解决办法]
VBA里有ReadOnly,Delphi就找出对应的数字就可以了

读书人网 >.NET

热点推荐