控制Exce实现分类汇总

Question

我知道如何控制Exce实现分类汇总（合计），代码如下：
ExcelApp.Selection.Subtotal(fenleiziduan,-4157,hejiziduan,True,False,True);
如果不是合计，进行求平均、最大、最小等，如何办？

Answer 1

谢谢jskcxy,如何知道这些数字的？

Answer 2

在Excel里录制好宏，然后在Excel的VBA环境下察看参数，
打开[视图]菜单下的[对象浏览器]，在文本框里输入参数后按回车或旁边的望远镜按钮，左下角就会出现内码。

Answer 3

看见了，非常感谢jskscxy，结贴时给分。
我想再问一下，如何在delphi中调用excel中的函数。例如，我把数据导出到excel后，在某一单元格调用公式对数据进行处理。 

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  xlApp: Variant;
begin
  try
    xlApp := CreateOleObject('Excel.Application');
  except
    ShowMessage('您的机器里未安装Microsoft Excel。');
    Exit;
  end;
  try
    xlApp.Visible := True;
    xlApp.workBooks.Open('C:\Documents and Settings\prod4-03\桌面\book1.xls');
    //--------------------------------------------
    xlApp.ActiveSheet.Cells[7, 6].Formula := '=sum(f1:f4)';
    xlApp.ActiveSheet.Range['F8'].Formula := '=sum(f1:f4)';    //--------------------------------------------    xlApp := Unassigned; //释放VARIANT变量
  except
    ShowMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开, 或系统错误。');
    xlApp.Quit;
    xlApp := Unassigned; //释放VARIANT变量
  end;
end;