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

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+ ]1 N4 L$ }- n! v& O* J
`7 c5 A/ r: S+ e8 ]9 I: r+ C3 L
'********************************************************************************************************************************************************
r% T' {* n* H, o r+ }' N2 {' ^
6 ^( G# _% {; u% R* p1 M5 F
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
1 W8 s* k f6 T, r2 Q; m8 l
D" k3 Z1 @8 d4 H4 W
' This macro closes all open documents except active document
8 G ?& Z6 O& @2 ~% \0 M
K" x3 h F$ X" ?5 Q; _" V+ z1 [
' Preconditions: y3 F4 [4 I+ g5 D7 i
' 1. Solidworks open with multiple documents open
/ } T6 o' D) J0 k& L
' 2. Recommend do a save all before running
! G( A* ^% S; ?6 d; r
5 F. ]% A: I' \7 N- J/ R+ d) M6 u
' Postconditions:
3 A, \6 Z! N' C6 c) }' t+ c
' 1. All documents closed except active document! j: R* e6 E7 o9 K: b
/ q% W+ {2 |; c! K
'********************************************************************************************************************************************************3 @" M" R4 s; ~) R; x( [
; f! u4 _3 }9 `/ l B: b1 Y; f; D
Dim swApp As SldWorks.SldWorks
8 h3 A r( ?$ X* X: X1 z: ^
Dim swModel As SldWorks.ModelDoc25 k* z! C0 L: G) W& w+ g
Dim vModels As Variant' w9 z/ @9 g. b- d y% e/ f: d
Dim modNames() As String9 m: b) \0 R- e" B. m6 H
Dim docCount As Integer5 v9 R5 U5 E) ~; F. i" ]
Dim swModelName As String
2 Z% |# i; `/ j
Dim swDocType As Integer
. {! N+ ^+ C2 }. `2 E& d
Dim i As Integer1 i1 c% V" ?5 ]0 A
0 E1 T$ Q, x$ u& Q
Sub main()
7 i( x1 |# K) N5 z4 `, D: G
) K8 ?3 H+ r/ M. \ Q0 E* ]
'********************************************************************************************************************************************************
& l# v% m, ~3 |2 e
2 b/ _7 b2 ~5 J9 o
' Get Application and active doc. Get active document name. Get documens variant.* D1 g# t$ w/ w& u
3 O" j/ @/ T: T9 R, }* a* n
'********************************************************************************************************************************************************
& z2 z9 P, `* E2 W; G
) l8 s3 J) ?, N6 e, e- X; X
Set swApp = Application.SldWorks/ ]9 M* ?( U- r8 \; R* P( V
Set swModel = swApp.ActiveDoc. v$ Z6 c1 F) m! G P% v( ^$ P- U
u9 ]; ?4 L) x! E; B6 A
swModelName = swModel.GetTitle1 ]. p) H8 z8 ~
swDocType = swModel.GetType
$ p# {7 v) A% ?# h+ Y3 H
vModels = swApp.GetDocuments
$ ]* ]! e* T- c; c. t) q$ i
& T j# W3 ^1 p
'+++++++* d) D0 n) u' l2 c
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
6 u* x4 o7 i( y( j8 t0 c
'+++++++
$ t4 {4 @0 S% e- g) }& z
, d+ h8 W7 V8 G* T
'********************************************************************************************************************************************************& P$ z2 P" j5 }; K9 o7 a8 e) y
1 c5 X$ V) O" g8 H5 T$ {6 Z: } J
'Build a list of document names to close
3 D# |3 [) U3 ] k
# I! b. v2 Y$ ?% r3 r
'********************************************************************************************************************************************************
- t! v$ t/ H4 u, P0 t4 o6 g
& i2 d+ a" b. _% u
docCount = 1
* I G% p. P( K% t# P# V; Z% g) v
7 ~9 e5 O/ R) U" P0 z
For i = 0 To UBound(vModels)
. y" _: v) C' X8 C
If Not vModels(i).GetTitle = swModelName Then3 ~$ M/ w" n3 Q2 u; ^: I
ReDim Preserve modNames(docCount)
& [' J2 V( n8 q' ~* X5 x9 I1 ~
modNames(docCount) = vModels(i).GetTitle! N# g& H+ L/ L$ [! F
docCount = docCount + 1/ B1 P) j6 m3 l: `9 ?
End If" m1 c. f% E2 s1 P( r
Next i
( |4 C- Y& b7 P# } `0 k6 p
9 {! H& z% U6 p" F
'********************************************************************************************************************************************************
+ f" U w3 _& _8 \+ `. C: u
$ d; o" [. E" y3 ^
' Close the documents in the array created
* A& |2 Z; Q0 k. S
" N* M0 Z2 R0 m
'********************************************************************************************************************************************************
7 |( H! S/ r2 D$ T I
' X& f( O2 s& [* S) Z
For i = 1 To UBound(modNames)# g# C; ]% l' x5 ~
'Debug.Print (modName)0 W. l& I7 o) A% p: S
swApp.CloseDoc (modNames(i))
' W( m% ^( [* b7 u" ^' ^
4 M& E8 c% z: X% v. w2 G
Next6 Y6 ?3 g6 f4 ?* \, J
|7 n! t6 m+ i. u) A
End Sub
, l+ }9 p/ ^5 P" e& A& Q

复制代码

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* |0 h) n. Y, i# a. T
楼主这一两年成宏高手啦，膜拜。

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

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

这年头，分不好赚啊

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

通知

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

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

评分

点评

浏览过的版块