VBScript中 - 自定義排序的Excel電子表格並保存

Question

目標

這個任務的目標是：

1. 在目錄中查找最近的Excel文件，
2. 那種文件中使用自定義列表（在下面的代碼中定義），
3. 使用相同名稱保存排序文件，並且
4. 讓Windows調度程序每隔10分鐘運行一次VB腳本。

我嘗試

我已經編譯的代碼，但我得到一個錯誤信息，當我嘗試運行它：

'Find the most recent file in directory 
Option Explicit 
Dim fso, path, file, recentDate, recentFile, objExcel, objWorkbook, objRange, objWorksheet, SortCol 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set recentFile = Nothing 
For Each file in fso.GetFolder("C:\Users\joe\Documents\test\").Files 
    If (recentFile is Nothing) Then 
    Set recentFile = file 
    ElseIf file.DateLastModified > recentFile.DateLastModified Then 
    If Left(recentFile.name, 2) = "~$" Then 
    Set recentFile = file 
    End If 
    End If 
Next 

'Open the most recent file 
Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open(recentFile.Path) 
Set objWorksheet = objWorkbook.Worksheets("Sheet1") 

'Sort by custom array 
objWorksheet.Sort.SortFields.Clear 
objWorksheet.Sort.SortFields.Add key:=Range("A1:A20") _ 
     , SortOn:=xlSortOnValues, Order:=xlDescending, CustomOrder:= _ 
     "alpha,bravo,charlie,delta,echo,foxtrot,golf,hotel,india,juliet", DataOption _ 
     :=xlSortNormal 
    With objWorksheet.Sort 
     .SetRange Range("A1:B20") 
     .Header = xlGuess 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 

'Save Excel workbook with same name 
objWorkbook.save 
objExcel.quit 

錯誤消息

線：23
字符：38
錯誤：預期聲明
代碼：800A0400
來源：Microsoft VBScript編譯器錯誤

Answer 1

您正在使用部分語法VBS不明白。 VBS只做位置未命名的參數。 Excel常量不可用於外部程序。

objWorksheet.Sort.SortFields.Add key:=Range("A1:A20") _ 
     , SortOn:=xlSortOnValues, Order:=xlDescending, CustomOrder:= _ 
     "alpha,bravo,charlie,delta,echo,foxtrot,golf,hotel,india,juliet", DataOption _ 
     :=xlSortNormal 

因此，所有這些常量都需要在Excel的對象瀏覽器中查找並使用該值。

Const xlSortNormal = 0 
    Member of Excel.XlSortDataOption 

你可以查看其他人。

假設你的位置是正確的

objWorksheet.Sort.SortFields.Add Range("A1:A20"), Enter Value, Enter Value, "alpha,bravo,charlie,delta,echo,foxtrot,golf,hotel,india,juliet", 0 

我的答案在這裏有VBA的提示和鏈接到一個網頁與Excel技巧。 Pointers needed for speeding up nested loop macro in VBA

另外VBS幫助可以在http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe下載。