|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 9 h+ M `' i! I, p) D
. B7 l+ i8 _+ H$ I1 a3 x9 N8 KAccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
; Y# D: J2 R* q6 {' M- Private acadApp As Object, acadDoc As Object
; @; N1 w) Q7 v I4 E. R* N - private sub test()1 b& P% [0 S2 e, K; V' |6 h2 J1 H
- On Error Resume Next
5 [; N- x8 k5 H4 }3 }# |: ^6 L - Set xlApp = GetObject(, "Excel.Application")
! g0 }/ _/ L/ F i) m9 @ - If Err Then
- \/ Z: Y, s' Y. P0 B/ { d3 ]6 y - Err.Clear
8 j$ @3 N5 i C$ g8 J( f - Set xlApp = CreateObject("Excel.Application")$ ]6 P1 Y6 u: H! y+ i, q- U: p* J
- End If
8 u1 k1 G b% q7 N - xlApp.Visible = False
! Z1 L' `% {, r9 H+ j: P- Y8 L6 ~8 u4 d s! ?- _. u' Q" b4 L0 w
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主