Открыть файл Excel, запустите макрос, сохраните его (перезапись)

Question

В настоящее время я пытаюсь создать .vbs, который

1. открывает Excel
2. запускает макрос
3. сохраняет его с новой информацией
4. квиты

Это то, что я до сих пор:

Dim xlApp, xlBook 

Set xlApp = CreateObject("Excel.Application") 
xlApp.DisplayAlerts = False 

Set xlBook = xlApp.Workbooks.Open("C:\test\test.xlsm", 0, True) 

xlApp.Run "test" 
xlbook.Save 
xlBook.Close False 
set xlBook = Nothing 

xlApp.Quit 
Set xlApp = Nothing 

WScript.Echo "Upload is Finished" 
WScript.Quit 

Я получаю «Загрузка закончена», но макрос не сохраняется. Что я делаю не так?

Макрос просто положить что-то из одного листа к другому:

Sub test() 
' 
' test Macro 
' 
    Sheets("Sheet2").Select 
    Range("A1:A10").Select 
    Range("A10").Activate 
    Selection.Cut 
    ActiveSheet.Previous.Select 
    Selection.End(xlToLeft).Select 
    Range("A2").Select 
    ActiveSheet.Paste 
End Sub 

Answer 1

Из любопытства, почему макрос в Excel? Если вы контролируете Excel через объект, почему бы и не использовать там макрокод?

Dim xlApp, xlBook 

Set xlApp = CreateObject("Excel.Application") 
xlApp.DisplayAlerts = False 

Set xlBook = xlApp.Workbooks.Open("C:\test\test.xlsm", 0, True) 

xlbook.Sheets("Sheet2").Range("A1:A10").Cut 
xlbook.Sheets("Sheet2").Previous.Select 
xlbook.Range("A2").Paste 
xlbook.Save 
xlBook.Close False 
set xlBook = Nothing 

xlApp.Quit 
Set xlApp = Nothing 

WScript.Echo "Upload is Finished" 
WScript.Quit 

Answer 2

xlBook.Close False 

означает "близко и не сохранить изменения". Может быть, вы хотите

xlBook.Close SaveChanges:=True