[已解决]复制内容到指定的文件当中(自动接上)

wingotoo

需求.rar (13.39 KB, 下载次数: 5)

2022-1-15 15:52 上传

点击文件名下载附件 大家好,本人有个需求
通过vba将A表的区域 复制接驳到 目标B表的最后面,如何实现?

最佳答案

月排行榜 / 总排行榜

林木水

2022-1-15 18:54

如下附件：因为你变动表不是xlsm格式，所以要新建一个xls或者xlsm格式的工作表去执行代码。

1. Sub demo()
   
2. Application.DisplayAlerts = False
   
3. Dim wb1 As Workbook, wb2 As Workbook
   
4. Set wb1 = Workbooks.Open(ThisWorkbook.Path & "" & "A.xlsx")
   
5. Set wb2 = Workbooks.Open(ThisWorkbook.Path & "" & "B.xlsx")
   
6.     wb1.Sheets(1).Range("a2:c4").Copy wb2.Sheets(1).Range("a5")
   
7. wb1.Close True
   
8. wb2.Close True
   
9. Application.DisplayAlerts = True
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

vitrel

楼主，您好！
如果方便的话，您传个附件上来，以便调试。
总不能要别人帮您编程，还得让别人帮您打字吧。

wingotoo

vitrel 发表于 2022-1-15 10:04
楼主，您好！
如果方便的话，您传个附件上来，以便调试。
总不能要别人帮您编程，还得让别人帮您打字吧。 ...

嗯嗯  谢谢提醒

林木水

如下附件：因为你变动表不是xlsm格式，所以要新建一个xls或者xlsm格式的工作表去执行代码。

1. Sub demo()
   
2. Application.DisplayAlerts = False
   
3. Dim wb1 As Workbook, wb2 As Workbook
   
4. Set wb1 = Workbooks.Open(ThisWorkbook.Path & "" & "A.xlsx")
   
5. Set wb2 = Workbooks.Open(ThisWorkbook.Path & "" & "B.xlsx")
   
6.     wb1.Sheets(1).Range("a2:c4").Copy wb2.Sheets(1).Range("a5")
   
7. wb1.Close True
   
8. wb2.Close True
   
9. Application.DisplayAlerts = True
   
10. End Sub
    

复制代码