VBScript 排序表格区域 (升序)

Dim objExcel Dim objBook Dim objSheet Dim objRange

Set objExcel = CreateObject("Excel.Application") Set objBook = objExcel.Workbooks.Open("C:\Test.xlsx") Set objSheet = objBook.Worksheets(1) Set objRange = objSheet.Range('A1:F6')

objRange.Sort Key1:=objRange.Cells(1,1), Order1:=xlAscending, Header:=xlYes

objBook.Save objBook.Close objExcel.Quit