VBS 為Excel 資料自動排序的用法

想要用VBS 為Excel 資料自動排序，需要注意到幾個重點：

• 要排序的 Excel 檔名，不可含有中文字
• 要為排序資料事先建立 範圍名稱(Range Name)
• 範圍名稱(Range Name)也不可以使用中文字
• VBS 程式中，要注意到 objRange.Sort 函式的使用語法及參數位置

以範例說明如下：

ERP_Sort_公告編號_A_Q.vbs
-----------------------------------------------------------
Const xlAscending = 1
Const xlYes = 1

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\ERP\ERP_On-Line_Notice.xls")
' Worksheets 編號由 1起算
Set objWorksheet = objWorkbook.Worksheets(4)
Set objRange = objWorksheet.UsedRange
Set objRange2 = objExcel.Range("AnnounceNo")
Set objRange3 = objExcel.Range("A")
Set objRange4 = objExcel.Range("Q")

objRange.Sort objRange2, xlAscending, objRange3, , xlAscending, objRange4, xlAscending, xlYes
------------------------------------------------------------

資料參考：Tips and Tricks for Scripting Microsoft Office Applications