乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 130|回复: 7

[VBA]如何实现文件批处理

[复制链接]

7

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
37
发表于 2004-7-31 20:26:00 | 显示全部楼层 |阅读模式
我做了个程序,想打开多个文档且完成同一个任务(批处理),每个文档完成任务后自动关闭,下一个文档打开再执行,实现打开-执行-关闭-再打开-执行-关闭循环,我使用的是endopen事件,下面我写的代码:
新建一个类模块
Public WithEvents ACADApp As AcadApplication
Private Sub ACADApp_EndOpen(ByVal FileName As String)
                                                                 Call Initilize
End Sub
新建一个模块
Dim eventCall As New Event01
Public Sub Initilize()
                                 Set eventCall.ACADApp = ThisDrawing.Application                               
                                 ZoomAll
                                 ThisDrawing.Save
                        ThisDrawing.Close       
End Sub
但程序执行到 thisdrawing.close 就出现“图形忙”的出错信息,请那位大侠赐教,如何实现我想要的结果,谢谢!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-31 22:35:00 | 显示全部楼层
使用ObjectDbx,不要做事件
回复

使用道具 举报

wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 2004-8-1 10:14:00 | 显示全部楼层
你的这个问题请参照明总的书>上的一节:"批量文字查找替换",可以解决.
回复

使用道具 举报

7

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
37
发表于 2004-8-1 10:48:00 | 显示全部楼层
有objectDBX的帮助文件吗?
回复

使用道具 举报

20

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
106
发表于 2004-8-2 12:17:00 | 显示全部楼层
打开后来循环比较好
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2004-8-2 13:01:00 | 显示全部楼层
打开后来循环可以是可以,但当同时处理上百张图纸时计算机就吃不消了,所以还是打开文件-执行命令-关闭文档-再打开-执行-关闭循环比较好,不知要实现这种循环该如何处理?
回复

使用道具 举报

7

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
37
发表于 2004-8-4 17:22:00 | 显示全部楼层
希望下面的程序对你有帮助。
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:3k3z4vnzaep.dvb 
下载次数:0  文件大小:88.5 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-8-4 20:32:00 | 显示全部楼层
非常感谢8楼的支持,我想能否在选择文件的时候使用CAD的打开对话框,比如使用公用对话框(Commondialog),但我不知道如何返回多重选择下的各文档路径?谢谢!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 00:42 , Processed in 2.542847 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表