请问如何知道Excel里面有多少页,每个页里面有多少行,每行有多少列有值!或者如何把所有的数据一项一项都读出来就可以!

解决方案 »

  1.   

    var
      ExcelApplication1: TExcelApplication;
      ExcelWorksheet1: TExcelWorksheet;
      ExcelWorkbook1: TExcelWorkbook;
    begin
        ExcelApplication1 :=TExcelApplication.Create(nil);
        ExcelWorksheet1 :=TExcelWorksheet.Create(nil);
        ExcelWorkbook1 :=TExcelWorkbook.Create(nil);    ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open(Trim  (edtFileName.Text),EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
        ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
    //判断Excel表里有多少条数据
        for i:=1 to 65535 do
        begin
          strPerson_No:=Trim(Excelworksheet1.Cells.Item[i,1]);
          if strPerson_No='' then
          //begin
            Break;
          //end;
        end;
    ................................................................