|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 % h, X# K: J" [+ P# C: @) E0 A
) C E& v" Q' J% F
AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。- h2 y# C" s1 E7 o1 W# \$ w- {
- Private acadApp As Object, acadDoc As Object
. z7 o' w$ |" _0 C9 W% `) Q f - private sub test(). O4 U" W5 v/ b$ J- ?
- On Error Resume Next
; q9 M( ]- S3 t- u% V& K, C - Set xlApp = GetObject(, "Excel.Application")9 J/ b3 O" H0 P9 L) N( D
- If Err Then3 p! Z' q4 _% d0 A
- Err.Clear# J" X: z5 o' C1 W4 L7 A! x9 z2 y
- Set xlApp = CreateObject("Excel.Application")
2 Z! J4 B! v+ a( T5 z - End If' w) t; \" X+ G+ i
- xlApp.Visible = False
5 z* \2 L' R U3 |8 S, B- j w2 f" t7 b- x$ r1 g
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主