保存对指定工作簿所做的更改。
语法
表达式。救
表达 一个代表 Workbook 对象的变量。
备注
若要打开工作簿文件，请使用 Open 方法。
若要将工作簿标记为已保存而不将其写入磁盘，请将工作簿 的 Saved 属性设置为 True。
首次保存工作簿时，请使用 SaveAs 方法指定文件的名称。
示例
本示例保存活动工作簿。
ActiveWorkbook.Save
本示例保存所有打开的工作簿，然后关闭 Microsoft Excel。
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
此示例使用 BeforeSave 事件验证某些单元格在保存工作簿之前是否包含数据。 若以下每个单元格中均包含数据，则无法保存工作簿：D5、D7、D9、D11、D13 和 D15。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If the six specified cells don't contain data, then display a message box with an error
'and cancel the attempt to save.
If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
MsgBox "Workbook will not be saved unless" & vbCrLf & _
"All required fields have been filled in!"
Cancel = True
End If
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。