Question

谁知道如何用delphi得到excel数据中得行数和列数？

如题，我是ExcelApp := CreateOleObject( 'Excel.Application' );连接excel的，请问如何得到表中数据得行数和列数？

Answer 1

uses ComObj;

var Excel: OleVariant;
MaxRow,MaxCol: integer;
begin
try
Excel := CreateOLEObject( 'Excel.Application ');
except
ShowMessage( 'Excel没有安装 ');
Exit;
end;
try
Excel.WorkBooks.Open( 'c:\1.xls ');
MaxRow:=Excel.WorkSheets[1].UsedRange.Rows.Count;
MaxCol:=Excel.WorkSheets[1].UsedRange.Columns.Count;
ShowMessage(Format( '%d %d ',[MaxRow,MaxCol]));
finally
Excel.Quit;
end;
end;