无法将粘贴数据从工作簿复制到另一个

Question

我尝试使用以下方法将数据从“要复制的数据”复制到“测试宏”，但是没有用。这两个工作簿都可以打开，但是没有复制任何内容。

我要复制这些单元格：

并将其粘贴到以下单元格中：

。

Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Desktop\to be copied datat.xlsm")
Set y = Workbooks.Open("C:\Desktop\test macro.xlsm")

y.Sheets("sheet1").Range("E5").Value = x.Sheets("sheet1").Range("A1:B3")

x.Close