Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 无法将粘贴数据从工作簿复制到其他工作簿_Excel_Vba_Copy_Cell_Paste - Fatal编程技术网

Excel 无法将粘贴数据从工作簿复制到其他工作簿

Excel 无法将粘贴数据从工作簿复制到其他工作簿,excel,vba,copy,cell,paste,Excel,Vba,Copy,Cell,Paste,我曾尝试使用以下命令将数据从“待复制数据”复制到“测试宏”,但没有成功。两个工作簿都打开了,但没有复制任何内容 我要复制这些单元格: 并将其粘贴到这些单元格: 使用或使用您的方法,但您必须以相同的方式使用:y.Sheets(“sheet1”).Range(“E5:F7”).Value=x.Sheets(“sheet1”).Range(“A1:B3”).ValueHi,感谢您的回复,我已经尝试了y.Sheets(“sheet1”).Range(“E5:F7”).Value=x.Sheets(“

我曾尝试使用以下命令将数据从“待复制数据”复制到“测试宏”,但没有成功。两个工作簿都打开了,但没有复制任何内容

我要复制这些单元格:

并将其粘贴到这些单元格:


使用或使用您的方法,但您必须以相同的方式使用:
y.Sheets(“sheet1”).Range(“E5:F7”).Value=x.Sheets(“sheet1”).Range(“A1:B3”).Value
Hi,感谢您的回复,我已经尝试了
y.Sheets(“sheet1”).Range(“E5:F7”).Value=x.Sheets(“sheet1”).Range”(“A1:B3”).Value
(这应该可以
x.Sheets(“Sheet1”).Range(“A1:B3”).Copy y y.Sheets(“Sheet1”).Range(“E5”)
@VitaliyPrushak不幸的是,我刚刚尝试过,但也不起作用…@5377Jay有什么错误吗?
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