|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑
& N) X, [( v. K) i
5 S! W% g! @9 d. d7 p- CAccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
; `( g% _9 k! w5 Z7 f; I2 ^# ]- Private acadApp As Object, acadDoc As Object
7 w, @. E6 c+ j; p1 R - private sub test()
7 ]5 L# c4 ~( K; Q. @1 Q - On Error Resume Next
. R, b: H5 [4 m# o+ P - Set xlApp = GetObject(, "Excel.Application"), ?- H. z! O# z7 Q$ T- p* X
- If Err Then. n9 W+ L1 N$ t2 J& O7 | s
- Err.Clear
5 K9 h. i% q3 d, T- r" ]8 F - Set xlApp = CreateObject("Excel.Application")$ f1 `4 _/ b) r
- End If* [. l: Y, ], L" r* u: O6 @
- xlApp.Visible = False
. E( L: m0 s; T0 ]+ B8 ]. N" H3 Q, _/ W) ~% s1 n! o. N
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主