Excel Vba遍历文件夹内所有文件并修改内容

Sub 打开文件夹内所有Excel表格并修改() '打开文件夹内所有Excel表格并修改
'
'
'
    Dim myPath$, myFile$, WB As Workbook '这个$是相当于定义字符串
    
    myPath = "F:\批量修改\修改\"    '把文件路径定义给变量，这里请自行更改，记得最后要加一个反斜杠
    
    myFile = Dir(myPath & "*.xls*")  '依次找寻指定路径中的*.x1s,或者x1sx文件
      
    Do While myFile <> ""   '当指定路径中有文件时进行循环
           
          If myFile <> ThisWorkbook.Name Then   '如果我们这个宏文件在需要处理的文件夹之中，这个判断就会跳过下面的操作
          
          Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
          
          Range("B6").Select  '需要修改的地方
          ActiveCell.FormulaR1C1 = "需要修改的内容"  '修改此位置的内容
          ActiveWorkbook.Save  保存修改
          
          WB.Close 1 '保存文件直接关闭
          
        End If
        myFile = Dir '找寻下一个*.x15,或者x1sx文件

      Loop
         Set WB = Nothing   '释放变量内存
         

End Sub