如何获得Excel文件的总行数

Question

谢谢～

Answer 1

showmessage(inttostr(excelworksheet2.UsedRange[1].Rows.Count));
showmessage(inttostr(excelworksheet2.UsedRange[1].Columns.Count));

Answer 2

showmessage(inttostr(excelworksheet2.UsedRange[1].Rows.Count));
showmessage(inttostr(excelworksheet2.UsedRange[1].Columns.Count));

Answer 3

大侠啊，我的程序报错唉：无效的参数数目
我的Excel对象是这样创建的
ExcelApp1 := CreateOleObject('Excel.Application');

Answer 4

把 Excel2000 也引用进去  appxls:=Createoleobject('excel.application');
  appXls.workbooks.add(edtPath.text);
  workbook:=appXls.workbooks[1];
  sheet:=workbook.worksheets[1];
  appXls.ActiveCell.SpecialCells(xlLastCell).Select;
  //不引用excel 2000 此处会报错的
  maxRow:=appXls.ActiveCell.Row;
  //行
  maxcol:=appXls.ActiveCell.Column ;
 //列

Answer 5

是uses Excel2000吗，可是我编译不通过，找不到dcu文件

Answer 6

加Variants 单元
procedure Tpricein.Button1Click(Sender: TObject);
var
   rr,j,ll_row,ll_col,bom_comn,type_field,price_field:integer;
   myworksheet1,MyExcel,MyWorkbook:Variant;
begin
if edit1.Text='' then
begin
 showmessage('请选择部件价格BOM!');
 exit;
end;
 try begin  screen.Cursor:=crHourGlass;
    MyExcel:=createoleobject('Excel.Application');
    MyWorkbook:=MyExcel.Workbooks.Open(datamodule2.OpenDialog1.FileName);
    MyExcel.Visible:=false;
    myworksheet1:=myexcel.worksheets[1];
    end;
    except
    Application.Messagebox('Excel 没有安装!','ERROR!', MB_ICONERROR + mb_Ok);
    Abort;
 end;
    ll_row:= myworksheet1.UsedRange.Rows.Count;
    ll_col:=myworksheet1.UsedRange.columns.Count;
    if ll_row<2 then
      begin
       if MessageDlg('当前EXCEL中没有数据!是否用此文件来清空以前的数据?',mtConfirmation,[mbYes, mbNo], 0)=mrNo then
        begin
          myworkbook.close;
          myexcel.quit;
          myexcel:=unassigned;
          screen.Cursor := crdefault;
          exit;
        end ;
      end;

Answer 7

No way~
我uses Variants还是找不到dcu文件