VBA ActiveWorkbook RefersToLocal - 1004 应用程序定义或对象定义错误

使用VBA编程时，我们经常需要引用活动工作簿中的数据或对象。其中一个常用的方法是使用ActiveWorkbook对象和RefersToLocal属性来引用工作簿中的范围。然而，有时候我们可能会遇到“1004 应用程序定义或对象定义错误”的错误提示。本文将讨论这个错误的原因，并提供解决方案的示例代码。

vba
Sub CopyRange()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 检查活动工作簿是否已选择
    If ActiveWorkbook Is Nothing Then
        MsgBox "请先选择活动工作簿。", vbExclamation
        Exit Sub
    End If
    
    ' 引用源范围
    Set sourceRange = ActiveWorkbook.Worksheets("Data").Range("Range1")
    
    ' 检查源范围是否存在
    If sourceRange Is Nothing Then
        MsgBox "源范围不存在。", vbExclamation
        Exit Sub
    End If
    
    ' 引用目标范围
    Set destinationRange = ActiveWorkbook.Worksheets("Sheet2").Range("A1")
    
    ' 复制源范围到目标范围
    sourceRange.Copy destinationRange
End Sub