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

'依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存
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"
                  
                  
    
                  End With