【急~~! 如何获得excel的行数和列数】

Question

RT
在delphi中用OLE连接到对应的excel后，用什么方法/函数可以获得对应excel的行数和列数啊？
在线等，急啊

Answer 1

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  ExcelApp, Sheet: Variant;
begin
  if OpenDialog1.Execute then
  begin
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Workbooks.Open(OpenDialog1.FileName);
    Sheet    := ExcelApp.ActiveSheet;
    Caption  := 'Row Count: ' + IntToStr(Sheet.UsedRange.Rows.Count);
    ExcelApp.Quit;
    Sheet    := Unassigned;
    ExcelApp := Unassigned;
  end;
end;http://rtdw.zj51.net/show.aspx?id=142&cid=12

Answer 2

可能是我有合并的单元格的原因吧
我试验了一般的excel的确返回的没错
但是我那个excel返回的行值是错误的

Answer 3

谢谢各位，目前我使用“Sheet.UsedRange.Rows.Count”这个方式，对于一般的excel表，可以获得准确的记录数目，但是对于我这个excel表却不能获得准确的数据，如果您们有兴趣，可以把email留给我，我把我的excel发给您们，请您们帮我看看是为什么？
谢谢您们