怎么得到Excel表格中每个Sheet的有效行、列

Question

我只能得到有多少个sheet.和当前sheet有多少行、列。
就是不能切换sheet得到别的sheet的行、列
ExcelApplication1.ActiveCell.SpecialCells(xlCellTypeLastCell,EmptyParam).Select;
row:=ExcelApplication1.ActiveCell.Row;
col:=ExcelApplication1.ActiveCell.Column;

Answer 1

如果工作表是固定的sheet2,sheet3,可用下面方法
 
ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 
row2:=ExcelApplication1.ActiveCell.Row; 
col2:=ExcelApplication1.ActiveCell.Column; 

Answer 2

ExcelApp.WorkSheets[m].Activate;
ExcelApp.ActiveCell.SpecialCells(xlCellTypeLastCell,EmptyParam).Select;
row:=ExcelApp.ActiveCell.Row;
col:=ExcelApp.ActiveCell.Column;