vba保存和关闭后台打开的excel文件

yuoep2014

我想在关闭当前excel文件时，去打开指定的excel文件，然后保存后台打开的excel文件并保存它。


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False '禁止屏幕刷新，提高运行速度
x = "E:\Biocartis material\Raw Materials Inventory List  .xlsx"
Workbooks.Open x
'我想在这里写保存打开Raw Materials Inventory List  .xlsx
'我想在这里写关闭打开Raw Materials Inventory List  .xlsx
Application.ScreenUpdating = True '恢复刷新
End Sub

liulang0808

Workbooks.Open x
修改下
with Workbooks.Open(x)
.save
.close false
end with

yuoep2014

liulang0808 发表于 2018-7-10 15:50
Workbooks.Open x
修改下
with Workbooks.Open(x)

非常感谢。。。。。。