vbs无法使用.Sort进行数据排序吗，测试过很多次都无法成功

ZTOA10

目的：运行vbs代码后，对sheet1表格A列进行升序排序
运行后报错，百度查询很久都没有相关资料

运行报错

附件件里面包含了vbs代码，下面再贴一下代码，哪位大佬这方面比较精通的指导一下，感谢！



' 关联Excel应用程序
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")


' 打开工作簿
Set xlBook = xlApp.Workbooks.Open("C:\Users\Administrator\Desktop\demo\001.xlsx")


' 排序
xlBook.Worksheets("Sheet1").Columns("A:B").Sort Key1:=xlBook.Worksheets("Sheet1").Range("A2"), Order1:=1, Header:=1


' 保存
xlBook.Save


' 关闭
xlBook.Close
xlApp.Quit

ZTOA10

vbs除了.Sort排序之外还有其他快速的排序方式吗？

ZTOA10

最后还是自己解决了问题，下面是方法：

1. '排序：1表示升序，2表示降序；标题：xlYes表示第一行为标题，xlNo表示第一行不是标题
   
2. oSheet.Range("A1:K" & oSheet.UsedRange.Rows.Count).Sort oSheet.Range("B2"),2,,,,,,xlYes

复制代码

QQ214189912

1. Dim xlApp, xlBook,strUrrentPath
   
2. strUrrentPath = Createobject("Scripting.FileSystemObject").GetFolder(".").Path
   
3. Set xlApp = CreateObject("Excel.Application")
   
4. Set xlBook = xlApp.Workbooks.Open( strUrrentPath & "\001.xlsx")
   
5. xlBook.Worksheets("Sheet1").Columns("A:B").Sort xlBook.Worksheets("Sheet1").Range("A2"),1,,,,,,1
   
6. xlBook.Save
   
7. xlBook.Close
   
8. xlApp.Quit

复制代码

lss001

Set Sh = xlBook.Worksheet("Sheet1")
r = Sh.Cells(Sh.Rows.Count, 2).Row
Sh.Sort.SortFields.Clear
'排序：1升序，2降序
Sh.Range("A1:B" & r).Sort Sh.Range("B2"), 2