|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 $ Z" q& S6 b( w5 ?7 e0 T5 G# S
( b) \+ I, N8 N2 ~) ?
AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
* s: V. g1 E* k- Private acadApp As Object, acadDoc As Object
' t* u8 W* z6 A" E' Z3 ?. G - private sub test()
6 g) e# ~" E7 h1 `& d5 G - On Error Resume Next
' a5 o. N0 ^# b$ _! B: {$ f - Set xlApp = GetObject(, "Excel.Application")# U3 N4 s( p0 `) @" i
- If Err Then
2 K7 y- e( f$ r( V. J# s - Err.Clear
2 N8 y! J' x: ~2 a! v G - Set xlApp = CreateObject("Excel.Application")
& f( S$ C: h! Z/ T+ a - End If
& ]! g) R! o/ L7 U9 G4 ~" U - xlApp.Visible = False
' @: S. |* v5 n! `0 p1 [2 Z N) h+ f0 M8 O3 A" S1 J
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主