当我尝试在两个不同的工作簿之间工作时出现错误438。具体地说，我想从一个打印另一个的行数

Sub CopyRows()
    Dim SourceWorkbook As Workbook
    Dim DestinationWorkbook As Workbook
    Dim SourceSheet As Worksheet
    Dim DestinationSheet As Worksheet
    Dim i As Long
    
    ' 打开源工作簿
    Set SourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    Set SourceSheet = SourceWorkbook.Sheets("Sheet1")
    
    ' 打开目标工作簿
    Set DestinationWorkbook = Workbooks.Open("C:\Path\To\DestinationWorkbook.xlsx")
    Set DestinationSheet = DestinationWorkbook.Sheets("Sheet1")
    
    ' 复制行数
    For i = 1 To SourceSheet.Rows.Count
        DestinationSheet.Rows(i).Value = SourceSheet.Rows(i).Value
    Next i
    
    ' 保存并关闭工作簿
    SourceWorkbook.Close SaveChanges:=False
    DestinationWorkbook.Save
    DestinationWorkbook.Close SaveChanges:=False
End Sub