QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2261|回复: 2
收起左侧

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

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

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

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

x
本帖最后由 woaishuijia 于 2016-1-27 19:55 编辑 + s1 Y& O% z4 S5 g  |3 ?0 \: Q
, [( {* b# Q0 ]4 F. y# G! o
AccessVBA中用下面代码建立一CAD进程,因为设为桌面上不可见,总是被选择样板中断而不能进行随后的程序,不知如何解决。请求帮助谢谢。
6 y2 D0 E# T3 d2 Y+ V
  1. Private acadApp As Object, acadDoc As Object8 H) k% P# s- M3 X+ u. z. O: H/ m/ W
  2. private sub test()
    0 W) C$ o1 w8 }5 K4 ]
  3. On Error Resume Next' ?) y! C6 T5 y% R) i
  4. Set xlApp = GetObject(, "Excel.Application")4 V7 |  U( S# Z( ~& S
  5. If Err Then
    / i# w; U( _0 a
  6.     Err.Clear7 |' v0 u' n) F* H$ O
  7.     Set xlApp = CreateObject("Excel.Application")
    / O4 s) l0 ~6 C3 n5 r
  8. End If
    1 u4 V! n* `( k3 ~6 v; A2 K* ]. t) h
  9. xlApp.Visible = False
复制代码

6 F. L. H! |0 t6 i) p: B. G: W! x& N2 V  Q5 f6 k9 }+ d2 N
发表于 2016-1-27 19:54:29 | 显示全部楼层 来自: 中国辽宁营口
: I/ ?6 O+ ~. H  M! ^; P
  1. acadApp.Documents.Add(Name)
复制代码
% q' j2 A& k7 K% v
Name:字符串,要使用的图形样板名称,并接受 URL 地址或完整的路径和文件名# y8 E/ @) c+ F, q6 [+ w4 ]. f/ x
 楼主| 发表于 2016-1-27 20:29:28 | 显示全部楼层 来自: 中国北京
多谢版主,我试试。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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