Excel的问题？？

如何获取Excel的总行数？

解决方案 »

  1.   

    uses ComObj;var Excel: OleVariant;
        MaxRow: integer;
    begin
      try
        Excel := CreateOLEObject('Excel.Application');
      except
        ShowMessage('Excel没有安装');
        Exit;
      end;
      try
        Excel.WorkBooks.Open('c:\1.xls');
        MaxRow:=Excel.WorkSheets[1].UsedRange.Rows.Count;
        ShowMessage(IntToStr(MaxRow));
      finally
        Excel.Quit;
      end;
    end;