我有两百份excel文件在同一个文件夹中,我想一次性修改每一个excel文 ...
发布网友
发布时间：2024-01-19 15:59
共1个回答
热心网友
时间：2024-07-21 18:22
全打开情形下：下面的过程修改每个文件每个表单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
