[已解决]用VBA打开同一路径下2个工作簿

laoau138

用VBA打开同一路径下2个工作簿

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-17 22:18

1. Sub aaa()
   
2. Dim i&, arr
   
3. Application.ScreenUpdating = False
   
4. For i = 127 To 128
   
5.   Workbooks.Open Filename:=ThisWorkbook.Path & "/" & i & ".xlsx"
   
6.   arr = Sheets(1).UsedRange
   
7.   ActiveWorkbook.Close
   
8.   If i = 127 Then
   
9.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
10.   Else
    
11.     [a65536].End(3).Offset(3).Resize(UBound(arr), UBound(arr, 2)) = arr
    
12.   End If
    
13. Next i
    
14. ThisWorkbook.Save
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, arr
   
3. Application.ScreenUpdating = False
   
4. For i = 127 To 128
   
5.   Workbooks.Open Filename:=ThisWorkbook.Path & "/" & i & ".xlsx"
   
6.   arr = Sheets(1).UsedRange
   
7.   ActiveWorkbook.Close
   
8.   If i = 127 Then
   
9.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
10.   Else
    
11.     [a65536].End(3).Offset(3).Resize(UBound(arr), UBound(arr, 2)) = arr
    
12.   End If
    
13. Next i
    
14. ThisWorkbook.Save
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码