|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 / l* L2 Q) e, C2 [* ~3 e. W0 u. a
q' ? H. M+ y4 L: x2 o* aAccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。6 b9 F! c" X+ s
- Private acadApp As Object, acadDoc As Object
n6 K/ c0 J2 i# J! @6 x - private sub test()
- U# x/ ]0 P X- S - On Error Resume Next
3 ~/ t/ @) M6 { - Set xlApp = GetObject(, "Excel.Application")
2 l( y9 g7 W6 |0 B+ g) s! c - If Err Then( o8 ?% _! H+ Q
- Err.Clear
2 e' F% A' U" d9 V9 N+ Q - Set xlApp = CreateObject("Excel.Application")7 m9 k3 |" O# ~& I8 h4 S
- End If) C9 A" _# @' N$ W- ]
- xlApp.Visible = False
) r* R y! {4 ^8 Z8 I8 [5 Q* ]. ?
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主