使用vba代码将数据从选项卡复制到另一个

Question

嗨我尝试从其他选项卡复制一些数据到一个新的创建我的客户端的数据库，但我得到此错误：运行时错误424对象所需。

这是一个精细： 'Věží护理角城urmatorul兰特 NextRow = WS2.Cells（Rows.Count，1）.END（xlUp）.Row + 1

'Valorile importante din Registru facturi F2 -data, F3-nyumar factura, B10 -client, B11-reg com, B12-CUI, B13 adresa, B14 telefon, B15 email, B16 cont bancar, C36 suma achitat, C37 rest plata, D32 valuta facturii 

WS2.Cells(NextRow, 1).Resize(1, 14).Value = Array(WS1.Range("F2"), WS1.Range("F3"), WS1.Range("B10"), Range("InvTot"), WS1.Range("B11"), WS1.Range("B12"), WS1.Range("B13"), WS1.Range("B14"), WS1.Range("B15"), WS1.Range("B16"), WS3.Range("C36"), WS3.Range("C37"), WS3.Range("D32"), WS3.Range("C38")) 

但这一个返回一个错误：

' Vezi care este urmatorul rand Baza de date 
NextRow = W7.Cells(Rows.Count, 1).End(xlUp).Row + 1 
'Valorile importante din Baza de date 
    WS7.Cells(NextRow, 1).Resize(1, 14).Value = Array(WS7.Range("C5"), WS7.Range("C23"), WS7.Range("C24"), Range("InvTot"), WS7.Range("C25"), WS7.Range("C26"), WS7.Range("C28"), WS7.Range("C29"), WS7.Range("C30"), WS7.Range("C31"), WS7.Range("C32"), WS7.Range("C33"), WS7.Range("C6"), WS7.Range("C7"), WS7.Range("C8"), WS7.Range("C9"), WS7.Range("C10"), WS7.Range("C11"), WS7.Range("C12"), WS7.Range("C13"), WS7.Range("C14"), WS7.Range("C15"), WS7.Range("C16"), WS7.Range("C17"), WS7.Range("C18"), WS7.Range("C19")) 

---

Sub PostToRegister() 

Dim WS1 As Worksheet 
Dim WS2 As Worksheet 
Dim WS3 As Worksheet 
Dim WS4 As Worksheet 
Dim WS5 As Worksheet 
Dim WS6 As Worksheet 
Dim WS7 As Worksheet 
Set WS1 = Worksheets("Invoice") 
Set WS2 = Worksheets("Registru Facturi") 
Set WS3 = Worksheets("Customers") 
Set WS4 = Worksheets("chitanta") 
Set WS5 = Worksheets("chitanta diferenta") 
Set WS6 = Worksheets("valuta") 
Set WS7 = Worksheets("Baza de date Clienti") 

' Vezi care este urmatorul rand 
NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1 

'Valorile importante din Registru facturi F2 -data, F3-nyumar factura, B10 -client, B11-reg com, B12-CUI, B13 adresa, B14 telefon, B15 email, B16 cont bancar, C36 suma achitat, C37 rest plata, D32 valuta facturii 
WS2.Cells(NextRow, 1).Resize(1, 14).Value = Array(WS1.Range("F2"), WS1.Range("F3"), WS1.Range("B10"), Range("InvTot"), WS1.Range("B11"), WS1.Range("B12"), WS1.Range("B13"), WS1.Range("B14"), WS1.Range("B15"), WS1.Range("B16"), WS3.Range("C36"), WS3.Range("C37"), WS3.Range("D32"), WS3.Range("C38")) 

' Vezi care este urmatorul rand Baza de date 
NextRow = W7.Cells(Rows.Count, 1).End(xlUp).Row + 1 
'Valorile importante din Baza de date 
WS7.Cells(NextRow, 1).Resize(1, 14).Value = Array(WS7.Range("C5"), WS7.Range("C23"), WS7.Range("C24"), Range("InvTot"), WS7.Range("C25"), WS7.Range("C26"), WS7.Range("C28"), WS7.Range("C29"), WS7.Range("C30"), WS7.Range("C31"), WS7.Range("C32"), WS7.Range("C33"), WS7.Range("C6"), WS7.Range("C7"), WS7.Range("C8"), WS7.Range("C9"), WS7.Range("C10"), WS7.Range("C11"), WS7.Range("C12"), WS7.Range("C13"), WS7.Range("C14"), WS7.Range("C15"), WS7.Range("C16"), WS7.Range("C17"), WS7.Range("C18"), WS7.Range("C19")) 

End Sub 

Answer 1

在你第一次WS2.Cells(NextRow, 1).Resize(1, 14).Value你tryi ng放入14个数组元素，在你的第二个WS7.Cells(NextRow, 1).Resize(1, 14).Value中，你实际上正在尝试“挤压” 26个数组元素 - Excel中的尖叫求助！

另一个问题，NextRow = W7.Cells(Rows.Count, 1).End(xlUp).Row + 1我觉得W7应该WS7工作表，也它的安全也完全有资格的Rows.Count到WS7.Rows.Count。

改变你的最后2行：

' get last row from WS7 (not W7) 
NextRow = WS7.Cells(WS7.Rows.Count, 1).End(xlUp).Row + 1 

' resize to 26, as you want to put in 26 array elements 
WS7.Cells(NextRow, 1).Resize(1, 26).Value = Array(WS7.Range("C5"), WS7.Range("C23"), WS7.Range("C24"), Range("InvTot"), WS7.Range("C25"), WS7.Range("C26"), WS7.Range("C28"), WS7.Range("C29"), WS7.Range("C30"), WS7.Range("C31"), WS7.Range("C32"), WS7.Range("C33"), WS7.Range("C6"), WS7.Range("C7"), WS7.Range("C8"), WS7.Range("C9"), WS7.Range("C10"), WS7.Range("C11"), WS7.Range("C12"), WS7.Range("C13"), WS7.Range("C14"), WS7.Range("C15"), WS7.Range("C16"), WS7.Range("C17"), WS7.Range("C18"), WS7.Range("C19"))