Excel VBA 运行时错误“424”需要对象

Question

我遇到了一个问题，需要运行时错误“424”对象。 这是我从上一篇文章中获得的解决方案，经过一段时间的故障排除后，我仍然无法解决。感谢@rawrplus 的解决方案，我仍在学习 Excel vba。

链接： Excel VBA Cutting rows from workbook1 and paste it in workbook2

Option Explicit
Private Sub table_to_table()
'Declaration
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set wb1 = Workbooks.Open("C:\Documents and Settings\lye.yan.nian\My  Documents\testingmacro2.xlsx")
Set wb2 = Workbooks.Open("C:\Documents and Settings\lye.yan.nian\My Documents\testingmacro3.xlsx")
Set ws1 = wb1.Sheets("Test2")
Set ws2 = wb2.Sheets("Test1")

Dim res_lr As Long
Dim lr2 As Long
lr2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row


MsgBox lr2   /* Testing is done as i can get this value */

Dim r As Range, ary
Set r = ws1.Application.Range(Cells(1, 2), Cells(1, 6)) /* Tested working as i can get this value too*/
ary = Application.Transpose(Application.Transpose(r.Value))
MsgBox Join(ary, " ")


Dim copyrange As Range
Dim i As Long /* This is declared */
For i = 2 To lr2

MsgBox i /* i did some testing on this and removed the below code */
Set copyrange = ws2.Application.Range(Cells(i, 2), Cells(i, 6)).Copy /* This is the part where i got the error i can't figure out why*/ 

res_lr = ws2.Cells(Rows.Count, 8).End(xlUp).Row
ws2.Range(Cells(res_lr, 8), Cells(res_lr, 12)).PasteSpecial xlPasteValues

Set copyrange = ws1.Application.Range(Cells(i, 2), Cells(i, 6)).Copy

ws2.Range(Cells(res_lr + 1, 8), Cells(res_lr + 1, 12)).PasteSpecial xlPasteValues

Next i

wb1.Close

End Sub

Answer 1

Set copyrange = ws2.Application.Range(Cells(i, 2), Cells(i, 6)).Copy

Range.Copy 不返回您可以分配给Range 对象变量的Range 对象引用。它是一个成员方法，它获取范围的内容，并将其复制到剪贴板中。

您的copyrange 不是.Copy 操作的结果，它是ws2.Application.Range(...) 调用的结果...格式错误。

这个可能修复它¹：

Set copyrange = ws2.Application.Range(Cells(i, 2), Cells(i, 6))
copyrange.Copy

....这就是你可能打算做的事情：

Set copyrange = ws2.Range(ws2.Cells(i, 2), ws2.Cells(i, 6))
copyrange.Copy

---

¹ 这是糟糕的代码，因为您有一个明确的 Worksheet 引用 (ws2)，然后从那里您转到 Application 获取当前处于活动状态的任何工作表，然后继续工作那 - 所以你认为你正在处理ws2，而实际上你正在处理ActiveSheet目前碰巧是什么。与不合格的Cells 调用相同，隐式引用Application.ActiveSheet.Cells。

Answer 2

尝试在引发错误的行添加单词set。 示例：set x = 'something