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

koutx

AccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。
0 d+ c6 q" t8 |1 M; U- [5 B

1. Private acadApp As Object, acadDoc As Object
   
2. private sub test()
   . K. x5 @' h( Z# [
3. On Error Resume Next
   ! g! R& s& O, p6 Q
4. Set xlApp = GetObject(, "Excel.Application")
   9 O3 c7 \1 m% v. i! [
5. If Err Then
   
6.     Err.Clear
   
7.     Set xlApp = CreateObject("Excel.Application")
   $ w( W" Z* O4 z5 d7 _
8. End If
   2 l) P2 b# \) \( r: E, U6 P
9. xlApp.Visible = False

复制代码

6 ?& r( x: y. ~5 `; ?/ l" A

woaishuijia

1. acadApp.Documents.Add(Name)

复制代码

. G  K2 T; _: {% P) D# M7 ]: F- nName:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名

koutx

多谢版主，我试试。