Выполнение Excel из сценария VBS

Question

Я пытаюсь запустить следующий код из файла .vbs под Windows, но не могу его запустить. Я добавил несколько команд из макроса, который я записал, и, видимо, это не работает. Не могли бы вы указать мне в правильном направлении? (Я понимаю, что это должно быть тривиальной проблемой)

Set fso = CreateObject("Scripting.FileSystemObject") 
Set xl = CreateObject("Excel.Application") 
xl.Visible = True 

For Each f In fso.GetFolder("C:\Temp").Files 
    If LCase(fso.GetExtensionName(f.Name)) = "xlsm" Then 
    Set wb = xl.Workbooks.Open(f.Path) 
    Set ws = wb.Worksheets("Data") 
    ' make sure number formatting is OK 
    ws.Cells.Select 
    ws.Selection.NumberFormat = "General" 
    ' kill header row 
    ws.Rows("1:1").Select 
    ws.Selection.Delete Shift:=xlUp 
    ' save output as CSV 
    wb.SaveAs Filename:= f.Path & ".csv", FileFormat:= xlCSVMSDOS, CreateBackup:=False 
    wb.Close 
    End If 
Next 

xl.Quit 

Answer 1

VBScript не делает ни поддерживает именованные аргументы, ни х * постоянная, как в вашем:

ws.Selection.Delete Shift:=xlUp 

См named/positional args, consts, other.