怎样得到Excel当前工作表（Sheet）包涵数据的最大行、列数？ ( 积分: 100 )

使用delphi操纵Excel，使用 ExcelApplication、ExcelWorkbook、ExcelWorksheet！！！！！

用ExcelWorkbook装入：1.xls 文件，ExcelWorksheet设为ExcelWorkbook的第一张工作表，

1.xls工作表中包括20行70列数据。

我想用编程的方式得到ExcelWorksheet中包含数据的最大行数和列数（20、70）？？？？

[red][在vba中使用如下方法就可以：

ir = [a65536].End(xlUp).Row 行数
ic = [AZ1].End(xlToLeft).Column 列数

][/red]

能告诉我在delphi中如何实现吗？

使用delphi操纵Excel，使用 ExcelApplication、ExcelWorkbook、ExcelWorksheet！！！！！

用ExcelWorkbook装入：1.xls 文件，ExcelWorksheet设为ExcelWorkbook的第一张工作表，

1.xls工作表中包括20行70列数据。

我想用编程的方式得到ExcelWorksheet中包含数据的最大行数和列数（20、70）？？？？

[red][在vba中使用如下方法就可以：

ir = [a65536].End(xlUp).Row 行数
ic = [AZ1].End(xlToLeft).Column 列数

][/red]

能告诉我在delphi中如何实现吗？

rcnt1 := ExcelWorksheet.UsedRange[0].Rows.Count;
ccnt1 := ExcelWorksheet.UsedRange[0].Columns.Count;