|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 & ^0 C" i& v" a* s
; Q- v. v* Z0 b$ `. A0 K; CAccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
8 ?! w( s g0 z! J- Private acadApp As Object, acadDoc As Object
2 l2 U! g+ Z9 G5 K, h! G) n- c - private sub test()
& i: H# F% ]7 S* e9 G - On Error Resume Next
0 [. t s* h/ [( l - Set xlApp = GetObject(, "Excel.Application")
/ l$ T1 S8 c6 Y0 ]( l( C; Q# J - If Err Then- o& B& k( Z( v: ]
- Err.Clear- g) k8 u D0 g$ I0 P) T
- Set xlApp = CreateObject("Excel.Application") a1 I, E' S& v7 a8 l/ q" m
- End If
# @* i5 @5 W! z; B p& m$ o. Q - xlApp.Visible = False
! D( B0 ~3 i3 I5 S7 t1 i# i |
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主