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

fjy602

我做了个程序,想打开多个文档且完成同一个任务(批处理),每个文档完成任务后自动关闭，下一个文档打开再执行,实现打开-执行-关闭-再打开-执行-关闭循环，我使用的是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

使用ObjectDbx，不要做事件

wmz

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

fjy602

有objectDBX的帮助文件吗?

myfreemind

打开后来循环比较好

fjy602

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

zfbj

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

fjy602

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