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

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. q7 V) G3 {0 o' Y
% u F0 f8 U& z& }7 E7 b/ M
'********************************************************************************************************************************************************
) s, Z9 @% i8 h, t& |6 {2 ?
- N5 f5 W2 j5 ]/ B
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
5 I5 t" D( x1 V2 K- i( T( x E
% A! J, l1 G% i2 z* t
' This macro closes all open documents except active document5 @0 _ J: E' X3 N, H* t
# w4 s' r) f3 N) _+ p) w+ B) _& G+ w
' Preconditions:, p" P' q+ E) Z: X
' 1. Solidworks open with multiple documents open
# o. u3 S y! _0 b+ b0 g5 K
' 2. Recommend do a save all before running: _! b4 z0 _" x
( Y1 D) x" |' V# O
' Postconditions:
, W- R- \3 c8 T( |( t, {
' 1. All documents closed except active document$ n2 @" g% p& ?8 d2 X( ]1 O
5 u' A3 c/ q$ u* Z
'********************************************************************************************************************************************************3 d! L/ C4 `, F. `: u! p) T5 A* k
5 X" J2 H2 S, n
Dim swApp As SldWorks.SldWorks
! h8 O0 F' A/ f5 m. c- U
Dim swModel As SldWorks.ModelDoc2
: ~- j) o0 V- {2 S# ]$ d8 M
Dim vModels As Variant
4 |# D. f% x/ `# O
Dim modNames() As String
; l! K6 j0 }2 N
Dim docCount As Integer+ ^# Z% V- f! ?2 W1 K; v
Dim swModelName As String
5 `5 Z- ?& F# O8 ^$ b2 o
Dim swDocType As Integer3 L) Z) ?) J! P5 d
Dim i As Integer: |. A2 [" t8 E) \
. G, H- O7 l1 V
Sub main()( I6 s( O& s* O6 c4 I2 s
! y ^* P+ M" }7 i' D4 s
'********************************************************************************************************************************************************' `5 h1 v, d% E5 K+ j0 n5 [5 \
4 h, U/ t5 g5 u8 k- Y! C0 z
' Get Application and active doc. Get active document name. Get documens variant.
4 D# U+ C: u, h. M
, Q8 x% V) A" b+ @7 V
'********************************************************************************************************************************************************
8 D4 q3 `" U1 G' k5 C* Q+ t
2 [. r& `" A" n! U# v; x1 R& m
Set swApp = Application.SldWorks
9 y8 w( o* t5 {$ t
Set swModel = swApp.ActiveDoc. H6 V0 B' X/ X8 H" Q$ X7 o4 R
7 C+ }: r3 G8 v, Q( B
swModelName = swModel.GetTitle
$ k, J$ G" u0 S3 `# ~
swDocType = swModel.GetType( S: B# ` f+ Y, m5 I* }. D
vModels = swApp.GetDocuments
, Q c+ H" B' F9 f/ I
4 Y, P |0 Q ^, L7 a
'+++++++
' m0 O S' @! F {
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
- @* v3 q9 {1 P9 t0 ?5 L- Y
'+++++++
( P+ t/ j ?3 G4 e/ f
J" i) [8 I" P4 g
'********************************************************************************************************************************************************
- Z& G, r& P+ V) K% |9 s7 W0 x
" G( b! S% r4 h! p5 _
'Build a list of document names to close
, Q, c0 g/ V4 w3 {
5 N% r4 `: A2 [0 i% f1 Z* ]& f2 h
'********************************************************************************************************************************************************
/ [0 o0 L" W: t! A, k
1 W) A/ j$ F$ ]) k( ?
docCount = 1$ b7 ?% P1 B+ ]& _' R
. A3 n& z! k0 _! V& t
For i = 0 To UBound(vModels)
5 x( O4 X; A/ S1 {5 X
If Not vModels(i).GetTitle = swModelName Then; M c" w; F1 y, ^) L
ReDim Preserve modNames(docCount)0 g! p, _7 A! K5 _
modNames(docCount) = vModels(i).GetTitle( R3 m$ x* R3 H# L M- J
docCount = docCount + 1
9 u' t+ b i# d4 q# G: s) q
End If
) f! A0 d0 v2 W* r, }8 t
Next i
4 e D! ` L; K: w4 r
2 _$ m& r* U$ Q8 E+ [
'********************************************************************************************************************************************************
7 B _5 N1 U5 A2 k0 k' m0 y
& q; ~0 I4 p% [6 ~" i# o2 V7 [
' Close the documents in the array created( g7 X8 p& E. z. x* Y
% K7 x! G( l: Z8 _. h6 H
'********************************************************************************************************************************************************+ I5 s# Q, ^3 A0 a/ q7 a: V
+ g$ R0 h4 @5 M" v; ^
For i = 1 To UBound(modNames)) D& t8 h3 C6 i
'Debug.Print (modName): r9 \9 Q) {# e
swApp.CloseDoc (modNames(i))! O4 ~+ F$ g; W* S9 U; D# i
2 y5 W: I; d/ j7 M' L
Next4 |0 M* y, l$ M1 L
& g: s5 m& b" @% n
End Sub2 }% ]! A: W( {+ @7 W/ Y0 N0 d) l

复制代码

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( \' z! w) |9 z& M2 p$ @% f
楼主这一两年成宏高手啦，膜拜。

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

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

这年头，分不好赚啊

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

通知

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

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

评分

点评

浏览过的版块