多个<em>excel</em>文件批量需改<em>vb</em>代码

下面的语句知运行后，可以选择你要打开的工作簿，道然后要如何处理可在最下面回i2的循环嵌套里处理。
Sub data()

FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Please select the files...", , True)

If IsArray(FileToOpen) = 0 Then
'MsgBox "没有选答择文件"
MsgBox "No files are selected!"
WS1.Unprotect
GoTo ErrorHandler
End If

For i2 = 1 To UBound(FileToOpen)
userfilename = FileToOpen(i2)
.....

......

.....

next i2
ErrorHandler:
end sub

首先度要在选项-信任中心-宏设置里勾选信知任VBA对工程对象的访问

Sub AddCode2()
  pth = "D:\My Documents\" '在这道里版输入完整路径
  fn = Dir(pth & "*.xlsm")
  Do While fn <> ""
    Set wb = Workbooks.Open(pth & fn)
    With wb.VBProject.VBComponents("模块1").CodeModule '在这里修改代码所在的模块名
      .InsertLines 2, "msgbox ""Hello""" '在这里修改插入的行号和代码
      .InsertLines 3, "msgbox ""byebye""" '如果代码有多行就这权样继续
    End With
    wb.Close True
  Loop
End Sub

sub 多文件写入
Dim XLS
Xls = Dir(excel文件夹路径 & "\*.xls")　 '指定copy要遍历excel文件的路径及文件类型
Do While Xls <> ""
Set Xls = Workbooks.Open(excel文件夹路径 & "\" & Xls) 　'打开百excel文件
Sheets(1).Select
Sheets(1).Cells(1, 1).Value = "AAAA" '在A1单元格输入AAAA　（行序号，列序号）
Xls.Close True
Xls = Dir '下一个excel文件
Loop
Set Xls = Nothing '释放变量度内存
end sub

到底是改文件名还是改EXCEL中的数据呢？还是有多个文件中有AASA这样的内容要替换呢？你得说清楚啊。