|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑
' W- V( R! j! J5 H1 `7 {1 F& b5 P- k0 C1 z5 J q5 D o) _7 ]" l m( s, D
AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
2 g. p( I- S& c, Z% Q- Private acadApp As Object, acadDoc As Object7 E5 b* M" y+ X: N6 C
- private sub test()
/ |" c1 r1 |3 ]; b% C0 j" k - On Error Resume Next
' M# D! Z( I, X! S, I' E - Set xlApp = GetObject(, "Excel.Application")
: e# q r' j/ O - If Err Then
5 m# L; \* E1 V6 y6 H- @ - Err.Clear) D* T+ C- i& J
- Set xlApp = CreateObject("Excel.Application")
: a9 u' u x3 _2 \7 C3 F2 Y8 e" T - End If
9 D; T, Q) v. g: g - xlApp.Visible = False
( Y# u4 x U% O" ^, _2 r
, W' o/ Q( U& ~$ ~, q1 ~1 S |
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主