如何用VB对多个EXCEL表格中的数值进行修改操作

确保这个文件夹只有这些Excel文件，且若打开某一文件，数据就能看见——即不用点其他sheet。
建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt和F11，点菜单的插入，模块，粘贴如下代码：

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match
cells(3,5) = "xxxx"
activeworkbook.save
Activeworkbook.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

粗体部分照猫画虎，然后在此界面直接按F5运行此宏，完成操作。

这个需要复制的