不同工作簿之间批量复制和粘贴问题

gally16

1. Application.ScreenUpdating = False
   
2. Dim sr$, wb As Workbook
   
3. sr = Dir("D:\2019年" & "" & "*.xls")
   
4. Do
   
5. Set wb = Workbooks.Open("D:\2019年" & sr)
   
6. ThisWorkbook.Sheets("表4").Range("a1:y133").Value = wb.Sheets("表2").Range("a1:y133").Value
   
7. 
   
8. wb.Close 0
   
9. ThisWorkbook.SaceAs ("D:\2019年报表" & "报表-" & [b3] & "2019年")
   
10. 
    
11. sr = Dir
    
12. Loop Until sr = ""
    
13. Application.ScreenUpdating = True

复制代码

想从A文件的“表2”里复制，粘贴到B文件的“表4”里
然后以B文件“表1”的b3单元格来另存为C文件，结束后不打开C文件
这样反复做很多次
b3这里不知道怎么处理