Delphi判断excel多少行列

uses  ComObj; 
   
  var  Excel:  OleVariant; 
          MaxRow,MaxCol:  integer; 
  begin 
      try 
          Excel := CreateOLEObject('Excel.Application'); 
      except 
          ShowMessage('Excel没有安装'); 
          Exit; 
      end; 
      try 
          Excel.WorkBooks.Open('c:/123.xls'); 
          MaxRow:=Excel.WorkSheets[1].UsedRange.Rows.Count; 
          MaxCol:=Excel.WorkSheets[1].UsedRange.Columns.Count; 
          ShowMessage(Format('%d  %d',[MaxRow,MaxCol])); 
      finally 
          Excel.Quit; 
      end; 
  end