VBA跨工作簿不打开复制粘提数据

like13452012

附件中有3个工作簿，a,b,c。a里面有标题abcd，下方有数据，行数不定。b同理。
需求是将a和b的数据粘贴到c中，c中已经有了标题abcd，要从A2单元格开始粘。
粘贴时ad的顺序不限，但是粘贴完一个后自动判断到最后一行数据的下一行继续进行粘贴操作，类似range("a65536").end(xlup).row + 1 的代码
自己查了好多帖子，也尝试了，都失败了。。。特来求助，谢谢帮忙！

like13452012

工作簿。。。抱歉打错字了

like13452012

有人吗。。。

kimmyyang

你这标题和内容有什么关系？

like13452012

kimmyyang 发表于 2019-6-14 14:43
你这标题和内容有什么关系？

没有关系呀，随便输入的，保证格式相同而已。。。目的只是想实现复制粘贴的操作

Lonzo丶

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. Dim xlApp As Excel.Application
   
4. Dim xlBook As Excel.Workbook
   
5. Dim sh As Excel.Worksheet
   
6. Dim brr, arr, myab, myc
   
7. brr = Array("a.xlsx", "b.xlsx")
   
8.     For Each br In brr
   
9.     Set xlApp = New Excel.Application
   
10.     Set xlBook = xlApp.Workbooks.Open(ThisWorkbook.Path & "" & br)
    
11.     Set sh = xlBook.Worksheets(1)
    
12.     myab = sh.UsedRange.Rows.Count
    
13.     arr = xlBook.Worksheets(1).Range("a2:d" & myab)
    
14.     xlBook.Close False
    
15.     myc = Sheet1.UsedRange.Rows.Count
    
16.     Cells(myc + 1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.     Next
    
18. Application.ScreenUpdating = True
    
19. MsgBox "done"
    
20. End Sub

复制代码

kimmyyang

like13452012 发表于 2019-6-14 15:01
没有关系呀，随便输入的，保证格式相同而已。。。目的只是想实现复制粘贴的操作

代码放到你的C工作簿中运行

xiangbaoan

………………

like13452012

kimmyyang 发表于 2019-6-14 17:32
代码放到你的C工作簿中运行

谢谢！明白了，我自己也用其他方法成功实现了这个功能，但是如果被复制的数据是透视表的话，就会报错。请问您知道是为什么吗？
再次感谢！

kimmyyang

透视表的话：ActiveSheet.PivotTables("数据透视表1").PivotSelect