Workbook 对象.close(SaveChanges,Filename,RouteWorkbook)关闭某个工作簿。其中：⚫ 所有参数均为可选参数。⚫ 参数 SaveChanges 指定是否保存对工作簿所作的修改。如果没有修改过工作簿，则忽略此参数。如果修改了工作簿，则使用此参数指定是否保存修改；如果参数值设置为 True，则关闭时将保存修改，此时如果工作簿...
Dim wb As Workbook,pathname As String,content As String pathname="D:\OneDrive\文档\test.xlsm"Set wb=GetObject(pathname)wb.Sheets(1).Range("A2").Value2="No 2"Application.Windows(wb.Name).Visible=True wb.Close SaveChanges:=True MsgBox"Done!"End Sub 参考资料: [1] getobject和workbooks.open...
不提示直接保存并关闭工作簿：Sub 先保存再关闭工作薄()ActiveWorkbook.Close Savechanges:=True End Sub ...
不提示直接保存并关闭工作簿：Sub 先保存再关闭工作薄()ActiveWorkbook.Close Savechanges:=True End Sub ...
wb.Close SaveChanges:=True End Sub ``` 💡 小贴士:用这个方法,你可以在关闭工作簿之前自动保存所有更改。3️⃣ 一次性关闭所有打开的工作簿: ```vba Sub CloseWorkbooks() Dim wb As Workbook wb.Close End Sub ``` 💡 小贴士:这个简单的宏将关闭你所有打开的工作簿,方便快捷!4️⃣ 退出整个...
ActiveWorkbook.Close Savechanges:=TrueEnd Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存: Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub 退出Excel,并提示对有更改的工作簿进行保存: Sub QuitExcel()Application.QuitEnd Sub 保存...
Workbooks("工作簿1").Close _SaveChanges:=True, _Filename:=ThisWorkbook.Path & "\myFile.xlsx"Else MsgBox "Error! Name already used."End If End Sub Ø本节内容参考程序文件：Chapter03-2.xlsm 1创建一个新的工作簿VBA Create New Workbook Sub mynzvba_new_workbook()Workbooks.Add End Sub Ø...
Workbook对象.close(SaveChanges,Filename,RouteWorkbook) 关闭某个工作簿。其中: 所有参数均为可选参数。 参数SaveChanges指定是否保存对工作簿所作的修改。如果没有修改过工作簿,则忽略此参数。如果修改了工作簿,则使用此参数指定是否保存修改;如果参数值设置...
End Sub 如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error ...
Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿: Sub ClostAndSaveWorkbook() ActiveWorkbook.Close Savechanges:=True End Sub 将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。