我有一个打开的工作簿（WorkbookA.xlsm）。打开后，将打开WorkbookB.xlsm。
'ThisWorkbook code of WorkbookA.xlsm
Private Sub Workbook_Open()
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename:="C:\WorkbookB.xlsm")
wb.Windows(1).Visible = False
End Sub
打开“ B”之后，将调用一个脚本，该脚本也将启动计时器。
B中的脚本更改了A上的某些数据。调用脚本后，我想添加一些内容以自动保存WorkbookA.xlsm的状态（不带任何提示）。
'ThisWorkbook code of WorkbookB.xlsm
Private Sub Workbook_Open()
Call Script
'looking for something in here to save WorkbookA
End Sub
由于您知道要保存的工作簿的名称（“ WorkbookA.xlsx”），因此可以使用save方法直接引用它：
Workbooks("WorkbookA.xlsx").Save
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句