用wscript 操作 Excel 实现 SQL 排序

一 个表有A,B,C 共3列,有表头。SQL： select 1,2,3 from table order by 2 desc

原例 from www.vbsedit.com 经我改写: sort.vbs 

Ymd = WScript.Arguments.Item(0) '命令行参数
File1 = "D:\path\" & Ymd & "_1.xls"
File2 = "D:\path\" & Ymd & "_2.xls"

' Sort a Microsoft Excel Worksheet
 
Set objExcel = Createobject("Excel.Application") 
' 不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件 
objExcel.DisplayAlerts = False 
' 调用EXCEL文件的时候不显示, debug时显示用 True
objExcel.Visible = False

Set objWorkbook = objExcel.workbooks.open(File1) 
' 将sheet1设置为活动 
Set objWorksheet = objWorkbook.Worksheets(1)
'  select 1,2,3
Set objRange  = objWorksheet.UsedRange
Set objRange1 = objWorksheet.Range("A1")
Set objRange2 = objWorksheet.Range("B1")
Set objRange3 = objWorksheet.Range("C1")

' order by 2 desc
' 1: xlAscending , 2: xlDescending
objRange.Sort objRange2,2

objWorkbook.SaveAs File2
objExcel.quit
Set objExcel = Nothing 

欢迎热心网友给出Jscript 的写法。