尝试引用不同工作簿中的工作表并将其分配给变量时出现运行时错误1004

Question

我正在尝试使用两个不同工作簿中的两张表。由于某种原因，此代码返回一个错误

Sub look()
Dim Source, Destination As Worksheet
Dim Range1_in_Source As Range
Dim Range1_in_Destination As Range

path = "" :file = "file name"

Set Source = Workbooks(2).Worksheets(1)
Set Destination= ThisWorkbook.Worksheets(1)

当我使用watch Destination检查Source时，这个赋值返回一个为空的对象，但是现在看起来工作得很好！

Set Range1_in_Source= Source.Range(Cells(2, 1), Cells(2, 1).End(xlDown)) 
Set Range1_in_Destination = Destination.Range(Cells(5, 1), Cells(5, 1).End(xlDown))

出于某种原因，最后一行给出了运行时1004错误（对象'_global'的方法'range'失败），单元格引用的是源表，而不是目标表。

Answer 1

>

在每个模块的开头使用选项explicit。

避免使用工作表(1)，尤其是工作簿(2)。它们有自己的名称，甚至更好的代码名称。

xldown基本上被避免，而支持xlup。

为了更好的可读性，对变量使用更短的有意义的名称。

发生错误是因为您没有限定单元格（例如src.cells、dest.cells...)，所以代码试图使用源表中的单元格(对象，而不是地址）在目标表

代码

Option Explicit

Sub look()
    
    Dim src As Worksheet: Set src = Workbooks(2).Worksheets(1)
    Dim dest As Worksheet: Set dest = ThisWorkbook.Worksheets(1)
    
    Dim rngSrc As Range
    Set rngSrc = src.Range(src.Cells(2, 1), src.Cells(2, 1).End(xlDown))
    Dim rngDest As Range
    Set rngDest = dest.Range(dest.Cells(5, 1), dest.Cells(5, 1).End(xlDown))

    Dim Path As String: Path = ""
    Dim file As String: file = "file name"

End Sub