怎么求excel有数据的行数和列数?

Question

delphi5
因为修改老代码不能升级delphi5，主要代码如下
var
 e:Variant;
 myworksheet1:Variant;  e := Createoleobject('excel.application');
  e.workbooks.open('c:\book1.xls',NULL,false,NULL,NULL,NULL,NULL,NULL,NULL,
  NULL,NULL,NULL,NULL,0);myworksheet1.UsedRange.Rows.Count;运行到myworksheet1.UsedRange.Rows.Count;报错提示为找不到成员请高手指点怎么求excel有数据的行数和列数?（delphi5）

Answer 1

MSExcel.ActiveSheet.UsedRange.Rows.Count

Answer 2

myworksheet1.UsedRange.Rows.Count;改为e.WorkSheets[1].UsedRange.Rows.Count;
另:
 求列数:e.WorkSheets[1].UsedRange.Columns.count;

Answer 3

var
Book: variant;
begin
 book:=createoleobject('excel.application');
 book.WorkBooks.Open('C:\book1.xls');
 行数:=book.ActiveSheet.usedRange.Rows.count;
end