workbook.close

hedan7650

excel 2010 VBA开发新手一枚，求指教！！！！

在学习excel 2010工作薄对象时，新建工作薄1、工作薄2、工作薄3、工作薄4等4个工作薄，欲关掉当前已打开的所有工作薄，在工作薄1里写入如下代码，保存，点击运行，结果只能关闭工作薄1，这是为何？要怎样修改代码才能关闭所有已打开工作薄。
Sub CloseAllWorkbooks()
Workbooks.Close
End Sub

naolew

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例：    关闭活动工作簿，如果工作簿有更改，提示是否保存：
    Sub CloseWorkbook()
    ActiveWorkbook.Close
    End Sub
    如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：
    Sub ClostAndSaveWorkbook()
    ActiveWorkbook.Close Savechanges:=True
    End Sub
    将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。
    关闭所有打开的工作簿，并提示是否保存：
    Sub CloseAllWorkbooks()
    On Error Resume Next
    Workbooks.Close
    End Sub
    退出Excel，并提示对有更改的工作簿进行保存：
    Sub QuitExcel()
    Application.Quit
    End Sub
    保存活动工作簿并退出Excel：
    Sub SaveActiveWorkAndQuit()
    ActiveWorkbook.Save
    Application.Quit
    End Sub
    下面的代码在退出Excel时都不会提示是否保存工作簿。
    保存所有打开的工作簿并退出Excel：
    Sub SaveAllAndQuit()
    For Each wbk In Workbooks
    wbk.Save
    Next
    Application.Quit
    End Sub
    退出Excel，所有的改动都不保存：
    Sub QutiAndNoAlerts()
    Application.DisplayAlerts = False
    Application.Quit
    End Sub

hedan7650

naolew 发表于 2017-9-25 11:06
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些 ...

这段代码好像在百度见过也。。。。。刚也操作过。。。。

关闭所有打开的工作簿，并提示是否保存：
    Sub CloseAllWorkbooks()
    On Error Resume Next
    Workbooks.Close
    End Sub

执行这样一段代码，并不能关闭所有已打开工作薄啊？

naolew

hedan7650 发表于 2017-9-25 11:19
这段代码好像在百度见过也。。。。。刚也操作过。。。。

关闭所有打开的工作簿，并提示是否保存：

是的，我就是复制兰色幻想的代码，经测试，上面的代码可以关闭所有打开的工作簿的，但是并没有退出EXCEL程序。。
如果要关闭所有打开的工作簿，并退出excel,请用这段代码：
Sub SaveActiveWorkAndQuit()
    ActiveWorkbook.Save
    Application.Quit
    End Sub

hedan7650

naolew 发表于 2017-9-25 12:18
是的，我就是复制兰色幻想的代码，经测试，上面的代码可以关闭所有打开的工作簿的，但是并没有退出EXCEL ...

这个问题已搞定，谢谢你的答疑！