[已解决]【请教】打开了多少个工作薄？

xdwy81129

求问2个问题
1.在thisworkbook的“学习”表格里的A1向下开始填写当时已经打开的所有工作薄的全称（即已经打开了多个工作薄）
2.关闭所有的工作薄，但thisworkbook不关闭

谢谢指教

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-16 23:40

回复 xdwy81129 的帖子

退出的代码

1. 
   
2. Sub TEST2()
   
3.     Application.DisplayAlerts = False    '保存时取消提示
   
4.     Set aw = ActiveWorkbook
   
5.     For Each WB In Workbooks
   
6.         If WB.Path <> "" Then
   
7.             If WB.Name <> aw.Name Then WB.Close True    '加上TRUE,表示退出前保存工作簿
   
8.             'If WB.Name <> aw.Name Then WB.Close False '加上FALSE或者省略,表示退出前不保存工作簿
   
9.         End If
   
10.     Next
    
11.     Application.DisplayAlerts = True    '保存时提示恢复
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

那么的帅

回复 xdwy81129 的帖子

按钮完成吗？

xdwy81129

回复 那么的帅 的帖子

是的，如果可以，请分成2个宏来写，以便对照学习

那么的帅

回复 xdwy81129 的帖子

当天打开什么意思？

xdwy81129

回复 那么的帅 的帖子

不好意思，写得急了是当时的意思
当时已经打开

就是已经打开的工作薄

那么的帅

回复 xdwy81129 的帖子

全称 包括路径吗？

xdwy81129

回复 那么的帅 的帖子

文件名，包括后缀，如老师.xls,学习.xlsm等
谢谢关注

那么的帅

回复 xdwy81129 的帖子

提取打开工作簿名称和关闭打开工作簿(VBA).rar (9.11 KB, 下载次数: 9)

2011-8-16 23:19 上传

点击文件名下载附件

xdwy81129

回复 那么的帅 的帖子

继续有个问题请教

怎么关闭其他的工作薄时不出现对话框，如下

那么的帅

回复 xdwy81129 的帖子

退出的代码

1. 
   
2. Sub TEST2()
   
3.     Application.DisplayAlerts = False    '保存时取消提示
   
4.     Set aw = ActiveWorkbook
   
5.     For Each WB In Workbooks
   
6.         If WB.Path <> "" Then
   
7.             If WB.Name <> aw.Name Then WB.Close True    '加上TRUE,表示退出前保存工作簿
   
8.             'If WB.Name <> aw.Name Then WB.Close False '加上FALSE或者省略,表示退出前不保存工作簿
   
9.         End If
   
10.     Next
    
11.     Application.DisplayAlerts = True    '保存时提示恢复
    
12. End Sub
    

复制代码