社区 › VB › [VBA]如何实现文件批处理

fjy602 发表于 2004-7-31 20:26:00

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

我做了个程序,想打开多个文档且完成同一个任务(批处理),每个文档完成任务后自动关闭，下一个文档打开再执行,实现打开-执行-关闭-再打开-执行-关闭循环，我使用的是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 就出现“图形忙”的出错信息，请那位大侠赐教,如何实现我想要的结果,谢谢!

雪山飞狐_lzh 发表于 2004-7-31 22:35:00

使用ObjectDbx，不要做事件

wmz 发表于 2004-8-1 10:14:00

你的这个问题请参照明总的书>上的一节:"批量文字查找替换",可以解决.

fjy602 发表于 2004-8-1 10:48:00

有objectDBX的帮助文件吗?

slsldu 发表于 2004-8-2 12:17:00

打开后来循环比较好

myfreemind 发表于 2004-8-2 13:01:00

打开后来循环可以是可以，但当同时处理上百张图纸时计算机就吃不消了，所以还是打开文件-执行命令-关闭文档-再打开-执行-关闭循环比较好，不知要实现这种循环该如何处理？

fjy602 发表于 2004-8-4 17:22:00

希望下面的程序对你有帮助。

zfbj 发表于 2004-8-4 20:32:00

非常感谢8楼的支持，我想能否在选择文件的时候使用CAD的打开对话框，比如使用公用对话框(Commondialog)，但我不知道如何返回多重选择下的各文档路径？谢谢!

查看完整版本: [VBA]如何实现文件批处理