|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 + s1 Y& O% z4 S5 g |3 ?0 \: Q
, [( {* b# Q0 ]4 F. y# G! o
AccessVBA中用下面代码建立一CAD进程,因为设为桌面上不可见,总是被选择样板中断而不能进行随后的程序,不知如何解决。请求帮助谢谢。
6 y2 D0 E# T3 d2 Y+ V- Private acadApp As Object, acadDoc As Object8 H) k% P# s- M3 X+ u. z. O: H/ m/ W
- private sub test()
0 W) C$ o1 w8 }5 K4 ] - On Error Resume Next' ?) y! C6 T5 y% R) i
- Set xlApp = GetObject(, "Excel.Application")4 V7 | U( S# Z( ~& S
- If Err Then
/ i# w; U( _0 a - Err.Clear7 |' v0 u' n) F* H$ O
- Set xlApp = CreateObject("Excel.Application")
/ O4 s) l0 ~6 C3 n5 r - End If
1 u4 V! n* `( k3 ~6 v; A2 K* ]. t) h - xlApp.Visible = False
复制代码
6 F. L. H! |0 t6 i) p: B. G: W! x& N2 V Q5 f6 k9 }+ d2 N
|
|