[已解决]求保存并关闭除当前工作簿之外的工作簿的程序

1top_yp1

效果是：1、如果除了当前工作簿之外，没有打开的workbook，退出程序
              2、如果除了当前工作簿之外，有N个打开的workbook，则这N个工作簿保存并关闭。
求各路大大帮忙实现。

最佳答案

月排行榜 / 总排行榜

suye1010

2012-10-18 09:36

1. Sub CloseAllWB()
   
2. Dim wb As Workbook
   
3. If Workbooks.Count > 1 Then
   
4.     For Each wb In Workbooks
   
5.         If wb.Name <> ThisWorkbook.Name Then
   
6.             wb.Close True
   
7.         End If
   
8.     Next
   
9. End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Sub CloseAllWB()
   
2. Dim wb As Workbook
   
3. If Workbooks.Count > 1 Then
   
4.     For Each wb In Workbooks
   
5.         If wb.Name <> ThisWorkbook.Name Then
   
6.             wb.Close True
   
7.         End If
   
8.     Next
   
9. End If
   
10. End Sub

复制代码

1top_yp1

suye1010 发表于 2012-10-18 10:22

谢谢大大了，for each 想到了，但是就是不会用，哎，还是学的不细致啊

hoogle

1. Sub 关闭()
   
2. 
   
3. Dim wb As Workbook
   
4. 
   
5. If Workbooks.Count = 1 Then ThisWorkbook.Close
   
6. 
   
7. If Workbooks.Count > 1 Then
   
8. 
   
9.     For Each wb In Workbooks
   
10. 
    
11.         If wb.Name <> ThisWorkbook.Name Then
    
12. 
    
13.             wb.Close True
    
14. 
    
15.         End If
    
16. 
    
17.     Next
    
18. 
    
19. End If
    
20. 
    
21. End Sub
    

复制代码

遗憾

不懂、、

1top_yp1

hoogle 发表于 2012-10-18 10:43

谢谢大大，suye大大帮助解决了，一细看，程序都是一样的~~，这个程序是最佳方案了~~

1top_yp1

遗憾 发表于 2012-10-18 10:54
不懂、、

程序挺简单的，主程序是for each 循环，可以参考下for each用法

遗憾

俺刚接触，啥也不懂、、、、、