office2000 VB6操作EXCEL自动排序解决办法

office2000 VB6操作EXCEL自动排序
最近在维护一个老项目，用的是office2000的API 
请问谁知道VB6调用office2000 EXCEL的API排序？

我在网上找了这样一段代码

VB code

   ExcelSheet.Range("A2:J20").Sort Key1:=Range("J1"), Order1:=xlDescending, Header:= _   xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _   SortMethod:=xlPinYin, DataOption1:=xlSortNormal