因选择样板文件而中断程序执行的问题

koutx

* t2 e6 s3 T/ @  ?- ~% _4 A: P/ v
AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。

1. Private acadApp As Object, acadDoc As Object
   3 E$ X3 V! g: _- L5 P: k, C
2. private sub test()
   : y4 T/ O  x  l5 H! E: {- L5 T
3. On Error Resume Next
   , y% C% f3 b3 z/ ?* V
4. Set xlApp = GetObject(, "Excel.Application")
   
5. If Err Then
   1 D3 i6 o' Q: L1 r3 {. [
6.     Err.Clear
   / Y9 r1 A8 y9 J0 ~
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   0 b5 _% \% C( K# X9 D
9. xlApp.Visible = False

复制代码

- l! U9 ]4 g& F9 f
7 v& X. Y- Q- b' p

woaishuijia

1. acadApp.Documents.Add(Name)

复制代码

Name:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名

koutx

多谢版主，我试试。