Excel 保存已打开的其他工作簿

我有一个工作簿（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的原样（无任何提示）

您可以使用该方法保存工作簿。大概是

wb.Save

或

如果您知道当前工作簿是活动工作簿

Save

不允许您更改文件名-如果需要，请使用

SaveAs

。

您可以使用该方法保存工作簿。大概是

wb.Save

或

如果您知道当前工作簿是活动工作簿

Save

不允许您更改文件名-如果需要，请使用

SaveAs

。

您可以使用该方法保存工作簿。大概是

wb.Save

或

如果您知道当前工作簿是活动工作簿

Save

不允许您更改文件名-如果需要，请使用

SaveAs

。

您可以使用该方法保存工作簿。大概是

wb.Save

或

---

如果您知道当前工作簿是活动工作簿

Save

不允许您更改文件名-如果需要，请使用

SaveAs

。

尝试类似的操作：

For each w in Application.Workbooks
    If w.Name = "WorkbookA" Then
        w.Save
        Exit For
    End if
Next w

---

由于希望从workbookB调用保存代码，因此需要在代码中查找或设置所需的工作簿。如果要从workbookA调用它，可以使用

ActiveWorkbook.Save

尝试类似的操作：

For each w in Application.Workbooks
    If w.Name = "WorkbookA" Then
        w.Save
        Exit For
    End if
Next w

---

由于希望从workbookB调用保存代码，因此需要在代码中查找或设置所需的工作簿。如果要从workbookA调用它，可以使用

ActiveWorkbook.Save

尝试类似的操作：

For each w in Application.Workbooks
    If w.Name = "WorkbookA" Then
        w.Save
        Exit For
    End if
Next w

---

由于希望从workbookB调用保存代码，因此需要在代码中查找或设置所需的工作簿。如果要从workbookA调用它，可以使用

ActiveWorkbook.Save

尝试类似的操作：

For each w in Application.Workbooks
    If w.Name = "WorkbookA" Then
        w.Save
        Exit For
    End if
Next w

---

由于希望从workbookB调用保存代码，因此需要在代码中查找或设置所需的工作簿。如果要从workbookA调用它，可以使用

ActiveWorkbook.Save

，因为您知道要保存的工作簿的名称（“workbookA.xlsx”），因此可以使用保存方法直接引用它：

Workbooks("WorkbookA.xlsx").Save

---

由于您知道要保存的工作簿的名称（“WorkbookA.xlsx”），因此可以使用保存方法直接引用它：

Workbooks("WorkbookA.xlsx").Save

---

由于您知道要保存的工作簿的名称（“WorkbookA.xlsx”），因此可以使用保存方法直接引用它：

Workbooks("WorkbookA.xlsx").Save

---

由于您知道要保存的工作簿的名称（“WorkbookA.xlsx”），因此可以使用保存方法直接引用它：

Workbooks("WorkbookA.xlsx").Save