在一文件夹下的所有EXCEL，如何批量修改同一位置的单元格内

在一文件夹下的所有EXCEL，如何批量修改同一位置的单元格内容，注：工作表不是1个EXCEL，是多个 每个工作表有3个sheet 我想修改sheet2内容 (修改内容如sheet2 b1=sheet1 a2 ）
这里有个代码求大神修改一下，
谢谢！！！！
Dim fso,excel
Folder="D:\11"
address="C2"
Value="我要改的值"
set fso=createobject("scripting.filesystemobject")
set excel=createobject("excel.application")
excel.visible=true
for each file in fso.getfolder(folder).files
set w=excel.workbooks.open(file.path)
excel.activesheet.Range(address).Value=Value
W.SAVE
W.CLOSE
next【图片】【图片】【图片】