如何将同一个文件下相同格式的多个表格同一单元格统一修改

aranlxl

如题：
有一个文件夹，文件夹里有1000个excel表格， 所有表格的格式是一致的，如何实现将所有表格同一地址单元格修改为同一内容，如把这1000个表格里A2位置的单元格统一修改为PTO

fangyongshun

1000个sheet一起选定，然后更改就行

272767951

一个思路，不晓得正确否
1、指定文件夹
2、查找表格
3、修改内容

以下是照着别的内容改的，也不知道正确否。
Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim p as string
Dim f as string
p = "D:\需修改文件夹\" '假设文件所在的文件夹
f = Dir(p & "*.xlsx") '如果是2003版的，请改为""*.xls"
Do
Workbooks.Open (p & f)
Workbooks(f).Worksheets(1).Range("A2").value="PTO"Workbooks(f).Close True
f = Dir
Loop Until f = ""
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "修改完毕"
End Sub

西瓜皮掉了

fangyongshun 发表于 2013-4-22 17:11
1000个sheet一起选定，然后更改就行

2楼的办法是最简单的

aranlxl

272767951 发表于 2013-4-22 21:28
一个思路，不晓得正确否
1、指定文件夹
2、查找表格

thank you very much ,i will try it