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就找出对应的数字就可以了