用宏命令可以解决,大概的步骤如下:
(1)先打开一个文档,单击“工具”→“宏”→“录制新宏”命令,出现宏的对话框,单击“确定”按钮。
(2)单击“文件”→“打开”,选择要修改数据的文件,将其打开。
(3)单击“编辑”→ “替换”命令,在查找替换框中将所有的日期、数量替换为0000。
(4)然后单击“文件”→“另存为”命令,将文件另存到另外一个文件夹中,最后关闭文件。
(5)单击“工具”→“宏”→“停止录制”命令,完成上述步骤
(6)对新录制的宏命令进行一定的修改,使它能对多个文件进行批量修改和保存。方法是:
单击“工具”→“宏”→“宏”命令,选择刚才录制的宏的名称,单击“编辑”按钮。打开Visual Basic编辑器,对宏进行一些修改。主要的修改地方有以下几个方面:
① 将刚才录制的宏的文件打开路径修改为你的文件夹的路径,例如“E:\123\old”,修改替换数据后的文件保存的路径,如“E:\123\new”
② 给宏命令添加一个for循环,例如,for i=6300,6300是你的文件数量,这是告诉宏修改6300个文件就结束
③ 其他的地方酌情修改,例如是否忽略报错,是否忽略数字的格式等
(7)最后一步就是在Visual Baisic编辑器中按F5键执行宏,六千多个文件一会儿就可以修改完毕。
注意,这样的操作需要懂一些简单的VB中有关逻辑循环执行的知识,如果逻辑循环修改正确的话,你只要按一次F5键执行就可以了。。。不然的话就要将六千多个文件逐个打开,逐个执行这样的宏命令操作,相当于按六千多次的F5追问我的每个文件的名称都不一样,怎样修改参数呢?
追答你参考一下用宏命令批量修改文件格式的代码。。。它是指定搜索一个文件夹,用变量代表文件的名称,相当于直接穷举这个文件夹内的所有文件,只要文件是在这个文件夹内就会自动打开。例如,网络上列举的一个用宏命令批量更改word文档类型的代码,识别文件部分是这样写的:
Dim name As String '意思是给文件名定义一个变量,这个变量名为name,所有的文件都可以是这个名字
name = "01" 文件从第一个开始
ChangeFileOpenDirectory "E:\VB_SOUCE\lib\" 打开E盘这个路径下的文件
For i = 1 To 2124 '这个文件夹里面的文件数是2124
………………
宏命令执行的时候,会自动选择的,所以不用考虑文件名的问题