我有两百份excel文件在同一个文件夹中，我想一次性修改每一个excel文件相同单元格里面的数据，用vb

Question

如题所述

Answer 1

两种办法：一是先打开全部要修改的文件，一是逐个处理
全打开情形下：下面的过程修改每个文件每个表单a1单元的值为“new”
注意：如果不修改写有过程的这个文件，加入if w.name<>thisworkbook.name then
如果只修改特定表单x（x为表单名称或编号），就省略for each s...条，在range前加sheets(x).
for each w in workbooks
for each s in sheets
range("a1").value="new"
next s
next w
逐个处理情形下：就用下面的过程（这里按特定表单处理）
注意：d是路径名称（以“\”结尾）
Set o = CreateObject("Scripting.FileSystemObject")
Set l = o.GetFolder(d)
Set f = l.Files
For Each w In f
n=f.name
m=d + n
Workbooks.open m
Sheets(x).range("a1").value="new"
Workbooks(n).close True
next w