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

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- ]4 G1 d/ t) r. u8 I1 {2 ^4 @0 _
1 s& K0 g2 T+ h# ~6 Y
'********************************************************************************************************************************************************! t9 i$ d7 S( s* j9 S/ e, I
p6 y. C: p6 W! T0 f* G& Z
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017" n3 C& V k7 E/ E6 ^7 S
" ]# J# f( c% B9 |; s9 \+ v( R) c0 C
' This macro closes all open documents except active document: v/ A! C8 V4 V9 _! n% R8 z
5 r5 \! W5 j/ a( }! R \) D( x
' Preconditions:2 j: o, N3 w) O# q9 Q0 O1 R
' 1. Solidworks open with multiple documents open
' I) C( Q& w; G1 K! G
' 2. Recommend do a save all before running' f* n, G# w- n9 D1 R
0 B$ O/ E9 d# p( Y3 ]4 F2 W( \
' Postconditions:
& G" ^4 }- R! R3 V6 { G; I
' 1. All documents closed except active document% I/ J% z$ l2 a- z" f- \
9 e, {3 w9 |- o6 w% E9 u
'********************************************************************************************************************************************************
3 j: j) U3 _. E" r" n
* R3 p& q; y2 |6 F6 M
Dim swApp As SldWorks.SldWorks
) O8 R: t0 B2 S0 \ r
Dim swModel As SldWorks.ModelDoc2
! Z3 e8 E% v: U) ~' O
Dim vModels As Variant
$ g' s6 q3 Q+ p* o+ W3 t
Dim modNames() As String( V* e7 V7 ^% B( ^$ J
Dim docCount As Integer" I1 Z' r6 K2 ~5 A) x( N$ J
Dim swModelName As String
8 ?7 N2 `% M+ y
Dim swDocType As Integer
u& d Q; v- U1 I: E
Dim i As Integer8 t1 z) `8 l1 B( |
/ Y2 K; I' `( @
Sub main()
& J5 Z( @. x$ n7 A' O5 b
6 `' D3 s- M8 k8 O# v1 `
'********************************************************************************************************************************************************
" N. \) H. u. _4 I( v
- V$ T5 F* }' Y* e* D+ n
' Get Application and active doc. Get active document name. Get documens variant./ Q/ J/ a1 G: H/ D5 f$ o
N1 F5 w; W' Z& T4 c( e
'********************************************************************************************************************************************************+ N7 f: l& U" T- u' P# G
+ C9 z4 O4 x& ^; f: r* z
Set swApp = Application.SldWorks) {. \" z* h9 }1 c5 f
Set swModel = swApp.ActiveDoc7 b5 F% z" |6 U- ]& v s
6 t+ S( Y, ^0 m4 n
swModelName = swModel.GetTitle
& O* k0 i! x% X4 P: G* e- E( K
swDocType = swModel.GetType
5 w* k$ O+ g/ V% G
vModels = swApp.GetDocuments. W" n5 _/ s$ z( @9 U( N; t6 y
'+++++++
% L( ^, Y( K7 m; y" T$ `
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
& b, L9 F2 \' h; j J" `0 |
'+++++++
6 [" w4 S! a/ ?+ s8 D# {
7 E Q+ O5 F1 c6 g
'********************************************************************************************************************************************************
. t8 E6 ]% @( u; @" }
: w) G: [7 Q7 F
'Build a list of document names to close
! w9 b+ y& I+ m: k9 c
3 M6 @5 ]/ U2 y" H
'********************************************************************************************************************************************************% d3 P1 i2 N* d; B+ \
$ N0 V1 z9 N3 e$ Z2 B
docCount = 1
/ W- X+ {, h9 E* P9 X# Z- j$ h/ `: ^8 q
) c( T( Z: |" |, l) i6 v# H
For i = 0 To UBound(vModels)( D) ~: C% t* ^8 I" ~5 t- I2 m
If Not vModels(i).GetTitle = swModelName Then# a) f$ K% N* c; \0 S9 H
ReDim Preserve modNames(docCount)4 T" E# f# h% q! M3 y
modNames(docCount) = vModels(i).GetTitle, l$ ]9 a4 Z$ W' w8 K' l
docCount = docCount + 1
6 v: a% g& B# S# n9 ~% j. Q8 L
End If
# x3 a+ R( M2 v8 w; p6 a" _
Next i5 H( k9 f/ H' Q* f+ R% B
: N, [0 ~' k) D5 z3 [# G/ u9 C @
'********************************************************************************************************************************************************
7 v0 u& p% D, T3 x7 M% n2 ]- e; O
# T" ?( _2 b$ |1 @8 G& W
' Close the documents in the array created" g5 J8 ]( N1 J. i: {$ T& ?6 ?
/ U+ Z2 C6 ` _, j9 K2 T4 m
'********************************************************************************************************************************************************; T7 P( x' Y$ l7 z0 o
- J2 [' u/ t' {9 F
For i = 1 To UBound(modNames)
7 U6 y( [* A% U2 Z5 ]9 M$ g& L
'Debug.Print (modName)
) H' t5 y( t& u
swApp.CloseDoc (modNames(i))
6 B) ^' h, ^/ O4 h5 b5 M# |7 ]
+ E( w/ z9 _0 F( E8 ?% K! R
Next0 w& g# C2 I! h2 L5 t8 F
, z, i! T* Y) u2 Y
End Sub
" D; j$ L9 y; f

复制代码

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) t+ Q6 J0 m" `5 d+ r& g$ E
楼主这一两年成宏高手啦，膜拜。

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

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

这年头，分不好赚啊

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

通知

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

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

评分

点评

浏览过的版块