[已解决]vba合并不同工作簿的数据

lhlprc

各位老师：我要崩溃了，我这里有300多个工作簿，领导要求每两个工作簿的内容要放在一张内，如工作簿1的内容。是将1班和2班的数据放在一个表内，要求在一张纸上打印出来。后面的操作一样，3班和4班的数据也放在一张表内。求老师指导!!
十万火急，明天就要要。

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-13 17:20

1. Sub Macro1()
   
2. mypath = ThisWorkbook.Path & ""
   
3. Set sht = ThisWorkbook.Sheets(1)
   
4. Application.ScreenUpdating = False
   
5. For i = 1 To 21 Step 2
   
6.     sht.DrawingObjects.Delete
   
7.     sht.UsedRange.Clear
   
8.     With Workbooks.Open(mypath & "高一" & i & "班.xlsx")
   
9.         .Sheets(1).[a1:f12].Copy sht.[a1]
   
10.         .Close 0
    
11.     End With
    
12.     With Workbooks.Open(mypath & "高一" & i + 1 & "班.xlsx")
    
13.         .Sheets(1).[a1:f12].Copy sht.[a15]
    
14.         .Close 0
    
15.     End With
    
16.     [a1:f26].PrintOut
    
17. Next
    
18. Application.ScreenUpdating = True
    
19. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. mypath = ThisWorkbook.Path & ""
   
3. Set sht = ThisWorkbook.Sheets(1)
   
4. Application.ScreenUpdating = False
   
5. For i = 1 To 21 Step 2
   
6.     sht.DrawingObjects.Delete
   
7.     sht.UsedRange.Clear
   
8.     With Workbooks.Open(mypath & "高一" & i & "班.xlsx")
   
9.         .Sheets(1).[a1:f12].Copy sht.[a1]
   
10.         .Close 0
    
11.     End With
    
12.     With Workbooks.Open(mypath & "高一" & i + 1 & "班.xlsx")
    
13.         .Sheets(1).[a1:f12].Copy sht.[a15]
    
14.         .Close 0
    
15.     End With
    
16.     [a1:f26].PrintOut
    
17. Next
    
18. Application.ScreenUpdating = True
    
19. End Sub

复制代码

lhlprc

dsmch 发表于 2016-4-13 17:20

太感谢老师的帮助了，就了我一命呀！！！