office2000 VB6操作EXCEL自动排序

[mycodeis0000]

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

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

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

但是在office2000下报错

[mycodeis0000]

有人知道么？

[mycodeis0000]

有人知道么？

[qgqch2008]

額……綁定了

[crackdung]

http://www.ocxt.com/

方便快捷

[mycodeis0000]

我装了2003 这个问题搞定了
还有一个问题

    
 On Error GoTo Err_lbl
 Set ExcelApp = CreateObject("Excel.Application")         '创建EXCEL对象
 Set ExcelBook = ExcelApp.Workbooks.Open(strPath)
 Set ExcelSheet = ExcelBook.Worksheets(1)                    '生成凭证后的ID

 ExcelSheet.Range("A2:J" & ExcelSheet.[I65536].End(xlUp).Row).Sort Key1:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
     :=xlPinYin, DataOption1:=xlSortNormal
同样是排序
'     ExcelBook.SaveAs ("C:\AAAAAAAA.xls")
     
Err_lbl:
    strGroup = Err.Description
    ExcelBook.Close (True)
    ExcelApp.Quit
    Set ExcelBook = Nothing
    Set ExcelApp = Nothing

第一次执行OK
第二次执行上面的代码
报错："应用程序定义或对象定义错误"

[mycodeis0000]

我装了2003 这个问题搞定了
还有一个问题

On Error GoTo Err_lbl
 Set ExcelApp = CreateObject("Excel.Application")         '创建EXCEL对象
 Set ExcelBook = ExcelApp.Workbooks.Open(strPath)
 Set ExcelSheet = ExcelBook.Worksheets(1)                    '生成凭证后的ID

 ExcelSheet.Range("A2:J" & ExcelSheet.[I65536].End(xlUp).Row).Sort Key1:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
     :=xlPinYin, DataOption1:=xlSortNormal

 ExcelBook.SaveAs ("C:\AAAAAAAA.xls")
     
Err_lbl:
    strGroup = Err.Description
    ExcelBook.Close (True)
    ExcelApp.Quit
    Set ExcelBook = Nothing
    Set ExcelApp = Nothing