[已解决]用VBA打开同一路径下2个工作簿 改写插入一行

laoau138

用VBA打开同一路径下2个工作簿 改写插入一行

Sub s()

    With ThisWorkbook.Sheets(1)
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\127.xlsx")
        wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)
        wb.Close
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\128.xlsx")
        wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)
        wb.Close
    End With
    ThisWorkbook.Save
End Sub




'用VBA打开同一路径下2个工作簿 改写插入一行

'用VBA打开127  128工作簿  把两个工作簿sheet1内容

'自动复制到这个工作簿sheet1中 然后自动保存

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2017-6-6 08:58

1. Sub s()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4.     With ThisWorkbook.Sheets(1)
   
5.         Set wb = Workbooks.Open(ThisWorkbook.Path & "\127.xlsx")
   
6.         wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)
   
7.         wb.Close
   
8.         Set wb = Workbooks.Open(ThisWorkbook.Path & "\128.xlsx")
   
9.         wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count + 1, 1)
   
10.         wb.Close
    
11.     End With
    
12.     ThisWorkbook.Save
    
13. Application.ScreenUpdating = True
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub s()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4.     With ThisWorkbook.Sheets(1)
   
5.         Set wb = Workbooks.Open(ThisWorkbook.Path & "\127.xlsx")
   
6.         wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1)
   
7.         wb.Close
   
8.         Set wb = Workbooks.Open(ThisWorkbook.Path & "\128.xlsx")
   
9.         wb.Sheets(1).UsedRange.Copy .Cells(.UsedRange.Row + .UsedRange.Rows.Count + 1, 1)
   
10.         wb.Close
    
11.     End With
    
12.     ThisWorkbook.Save
    
13. Application.ScreenUpdating = True
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码