|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑
' Z5 F( H7 Y% N8 ?. S( }
2 l E& S( C v8 u) A6 @. |AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。5 \6 y# b- Z* s* a" i3 t
- Private acadApp As Object, acadDoc As Object! F2 G9 U9 H, h' P( \ ?5 g
- private sub test(): z! s' ~/ ^0 ] V& Y8 F# {! }, H
- On Error Resume Next
1 {0 }. _" ?: ?5 O - Set xlApp = GetObject(, "Excel.Application")& ~. }. y2 v1 N" Z
- If Err Then2 z+ ]' c& l% U1 W7 {( B; X% _" E8 [
- Err.Clear. f* ?0 A8 ?& N1 d+ H3 |
- Set xlApp = CreateObject("Excel.Application")
1 r( B! m" F3 X0 X# s4 F3 p, e - End If- w+ s7 q4 ^" s; {* Q4 `& Z
- xlApp.Visible = False
3 A1 D* o- C- o1 m$ M2 i: z$ l
|
|
发表于 2016-1-18 20:59:53
发表于 2016-1-27 19:54:29
楼主