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

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

我做了个程序,想打开多个文档且完成同一个任务(批处理),每个文档完成任务后自动关闭，下一个文档打开再执行,实现打开-执行-关闭-再打开-执行-关闭循环，我使用的是endopen事件，下面我写的代码：


新建一个类模块


Public WithEvents ACADApp As AcadApplication


Private Sub ACADApp_EndOpen(ByVal FileName As String)<BR>                                                               Call Initilize<BR>End Sub


新建一个模块


Dim eventCall As New Event01


Public Sub Initilize()<BR>                               Set eventCall.ACADApp = ThisDrawing.Application                                <BR>                               ZoomAll<BR>                               <FONT face=宋体>ThisDrawing.Save<BR>                        <FONT color=#ee1196>ThisDrawing.Close        </FONT></FONT><FONT face=宋体><BR></FONT>End Sub


但程序执行到 thisdrawing.close 就出现“图形忙”的出错信息，请那位大侠赐教,如何实现我想要的结果,谢谢!

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

使用ObjectDbx，不要做事件

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

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

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

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


fjy602 发表于 2004-8-4 21:58:00

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

slsldu 发表于 2004-8-5 14:30:00

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