宏-关闭除当前文档以外的所有文档

Jake Carr编写的代码，并于8/28/2017上传到3D内容中心。
此宏关闭除了活动文档以外的所有打开的文档。

的前提条件：
1。打开多个文件打开
2。建议在运行前先做一个保存

“后置条件：
1。除活动文档外所有文件均已关闭。


感谢原著

在原创基础上，增加一段全部保存代码，勿需担忧忘记保存。
2013版本测试正常。其它版本如遇问题，请自行添加引用。

游客，如果您要查看本帖隐藏内容请回复

1. Option Explicit
   
2. 
   
3. '********************************************************************************************************************************************************
   
4. 
   
5. '   Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
   
6. 
   
7. '   This macro closes all open documents except active document
   
8. 
   
9. '   Preconditions:
   
10. '   1. SOLIDWORKS open with multiple documents open
    
11. '   2. Recommend do a save all before running
    
12. 
    
13. '   Postconditions:
    
14. '   1. All documents closed except active document
    
15. 
    
16. '********************************************************************************************************************************************************
    
17. 
    
18. Dim swApp As SldWorks.SldWorks
    
19. Dim swModel As SldWorks.ModelDoc2
    
20. Dim vModels As Variant
    
21. Dim modNames() As String
    
22. Dim docCount As Integer
    
23. Dim swModelName As String
    
24. Dim swDocType As Integer
    
25. Dim i As Integer
    
26. 
    
27. Sub main()
    
28. 
    
29. '********************************************************************************************************************************************************
    
30. 
    
31. '   Get Application and active doc. Get active document name. Get documens variant.
    
32. 
    
33. '********************************************************************************************************************************************************
    
34. 
    
35. Set swApp = Application.SldWorks
    
36. Set swModel = swApp.ActiveDoc
    
37. 
    
38. swModelName = swModel.GetTitle
    
39. swDocType = swModel.GetType
    
40. vModels = swApp.GetDocuments
    
41. 
    
42. '+++++++
    
43. swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
    
44. '+++++++
    
45. 
    
46. '********************************************************************************************************************************************************
    
47. 
    
48. 'Build a list of document names to close
    
49. 
    
50. '********************************************************************************************************************************************************
    
51. 
    
52. docCount = 1
    
53. 
    
54. For i = 0 To UBound(vModels)
    
55.     If Not vModels(i).GetTitle = swModelName Then
    
56.             ReDim Preserve modNames(docCount)
    
57.             modNames(docCount) = vModels(i).GetTitle
    
58.             docCount = docCount + 1
    
59.     End If
    
60. Next i
    
61. 
    
62. '********************************************************************************************************************************************************
    
63. 
    
64. '   Close the documents in the array created
    
65. 
    
66. '********************************************************************************************************************************************************
    
67. 
    
68. For i = 1 To UBound(modNames)
    
69.     'Debug.Print (modName)
    
70.     swApp.CloseDoc (modNames(i))
    
71. 
    
72. Next
    
73. 
    
74. End Sub
    

复制代码

谢楼主！顶起！

谢谢分享

xiabulai 发表于 2018-1-28 20:22
谢谢分享

不客气，一起学习。

谢谢分享

增加的一段全部保存代码可否作如下修改？让是否保存可以做个选择，因为有时候是不想保存的。与楼主商榷

1. '+++++++
   
2. Answer = MsgBox("其余SOLIDWORKS文件在关闭时需要保存吗？", vbYesNoCancel + 48)
   
3. If Answer = vbYes Then
   
4. swApp.RunCommand swCommands_SaveAll, Empty    '保存所有文档
   
5.    ElseIf Answer = vbCancel Then Exit Sub
   
6.    Else
   
7. End If
   
8. '+++++++

复制代码

qxzch 发表于 2018-2-20 15:00
增加的一段全部保存代码可否作如下修改？让是否保存可以做个选择，因为有时候是不想保存的。与楼主商榷:han ...

非常好的建议，这样有选择操作非常人性化，显得更专业，感谢qxzch朋友。

很好谢谢

很好 谢谢啦

这个功能蛮实用的