|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 2 y4 q( \- t1 X# g. B" [+ d; f
6 m& C; I3 `5 t6 ^AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
, O8 d+ P- R9 O) W& k$ B- Private acadApp As Object, acadDoc As Object4 V- v" K2 ^; V' t5 ^7 H3 n
- private sub test()) ~- ~* L0 F6 l' d9 r5 ^: d1 y
- On Error Resume Next
8 }& _1 M- e, Q; X" A, j - Set xlApp = GetObject(, "Excel.Application")
- }8 S1 U- e& G - If Err Then5 m% T4 u7 h5 S0 C. K2 b
- Err.Clear
/ B9 j% G) k( s2 C" i9 @* ` - Set xlApp = CreateObject("Excel.Application")
; p+ }) f) P; o1 z$ G( p0 ~ - End If' g! S/ ?" F+ i" f
- xlApp.Visible = False
8 y i2 B T7 W, y7 X1 E
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主