在一文件夹下的所有EXCEL，如何批量修改同一位置的单元格内容，注：工作表不是1个EXCEL，是多个。

Question

如题所述

Answer 1

看起来是个公务员啊~ 但愿你以后可以对广大屁民态度好一点~~

1. 把下面的代码COPY保存为1.VBS

2. 把要修改的文件放在D:\11里面 

3.修改address="C2"，你要改哪个单元格位置就写哪个

4. 修改Value="我要改的值"，要改的值~

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

Answer 2

需要用到编程了，而且你的文件也忒多了吧。追问

这才多少啊，8万户呢，要不然捉急呢

追答

楼上的代码你会用吗，解决了吗？

追问

高人，您真是厉害啊，怎么用，教教我QQ：四一二一二0757

Answer 3

一楼代码不全么，为啥不对啊