关闭EXECL，并保存

fatmingli

xlApp.Quit
可以用来关闭打开的EXECL，但如果EXECL有修改的话，就有询问是否保存的询问框，请问
1。怎样关闭打开的EXECL，并自动保存，不提示
2。样关闭打开的EXECL，不保存，不提示

123shusheng

老帖子，问题我也需要，顶起。
1。怎样关闭打开的EXECL，并自动保存，不提示

t小宝

Quit 方法

说明
使用本方法时，如果有未保存的工作簿处于打开状态，则 Microsoft Excel 将弹出一个对话框，询问是否要保存所作更改。为防止这一情况出现，可在使用 Quit 方法前保存所有的工作簿或将 DisplayAlerts 属性设置为 False。如果该值为 False，则在 Microsoft Excel 退出时，即使有未保存的工作簿，也不会显示对话框，而且不保存就退出。

如果一个工作簿的 Saved 属性值为 True，但是并没有将工作簿保存到磁盘上，则 Microsoft Excel 在退出时不会提示保存该工作簿。

示例
本示例保存所有打开的工作簿，然后退出 Microsoft Excel。

For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
               

123shusheng

Private Sub Command49_Click()
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit

End Sub


提示：编译错误：方法和数据成员未找到


我就是想关闭所有打开的EXCL表，并自动保存，不要提示！

ly

'不保存退出
Application.DisplayAlerts = False   '不显示提示
Application.Quit
'如果要保存退出，则先保存工作簿。
ThisWorkbook.Save
Application.Quit

123shusheng

Private Sub Command9_Click()
Application.DisplayAlerts = False   '不显示提示
ThisWorkbook.Save
Application.Quit
End Sub

以上代码还是不行。
老大，能给一个完整的代码吗？我需要不提示，保存修改的数据后，并关闭目前全部打开的EXCL表，

123shusheng

顶起，希望得到高手的指点！

123shusheng

函数：
Sub CloseXlsFile1(FileName As String, SaveChange As Boolean)
    Dim xlapp  As Object
    Dim wrk    As Object
    Set xlapp = GetObject(, "excel.application")
    Set wrk = GetObject(FileName)
    wrk.Save
    wrk.Close
    xlapp.Quit
    Set xlapp = Nothing
End Sub

调用方法：
Call CloseXlsFile1("d:\折返时间分析1.xls", True) 'True为保存关闭,False为不保存关闭