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

qiminger

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
    

复制代码

qxzch

xiabulai

qiminger

AFULIN1000

qxzch

qiminger

hwwgh

hwwgh

makejon