获取EXCEL表单的行数和列数



    ExcelApp := CreateOleObject( 'Excel.Application' );
     try
       ExcelApp.WorkBooks.Open(opennamme);
       Sheet := ExcelApp.WorkSheets[1];
       rowcount := Sheet.UsedRange.Cells.Rows.Count;//获取行数
       colcount := Sheet.UsedRange.Cells.Columns.Count;//获取列数
       ExcelApp.ActiveWorkBook.Saved := True;
       ExcelApp.WorkBooks.Close;
     finally
       ExcelApp.Quit;
     end;