EXCEL 如何在未打开的工作薄内替换数据

我有数个表格,全部打开很麻烦,我想把所有的表格都一次性替换数据,有没有办法?

用VBA可以吗?新建一个EXCEL,建一个commandbutton按钮,把以下代码复制进去,然后把以下代码中的路径改成你放的表格的路径,然后点一下按钮,就把文件夹下面的所有文件都修改了,以下例子是把D:\data\目录下的所有excel文件的sheet1这个表的A1单元格改成"你好".速度很快的.

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
mypath = "d:\data\" '改成你放文件的路径
myfile = Dir(mypath & "*.xls")
Do While myfile <> ""
myfile = Dir
Workbooks.Open Trim(mypath & myfile)
Workbooks(myfile).Worksheets("sheet1").Range("a1") = "你好"
Workbooks(myfile).Close True
Loop
Application.ScreenUpdating = True
End Sub

点菜单的编辑，替换，查找处输入 2010，替换处输入 2011，全部替换。 由于担心把不必要的2010替换为2011，可以输入类似 2010.xls 和 2011.xls，如果适用的话。