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

weixin_45514748

已于 2022-06-29 14:46:08 修改

阅读量4.2k

点赞数 4

分类专栏： Excel 文章标签： VBA Excel 文件夹遍历单元格修改自动化脚本

于 2022-06-29 14:45:05 首次发布

本文链接：https://blog.csdn.net/weixin_45514748/article/details/125521520

版权

Excel 专栏收录该内容

1 篇文章

订阅专栏

该篇博客介绍了如何使用VBA脚本打开指定文件夹中的所有Excel文件，选择特定单元格并批量修改其内容，适用于自动化数据处理任务。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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