如果我要批量修改同一个文件夹下指定工作表中 多处 相同位置的内容我改怎么修改代码？

Dim objSFO
Dim objFolder
Dim objFiles
Dim objFile
address="A1"
Value="123"
set fso=createobject("scripting.filesystemobject")
set excel=createobject("excel.application")
Set objFolder = fso.GetFolder("C:\Users\Administrator\Desktop\123")
Set objFiles = objFolder.Files
For Each objFile In objFiles
If Right(objFile.Name, 4) = ".xls" Then
excel.visible=false
set w=excel.workbooks.open(objFile.path)
excel.Sheets("指定工作表").Range(address).Value=Value
W.SAVE
W.CLOSE
End If
Next
试试，有问题再说