uses ComObj;
var Excel: OleVariant;
MaxRow,MaxCol: integer;
begin
try
Excel := CreateOLEObject('Excel.Application');
except
ShowMessage('Excel没有安装');
Exit;
end;
try
Excel.WorkBooks.Open('c:/123.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
Delphi判断excel多少行列
最新推荐文章于 2023-01-17 15:09:54 发布