Delphi控制Excel排序（实例）： 1）能按EXCEL任意一列的升降序进行排序 （最多可设三个关键字） 2）可选择是否包停含标题 3）函数调用简单：ExSort(ExcelApp,'B1',2,1); 函数原型： procedure ExSort(ExcelApp: Variant;Key:String;Order:Integer=1;Header_:Integer=2);