复制到其他工作簿

Question

我试图将单元格从活动工作簿复制到同一文件夹中的现有工作簿。我使用了所有人都说可以使用的代码，但是我得到了

“运行时错误9下标超出范围。

我确定我已经正确引用了我的工作簿路径。我已将此代码放入活动工作簿的模块1中。

Sub foo()

Dim x As Workbook

Dim y As Workbook


Set x = Workbooks.Open("C:\Users\mhenry\Desktop\Capital Simulation\Layout.xlsm")

Set y = Workbooks.Open("C:\Users\mhenry\Desktop\Capital Simulation\ppp.xlsx")

x.Worksheets("Capital Simulation").Range("B4").Copy



x.Sheets("Sheet1").Range("A1").PasteSpecial

x.Close

End Sub

任何建议将不胜感激。

Answer 1

您可以分配值，而不是复制和粘贴。

x.Sheets("Sheet1").Range("A1").value = x.Worksheets("Capital Simulation").Range("B4").value