工作簿之间的复制粘贴

我想将一个表从一个Workbook1复制粘贴到Workbook2（在一段时间内）。在Workbook2中，每行复制都有自己的工作表，下一个复制粘贴将位于下一个空行上。（在我已经附上奥迪行的图片上会有自己的工作表，每个更新都会在下一个空行中进行，其他的都是一样的），这里是我只尝试一行表，但它不`吨作品：工作簿之间的复制粘贴

Sub Updateeee() 
Application.OnTime Now + TimeValue("00:00:15"), "lalala" 
End Sub 

Sub lalala() 
Workbooks("Workbook1.xls").Worksheets("Sheet1").Range("B2:R2").Copy 
ActiveCellRow.Offset(1, 0).Activate 
Workbooks("Workbook2.xls").Worksheets("Sheet1").Range("B2").Paste 
Call Updateeee 
End Sub

Table example

来源

2017-05-05 Amy

它工作吗？你的问题是什么？ –

嗨@JacobH，它不起作用，我只是编辑了现在的问题，谢谢！ – Amy

嗨艾米，请考虑链接在http://stackoverflow.com/questions/19351832/copy-from-one-workbook-and-paste-into-another。它有多种解决方案。 – BabyGroot

你可以尝试这样的事情

Workbooks("Name.xlsx").Worksheets(1).Range(Cells(6, 8), Cells(6, 9)).Copy Destination:=ThisWorkbook.Worksheets(2).Range(Cells(6, 8), Cells(6, 9))

或者这样的事情，

Dim wbSour As Workbook 
Dim wbDest As Workbook 

'Open WB's 
Set wbSour = Workbooks.Open("wbSource.xls") 
Set wbDest = Workbooks.Open("wbDestination.xls") 

'Copy from one to the other 
wbDest.Sheets("sheet1").Range("A1").Value = wbSour.Sheets("sheet2").Range("A1") 

'Close Source file: 
wbSour .Close

来源

2017-05-06 07:56:24 Moosli

“wbSour”和“.Sheets”之间有一些空格。（和类似的）应该被删除。 – BabyGroot

@StillNestling谢谢，没有看到 – Moosli

要找到下一个空行：

rowCount = wbDest.Sheets("Data").rows.count 
NextEmptyRow = wbDest.Sheets("Data").Range("A" & rows.count).End(xlUp).Row + 1

要粘贴您可以使用由@Moosli或大量的实例提供给出的解决方案在Copy from one workbook and paste into another包括这里给出的解决方案，使您可以使用的一个适合您的需求。

希望有所帮助。

来源

2017-05-08 03:16:54 BabyGroot

工作簿之间的复制粘贴

回答

相关问题