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

Question

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

Answer 1

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;