QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 2226|回复: 2
收起左侧

[已答复] 因选择样板文件而中断程序执行的问题

[复制链接]
发表于 2016-1-18 20:59:53 | 显示全部楼层 |阅读模式 来自: 中国北京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑   E, g5 N( S6 G: V% ]2 H
6 A$ L5 z$ P9 m4 c# L4 Z' ]
AccessVBA中用下面代码建立一CAD进程,因为设为桌面上不可见,总是被选择样板中断而不能进行随后的程序,不知如何解决。请求帮助谢谢。% o4 k- s/ `" ~- `) C$ {, I  B3 g
  1. Private acadApp As Object, acadDoc As Object! n+ \' l- ^* k5 K/ V) v; v
  2. private sub test()
    ' K& S5 ?9 d- O
  3. On Error Resume Next$ _7 U  Q, E3 Z2 z8 j- r
  4. Set xlApp = GetObject(, "Excel.Application")* ]# H" e) v; i& j, D: `
  5. If Err Then
    * s3 ~: ~) S. [; M
  6.     Err.Clear
    ' v) r8 T5 v1 ~0 c
  7.     Set xlApp = CreateObject("Excel.Application")% T# r7 t# {6 `6 n8 S" N
  8. End If7 x) J; j5 e& i5 Z/ u# `: D
  9. xlApp.Visible = False
复制代码
0 ]0 d/ J) U& y/ [8 N
$ L, S. T8 \( D2 [: N8 I5 [  U% m/ D
发表于 2016-1-27 19:54:29 | 显示全部楼层 来自: 中国辽宁营口
) u& R. z0 C3 w! L
  1. acadApp.Documents.Add(Name)
复制代码
- H$ s) X# v( G# Z& O
Name:字符串,要使用的图形样板名称,并接受 URL 地址或完整的路径和文件名1 [* o1 W) {+ z) \1 B/ ^5 L
 楼主| 发表于 2016-1-27 20:29:28 | 显示全部楼层 来自: 中国北京
多谢版主,我试试。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表