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