VBA依次打开当前文件夹中所有的工作簿并且向里面写入内容

最新推荐文章于 2022-11-19 22:08:53 发布

XENIA1992

最新推荐文章于 2022-11-19 22:08:53 发布

阅读量3k

点赞数 1

分类专栏： VBA 工具文章标签： excel vba

本文链接：https://blog.csdn.net/XENIA1992/article/details/115248984

版权

使用VBA编写代码，可以实现批量操作Excel文件，依次打开当前文件夹内的所有工作簿，并向每个工作簿中写入特定内容。通过自动化处理，极大地提高了工作效率。

摘要由CSDN通过智能技术生成

'依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存
Sub OpenAndSave()


        Dim myPath$, myFile$, AK As Workbook
        Dim sh As Worksheet
        
        Dim i As Integer
        i = 2
        
        Dim fname As String
        
        Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
        
        myPath = "C:\Users\DELL\Desktop\新建文件夹 (2)\" '把文件路径定义给变量
        
        myFile = Dir(myPath & "*.xlsx") '依次找寻指定路径中的*.xlsx文件
        
        Do While myFile <> "" '当指定路径中有文件时进行循环
            If myFile <> ThisWorkbook.Name Then
            
                Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
                
                Debug.Print AK.Name
                
                Set sh = AK.Sheets(1)
                
                
                  With sh
                  
                  .Range("A1").Value = "测试123"