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

koutx

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

1. Private acadApp As Object, acadDoc As Object
   3 J* v2 @* m4 c6 q* T6 I$ N
2. private sub test()
   ' p$ _4 d% C2 ~4 h4 z# n1 @
3. On Error Resume Next
   ; E7 j5 F/ C# R7 z# O7 _) I
4. Set xlApp = GetObject(, "Excel.Application")
   ( U/ ~) Q: A% R" V( ?
5. If Err Then
   # G6 X& b, s+ i6 X3 ?
6.     Err.Clear
   8 l( D" f9 L, ]9 F" i) |% G, Q1 p
7.     Set xlApp = CreateObject("Excel.Application")
   
8. End If
   % Q. W  r4 L" ~+ r0 R
9. xlApp.Visible = False

复制代码

# `: \; `( Y2 p4 t6 U7 T- w. f

woaishuijia

+ @% d; t! {7 G( T8 z

1. acadApp.Documents.Add(Name)

复制代码

/ F% V6 y2 D  v# w" jName:字符串，要使用的图形样板名称，并接受 URL 地址或完整的路径和文件名

koutx

多谢版主，我试试。