工作簿之間的複製粘貼

我想將一個表從一個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

工作簿之間的複製粘貼

回答

相關問題