如何取得excel 中sheet内某列数据的最大值？

[gyhong]

如何取得excel 中sheet内某列数据的最大值？
我想在工作表中取得某列（比如第一列）单元格内容的最大值，如何

[firstshine]

procedure TForm1.Button1Click(Sender: TObject);
var
vExcel: Variant;
vWorkbook:Variant;
vRange:Variant;
f:Double;
begin
vExcel:=CreateOleObject('Excel.Application' );
vExcel.Visible:=True;
vWorkBook:=vExcel.WorkBooks.Add;
vWorkBook.ActiveSheet.Cells[1,1].Value:='1';
vWorkBook.ActiveSheet.Cells[2,1].Value:='13';
vWorkBook.ActiveSheet.Cells[3,1].Value:='4.9';
vWorkBook.ActiveSheet.Cells[5,1].Value:='7.8';
vWorkBook.ActiveSheet.Cells[6,1].Value:='15.6';
vWorkBook.ActiveSheet.Cells[7,1].Value:='22.3';
vWorkBook.ActiveSheet.Cells[8,1].Value:='-1';
vWorkBook.ActiveSheet.Cells[9,1].Value:='12';
vWorkBook.ActiveSheet.Cells[10,1].Value:='155';
vWorkBook.ActiveSheet.Cells[11,1].Value:='13';

vRange:=vWorkBook.ActiveSheet.Range['A:A'];//第一列
f:=vExcel.WorksheetFunction.Max(vRange);

ShowMessage(FloatToStr(f));
vExcel.DisplayAlerts := False;
vWorkBook.Close;
vWorkBook:=Unassigned;
vExcel.Quit;
vExcel:=Unassigned;
end;

[lovend]

帮你顶