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

koutx

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

1. Private acadApp As Object, acadDoc As Object
   
2. private sub test()
   ! l' l3 e/ c) q8 S5 w2 y
3. On Error Resume Next
   
4. Set xlApp = GetObject(, "Excel.Application")
   3 E* e- v# Y: b4 H' H2 N
5. If Err Then
   + b) v2 K" B8 D2 z& w
6.     Err.Clear
   
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   . d" ?5 m# ~7 Y! t* U0 N' }
9. xlApp.Visible = False

复制代码

woaishuijia

. T( H7 G' S2 A- _* _8 x

1. acadApp.Documents.Add(Name)

复制代码

Name:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名
5 }# `: u  X/ S" J8 u0 u+ |

koutx

多谢版主，我试试。