打开 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