时间戳

首页 > 解决方案 > 复制到不同的工作簿

excel - 复制到不同的工作簿

问题描述

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

“运行时错误 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

任何建议将不胜感激。

标签： excelvba

解决方案

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

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

推荐阅读