excel vba 公式（关闭保存并退出表单怎么写）？

Question

已知关闭保存公式如下：
Private Sub CommandButton1_Click()
ThisWorkbook.Close Savechanges:=True
End Sub

Answer 1

Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub追问

关闭不保存退出呢？把Save 改成 Close 就可以？

追答

Close后就不能执行后面的语句了。
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub
再完善一下，如果有其他工作簿打开，就不要退出Excel:
Private Sub CommandButton1_Click()
If Workbooks.Count = 1 Then '如果只有一个工作簿打开
Application.DisplayAlerts = False
Application.Quit
Else
ThisWorkbook.Close False '不保存关闭
End If
End Sub

追问

问题：测试没什么问题，但是弹出这个提示是什么意思？怎么能正常运行不弹框？

追答

我测试没问题呀Win 7+Office 2010。
你弹出什么对话框，图片看不清楚。

追问

ExcelMultiTab2007

Run-time error 13：

Type mismatch

追答

运行时间出错，类型不匹配。
ExcelMultiTab2007是什么版本啊，不完整的版本吧。
建议下载Office 2010或2013完整版本进行安装。

本回答被提问者和网友采纳