如何批量修改一个文件夹中多个文档中指定工作表中多个单元格的内容？

例如我要同时把第一个工作表中的A1中的内容改为“初三”A2的内容改为“素质”
第二个工作表中的b1中的内容改为“总分”b2的内容改为“折算”
依此类推，改完6个工作表，每个工作表指定的单元格不一样，修改的内容也不一样，上次你给的代码是
Dim objSFODim objFolderDim objFilesDim objFileaddress="A1" Value="填表注意事项（初三年级上学期）" 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 objFilesIf Right(objFile.Name, 4) = ".xls" Thenexcel.visible=falseset w=excel.workbooks.open(objFile.path) excel.Sheets("填表注意事项").Range(address).Value=Value W.SAVE W.CLOSEEnd IfNext
但是我不会用，能不能麻烦你直接按照我举的例子改出来，还有，是不是每修改一个工作表，都要重复使用一次这些代码？