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

koutx

  `( s$ S5 @; f% C0 L! a
* B9 I. p7 b1 T/ Z* V0 xAccessVBA中用下面代码建立一CAD进程，因为设为桌面上不可见，总是被选择样板中断而不能进行随后的程序，不知如何解决。请求帮助谢谢。

1. Private acadApp As Object, acadDoc As Object
   
2. private sub test()
   
3. On Error Resume Next
   ! d$ |* U' f) u9 L6 _
4. Set xlApp = GetObject(, "Excel.Application")
   6 U6 o2 t* b+ w4 A, c: B! I0 u
5. If Err Then
   . p  x0 Q3 [9 ]# x# O
6.     Err.Clear
   * z+ Q, o/ {9 m  m& P
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   
9. xlApp.Visible = False

复制代码

woaishuijia

1. acadApp.Documents.Add(Name)

复制代码

! {+ ^4 l4 e1 q8 A. H' FName:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名
9 d0 y' z4 c3 `4 r7 T: [

koutx

多谢版主，我试试。