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

qiminger · 发表于 2018-1-28 11:13:05

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 qiminger 于 2018-1-28 11:26 编辑

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

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

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

感谢原著

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

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

Option Explicit9 t1 n( b2 |3 Z/ ~
9 t. Y: |4 r& q0 X: \! V( X
'********************************************************************************************************************************************************9 }% e) N9 l0 ?5 y' ]' _
' W* n' ?8 [+ Q% _
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
" E6 E( H- v4 y" z& o& q9 | H3 M
- n# ^+ l+ x3 W% @# q
' This macro closes all open documents except active document- x3 G3 I4 I% M3 B( G7 {) G
. s( @7 }" w( F3 e8 S( a1 F
' Preconditions:5 X) z+ t) @! G5 |
' 1. Solidworks open with multiple documents open4 z) C- T( [" ?9 i+ D
' 2. Recommend do a save all before running
+ y2 y) s0 i: y: |& P v6 j
; I2 B$ C3 r! }' E1 Z5 M, L
' Postconditions:+ P" _/ h0 U; R" b/ H* W
' 1. All documents closed except active document
4 G6 Z/ b( N( Z
) q& W! K! ?& n
'********************************************************************************************************************************************************+ ?+ y; |0 T/ P+ i" Q3 H7 E
/ A0 b% F) N3 o& `- s6 i
Dim swApp As SldWorks.SldWorks
7 r/ P6 H: R/ ?
Dim swModel As SldWorks.ModelDoc2
4 `& c6 L% U) B4 a6 h# ]3 z
Dim vModels As Variant$ z% C& G8 p4 X+ L) X; Z) @( [ p* @
Dim modNames() As String
* ]+ p3 w* B5 v3 d9 g
Dim docCount As Integer
) j6 o- D& s8 d; u u0 n. D
Dim swModelName As String/ V, U6 \4 C: d2 l
Dim swDocType As Integer6 _9 A- I; k4 h" |6 Y( v h
Dim i As Integer
7 n# d1 B! y& D" o3 @# O
% s8 O; O5 w- U. s
Sub main()+ Q4 P: B9 x1 I/ W* a$ U! o2 ^" s
% T/ k& x8 s* \( z' Y5 |
'********************************************************************************************************************************************************5 a! V- G$ Y" q& l
6 `; M* _+ J$ h! h# ?2 F
' Get Application and active doc. Get active document name. Get documens variant.1 l# u3 v! E) n. v. B
8 x4 I: l2 A9 \8 w& G
'********************************************************************************************************************************************************
0 D$ U5 y7 R1 L% u) T; B1 q
. J; p. s$ S g# {% `& d/ f7 ?; N
Set swApp = Application.SldWorks1 M: D3 Z* [: |9 x1 d
Set swModel = swApp.ActiveDoc
( T. M+ S- a# R' E
7 v3 ~* M& [* _3 C7 s5 i
swModelName = swModel.GetTitle
) X4 J6 ?: A9 T# ~2 J0 m/ ]
swDocType = swModel.GetType
- f4 D; c) e; v: \
vModels = swApp.GetDocuments
1 W( A" ]$ m9 U& }! H
7 |; O! e, E$ `
'+++++++
/ K8 q5 j p7 U6 @
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
% ]' \) {. v) g1 }. g: j
'+++++++5 L1 T7 H9 ~# d% L8 r
4 @. ^" M6 Q% C
'********************************************************************************************************************************************************
0 ~& _# n: W7 c; G, Z4 U
' Y# d7 h( T2 j. x8 z
'Build a list of document names to close
- I' S7 h5 k4 S2 W7 S
3 c6 R# s0 _ D# a* a3 n$ R
'********************************************************************************************************************************************************
! e: q3 _' a9 t# ^/ h" A$ o
% r4 @) C( B; K$ D! W# K2 c
docCount = 1& t' {+ H* R0 `, c$ D4 R, s( y! x$ r
8 v" O5 l+ X; @2 G: [6 v: l
For i = 0 To UBound(vModels)
g) G9 p0 ` l2 z2 V# C$ i
If Not vModels(i).GetTitle = swModelName Then
% j2 w, j# i* F% ]9 B
ReDim Preserve modNames(docCount)
1 Q& ?5 u0 v9 x2 q9 T% H
modNames(docCount) = vModels(i).GetTitle
' X, i8 b4 q, F+ \4 r. j8 s
docCount = docCount + 1% b8 _( P o$ c' e
End If
y' g1 p8 _' V* O% \ U {, R
Next i
# T0 A* @/ U* t7 q3 X& c
8 j: b8 ~! n! q" A0 p
'********************************************************************************************************************************************************2 T% Q1 w% t. s, s9 d& M3 g7 u( c
& V9 g5 _+ q2 h1 u7 t7 X6 j
' Close the documents in the array created& ]2 O9 I4 z4 j9 B
0 }( Y! g0 r0 Q* k7 v
'********************************************************************************************************************************************************
2 f1 z! J ^/ Y/ E
4 f. t3 h% K0 B& F0 n1 s% U- n( m2 L
For i = 1 To UBound(modNames): L# a$ d( J9 j# H& }
'Debug.Print (modName)% H1 c! H& @; V7 m' Q
swApp.CloseDoc (modNames(i))
% p9 v% ~- @- d$ q9 P+ x' x8 {- O5 K
* w+ E- L% v# A. a+ D% g: u5 ]
Next
4 l6 i! F+ x& O, t
4 b. T6 A, J. K* u- V
End Sub$ g5 f3 f* C. U3 G

复制代码

NC@jiang@nan · 发表于 2018-1-28 17:37:49

楼主这一两年成宏高手啦，膜拜。

魅-影 · 发表于 2018-1-29 08:20:31

谢谢楼主分享！

w6304013 · 发表于 2018-1-29 18:59:51

好东西无喜欢，正喜欢

superlove · 发表于 2018-1-31 08:43:14

谢谢楼主分享！

文惠 · 发表于 2018-1-31 08:47:32

多谢分享，只是不适合我用，一来我同时打开的文档不多，二来关闭文档时有些修改要保存有些不用保存。

qiminger · 发表于 2018-2-7 07:55:05

NC@jiang@nan 发表于 2018-1-28 17:37: p) q2 @- Z* I5 G) Z7 q- {
楼主这一两年成宏高手啦，膜拜。

过奖了，谈不上的，在这里确实学了很多，感谢论坛和朋友们。

王大大小小 · 发表于 2018-3-22 20:37:32

{:2_38:}路过，来看看，支持楼主

杀苏 · 发表于 2018-3-24 07:53:58

有用谢谢！

eap899 · 发表于 2018-3-24 23:35:20

增加一段全部保存代码

13993359550 · 发表于 2018-3-25 10:26:29

谢谢,学习了

floodingrenyi · 发表于 2018-11-20 14:40:14

谢谢,学习了

风中de沙 · 发表于 2018-11-22 17:50:09

留着慢慢用，先收藏了。

风中de沙 · 发表于 2018-11-22 17:50:41

先收藏了,留着慢慢用

风中de沙 · 发表于 2018-11-22 17:52:01

先收藏了,留着慢慢用,谢谢楼主

ajyflxp · 发表于 2018-11-23 07:40:25

谢谢楼主分享！

ajyflxp · 发表于 2018-11-23 08:10:28

谢谢楼主分享！

长涯 · 发表于 2018-12-26 09:07:11

666666

dellxp · 发表于 2019-7-12 20:11:52

谢谢楼主分享！

litao036 · 发表于 2020-3-26 11:10:04

看看怎么样，好用吗？

jdwkl · 发表于 2026-1-30 02:32:35

这年头，分不好赚啊

		自动登录	找回密码
密码			注册

通知

[分享] 宏-关闭除当前文档以外的所有文档

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

点评

浏览过的版块