lizhenjia(暴雪):
使用worksheet.UsedRange.Rows.Count后编译
提示:Method 'UseDRange' Not support by automation object为何?

解决方案 »

  1.   

    Row:=XlsApp.Sheets(1).UsedRange.Rows.Count
      

  2.   

    Row:=XlsApp.Sheets(1).UsedRange.Rows.Count 
      

  3.   

    在users中加上comobj
    worksheet是当前操作的工作表!
      

  4.   

    代码如下请帮我检查一下:
    uses
     ...comobj...
    .
    .
    .
    procedure Tfrm_LoadData.DataLoad;
    var
      XlsApp,XlsSheet: Variant;
      I,J,k,Row,Col,sRow,sCol: integer;
      ExcelFile: string;
      TmpString: String;
    begin
    //  TableFields;  
      ExcelFile := Trim(Edit1.Text);
      try
        if VarIsEmpty(XlsApp) then
          XlsApp := CreateOleObject('Excel.Application');
        XlsSheet := XlsApp.workbooks.open(ExcelFile);
        Row:=XlsApp.Sheets(1).UsedRange.Rows.Count;//出错行
        progressbar1.Step := 1;
        progressbar1.Position := 0;
        progressbar1.Max := row;
        Col := g_col;
        sRow := 1;
        sCol := 1;
        for I := sRow to (sRow + Row) - 1 do
        begin
          k := 0;
          TmpString := '';
          ADS_LoadData.open;
          ADS_LoadData.Append;
          for J := sCol to (sCol + Col) - 1 do
                begin
            TmpString := XlsSheet.ActiveSheet.Cells[I,J].Text;
            ADS_LoadData.Fields[k].AsString := TmpString;
            k := k + 1;
          end;
          try
            ADS_LoadData.Post;
            progressbar1.StepIt;
          except
            showmessage('¼Æ¾Ú¾É¤J¤¤Â_,¦³¥i¯à¸ê®Æ­«´_©Îªíµ²ºcÉOExcelÀÉ®×µ²ºc¤£¦P!');
            ads_loaddata.Cancel;
            abort;
          end;
        end;
      Application.MessageBox('¼Æ¾Ú±qExcel¾É¤J¼Æ¾Úªí¦¨¥\!','´£¥Ü',mb_OK + MB_DEFBUTTON1);
      except
        Application.MessageBox('¼Æ¾Ú±qExcel¾É¤J¼Æ¾Úªí¤£¦¨¥\!','¿ù»~',mb_OK + MB_DEFBUTTON1);
      end;
        XlsSheet.close;
        XlsApp.Application.quit;
        XlsApp := Unassigned;
        XlsSheet := Unassigned;
    end;
      

  5.   

    将出错行换成:
    showmessage(inttostr(XlsApp.workbooks[1].worksheets[1].UsedRange.Rows.Count))!
      

  6.   

    lizhenjia(暴雪):
    谢谢你的帮助!