VBA复制指定sheet中指定区域到几百个工作薄中(批量复制的问题),代码错在哪里？

nbqmdzlcdint

Sub copydatetoworkbooks()
Dim Mypath$, Myname$, RngFpy As Range, RngCtq As Range
Dim x, y
Dim z


Mypath = ThisWorkbook.Path & "\7月FPY"
Set x = CreateObject("Scripting.filesystemobject")

Set y = x.getfolder(Mypath)
Set RngFpy = Sheets("FPY模板").Range("a1:d19")

If y.Files.Count > 0 Then
Application.ScreenUpdating = False
  For Each z In y.Files
   Workbooks.Open (z)
  RngFpy.Copy ActiveWorkbook.Worksheets(1)
       ActiveWorkbook.Save
      ActiveWorkbook.Close
Next
            
End If
Application.ScreenUpdating = True


End Sub

greview

上传附件 看看