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

koutx

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

1. Private acadApp As Object, acadDoc As Object
   , w$ i2 _. O3 r3 g
2. private sub test()
   
3. On Error Resume Next
   
4. Set xlApp = GetObject(, "Excel.Application")
   
5. If Err Then
   # S5 q2 \: M3 D6 D6 E) U; Q5 E
6.     Err.Clear
   
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   : J( K+ x0 \4 I+ c# ]2 d- a
9. xlApp.Visible = False

复制代码

+ g$ C, g8 H& [& i! t% Y: N. g  v

woaishuijia

1. acadApp.Documents.Add(Name)

复制代码

# y2 z$ |7 N2 v; b/ bName:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名

koutx

多谢版主，我试试。