|
|

楼主 |
发表于 2017-6-24 19:59:18
|
显示全部楼层
来自: 中国广东深圳
本帖最后由 NC@jiang@nan 于 2017-6-24 21:39 编辑
; i2 Q* V3 J9 c" F
: m, w- W( I( L; \丹大,我实在是不好意思了。看了两天您提供的这个宏文件,发现里面有几段代码在循环调用,按逻辑关系去推理,推理得头晕了,看不懂了。想改成在EXCEL里调用SW程序来打印文件,现在在试着做这个宏代码。刚开始做就碰到个问题,不知道在EXCEL的宏中是否可以检测SW软件是否已经启动,如果SW没启动的话就中止宏程序的运行。这样做的原因是:如果没有预先启动SW,这样在宏程序运行中用 Set swApp = CreateObject("SldWorks.Application") 代码来启动SW,在批量处理几个文件时,SW每处理完一个文件后就退出了,等处理下一个文件时又被Set swApp = CreateObject("SldWorks.Application")这个代码调出相当于又需要重新启动一次SW,这样循环启动比调用运行宏之前已经手动启动好的SW的速度要慢很多卡很多,特别电脑配置低点的时候处理文件的速度差距是天壤之别。我百度了一下”EXCEL VBA 怎么检测 调用的程序是否处于打开状态“主题,没找到有效的解决办法,能否请丹大指点迷津?谢谢
9 m# o9 \+ Y/ D% ]. D0 l. F补充:4 R- Q' {9 X: s' ?9 K Z
丹大,又仔细的百度搜索了一会,修改代码后已经解决了问题了。
5 Q# b( s' s5 |) t. W0 o- G满足我要求的功能的代码如下:
& a7 m* ^3 f" N& E% M0 y
- y3 e- t6 G+ c' S! z) Z$ ~ On Error Resume Next
4 x: f$ R! {% A: X0 Y. P Set swApp = GetObject(, "SldWorks.Application") 6 u+ j) c9 @& V: e
While swApp Is Nothing '如果调用SW程序失败(SW程序未启动)时,循环
% p$ Y; e3 c) R& T R- |& B IResponse = MsgBox("请启动SolidWorks后重试或点击取消放弃打印!!", vbRetryCancel + vbInformation, "SolidWorks程序未启动!")
} M% o' f# Y* Y( j, k/ W If IResponse = vbCancel Then Exit Sub* p' i4 k; v( O0 r6 M4 R C
Set swApp = GetObject(, "SldWorks.Application")! @, O- f7 Z: \5 T5 Y6 T, u
Wend' g/ w. l6 M/ e6 o1 u
On Error GoTo 0
8 w @, X1 X3 i. p1 F2 L% {" }- z, e8 G; U8 J! W6 _8 l! Y
|
|