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);

---

»¹ÉÙʲô¶«¶«Âð£¿
[Error] Unit1.pas(43): Undeclared identifier: 'ReadOnly'

---

VBAÀïÓÐReadOnly£¬Delphi¾ÍÕÒ³ö¶ÔÓ¦µÄÊý×־ͿÉÒÔÁË