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

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 Explicit
2 j! C1 k2 }; R5 K( }
( B- f* [6 J! Q* T5 Y) L4 H# C' ^
'********************************************************************************************************************************************************. n1 R R: D/ Z. V3 U* ] B
) y" p" ]1 [& B( w
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017+ G& b! \$ K. U. G
! u1 ]9 b* [6 N0 a% q) Q
' This macro closes all open documents except active document
) |( C% ]( l) d, n5 c7 J
( M( @5 [/ N& E$ |# c6 n
' Preconditions:
. U/ X% ]" N0 [( L3 E4 I6 L; o
' 1. Solidworks open with multiple documents open
' {0 n# J1 P# K3 S( M" E S+ ~% ]
' 2. Recommend do a save all before running
* u* I$ w& ~8 c; h
. `% p8 ?9 u$ O
' Postconditions:/ L) h' q9 h& K+ J
' 1. All documents closed except active document+ ] P; }4 e" q; C& w
( k L0 H6 F) N; Y7 Z% ^
'********************************************************************************************************************************************************
$ e/ Z6 m0 \% C
( y% O6 ?) O( G5 W! h8 V V0 T
Dim swApp As SldWorks.SldWorks" C- r) T+ {* h( N9 c& K- P
Dim swModel As SldWorks.ModelDoc23 G, x L4 n' D& Z+ {7 U
Dim vModels As Variant
/ }7 I( k0 ?( [5 d/ \$ F
Dim modNames() As String0 _$ o6 f8 [) ?0 I8 Y* Q
Dim docCount As Integer% t& | r$ u2 H8 x# [. l5 p3 m
Dim swModelName As String6 L& D4 F( z1 e
Dim swDocType As Integer
: W- Q- M3 I0 i, J r k: K
Dim i As Integer/ r9 ~) q* y# L0 D) l. x
4 h+ j1 i" p5 F. | C/ Z/ k
Sub main()3 V' N6 h0 J+ r+ V1 }( L
" W$ X! @& y7 Y! a: ?7 o1 ^
'********************************************************************************************************************************************************
5 I. [9 t* _0 e; W! H
9 }. A7 Y# t$ n
' Get Application and active doc. Get active document name. Get documens variant.+ Z7 L# ?8 }$ D0 m4 k4 ?8 E( t
3 ~" T. X! x( ~7 d
'********************************************************************************************************************************************************
# k. T1 \8 |/ N% w3 P- V
( S- T7 }8 i2 Y$ n* p. w
Set swApp = Application.SldWorks+ d4 T: k+ s6 K7 s. H
Set swModel = swApp.ActiveDoc
( r! W7 K& _/ k! n3 Q8 T' b* A
; q# H" d$ J2 Q5 x* {5 N- S7 [ R
swModelName = swModel.GetTitle
. T2 k# Y5 s8 f
swDocType = swModel.GetType
$ |8 J: G1 `* y1 u7 F' p2 \
vModels = swApp.GetDocuments, {; @ ]- I, H, @4 k5 d- Q
8 s2 W5 X, J. Q( W
'+++++++
' m- B6 h1 l+ S. @# D, c
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
4 \! A1 Q# Q. U o! P" S2 T
'+++++++
; }, A% Y# F) k& W4 O+ J; Z
3 m A4 b/ d( `* _+ o
'********************************************************************************************************************************************************1 E2 c, F3 _% U) a6 i
( ], V2 o7 y# j0 Z9 W* C
'Build a list of document names to close
! S# f5 l0 A1 }" q" ]% A
' p$ G L7 M& M1 _& u) P2 U# w6 h% `
'********************************************************************************************************************************************************+ a O6 w1 v* W- t, P
2 b; }+ ~: g3 R
docCount = 1
- [1 { E6 A- I2 h) j
7 j, C2 e6 X. S7 i5 R
For i = 0 To UBound(vModels)
3 l4 M6 c" N* m1 G! w O
If Not vModels(i).GetTitle = swModelName Then
( _% H3 o( Q% u4 F' w: j
ReDim Preserve modNames(docCount)
2 _# X. `0 B- }! K
modNames(docCount) = vModels(i).GetTitle
! x/ _2 Q( Z- v/ O3 z
docCount = docCount + 1
4 A( d- q' P" k
End If% G; [* o# U4 R) ]; } X7 b: R+ o7 Q
Next i
9 E' S# E0 W- z6 b4 ?/ q; @
% C3 M6 b. f& F8 Z
'********************************************************************************************************************************************************
( Y3 v$ a2 ]! j1 U
: [, F( j3 I8 {, E
' Close the documents in the array created/ J( d+ \6 @" |2 P; A
O3 z) p( l. j5 V' g7 w
'********************************************************************************************************************************************************5 J9 H7 k9 t& r* N( @9 g1 o) Y- v# m# g
8 y( k, d" C, G6 J' x0 v1 Y
For i = 1 To UBound(modNames)) _' D/ e: c7 ~2 _4 R; q& j% R+ w1 \
'Debug.Print (modName)5 u4 c8 ^1 F3 ~
swApp.CloseDoc (modNames(i))
& _2 S; W* g3 e1 Q6 r4 D$ N# Z
, R+ ^9 j4 z/ o1 Q) t6 q/ l
Next
! N6 Z3 L# x* l2 n* r: u9 k
, E& y/ J7 I: |) m( S
End Sub
5 ~6 D0 U' e5 k. l' y4 r

复制代码

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
1 Z6 {+ Q5 V6 e2 z. n( G楼主这一两年成宏高手啦，膜拜。

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

王大大小小 · 发表于 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

这年头，分不好赚啊

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

通知

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

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

评分

点评

浏览过的版块