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

koutx

AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
# Y: a) B3 F" L# `9 D

1. Private acadApp As Object, acadDoc As Object
   
2. private sub test()
   $ G$ I; f. V  C& M, `( T/ }
3. On Error Resume Next
   
4. Set xlApp = GetObject(, "Excel.Application")
   
5. If Err Then
   0 B% U' P# X/ L6 ]
6.     Err.Clear
   % H' p& I6 w) P  X
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   4 S) g, ~4 C9 I8 T/ I/ E
9. xlApp.Visible = False

复制代码

/ e, p& `' G% W, h$ L; i

woaishuijia

. w7 f5 }( g5 r) R+ W8 G: C7 m5 @# E; z

1. acadApp.Documents.Add(Name)

复制代码

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

koutx

多谢版主，我试试。