|
|
楼主 |
发表于 2017-6-24 19:59:18
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 NC@jiang@nan 于 2017-6-24 21:39 编辑 0 ?" {$ y q5 f$ q4 P8 c) S/ ~. [
% \4 O( ?3 N: A& ]) Z( F
丹大，我实在是不好意思了。看了两天您提供的这个宏文件，发现里面有几段代码在循环调用，按逻辑关系去推理，推理得头晕了，看不懂了。想改成在EXCEL里调用SW程序来打印文件，现在在试着做这个宏代码。刚开始做就碰到个问题，不知道在EXCEL的宏中是否可以检测SW软件是否已经启动，如果SW没启动的话就中止宏程序的运行。这样做的原因是：如果没有预先启动SW，这样在宏程序运行中用 Set swApp = CreateObject("SldWorks.Application") 代码来启动SW，在批量处理几个文件时，SW每处理完一个文件后就退出了，等处理下一个文件时又被Set swApp = CreateObject("SldWorks.Application")这个代码调出相当于又需要重新启动一次SW，这样循环启动比调用运行宏之前已经手动启动好的SW的速度要慢很多卡很多，特别电脑配置低点的时候处理文件的速度差距是天壤之别。我百度了一下”EXCEL VBA 怎么检测 调用的程序是否处于打开状态“主题，没找到有效的解决办法，能否请丹大指点迷津？谢谢
! d" G3 N7 M$ z补充：
. Q1 }+ l' g% w9 e丹大，又仔细的百度搜索了一会，修改代码后已经解决了问题了。
. s7 e: q# {9 i* X$ R! U满足我要求的功能的代码如下：
7 f& ~7 |5 x; e3 N9 @ r$ X N3 o( Z
3 i" [: h z% }$ w* b On Error Resume Next& O) V. Z- ?# m5 p
Set swApp = GetObject(, "SldWorks.Application") 1 ~3 b+ n$ L( z
While swApp Is Nothing '如果调用SW程序失败(SW程序未启动)时,循环
/ V+ @, [3 Q: s4 w* H% M/ u IResponse = MsgBox("请启动SolidWorks后重试或点击取消放弃打印！！", vbRetryCancel + vbInformation, "SolidWorks程序未启动！"); D/ { F$ \4 J
If IResponse = vbCancel Then Exit Sub
\" y# d2 u3 _4 {/ a1 q% w& } Set swApp = GetObject(, "SldWorks.Application")
9 I" d( s1 i0 ^$ y. y% o2 j0 ] Wend! e! h7 s) F1 z. L) j: L9 x
On Error GoTo 0
+ n1 a- E; ?- P# w* N- h/ a0 p. {5 m- |2 s4 n) b! K. `% H
|
|
发表于 2017-6-21 17:06:28
发表于 2017-6-21 21:40:18
)- z& Q% b) r9 E0 U6 Z9 I9 J% P* f
1 N6 I8 {0 {9 ^, V/ u( O
