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

koutx

6 ?1 y/ V) X1 M8 h; s5 C
AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。

1. Private acadApp As Object, acadDoc As Object
   
2. private sub test()
   
3. On Error Resume Next
   ' e2 D* c+ }2 S0 V! a2 N. k
4. Set xlApp = GetObject(, "Excel.Application")
   
5. If Err Then
   
6.     Err.Clear
   
7.     Set xlApp = CreateObject("Excel.Application")
   " X. L- b3 U' R1 `4 J2 g
8. End If
   
9. xlApp.Visible = False

复制代码

% W, c+ h$ x1 u! o, v' {

woaishuijia

1. acadApp.Documents.Add(Name)

复制代码

Name:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名
" Y+ Z" [! q6 x) ]' c

koutx

多谢版主，我试试。