excel - 438 粘贴到事件工作簿时出错

Question

当尝试粘贴到我当前的工作簿(下面的最后一行代码)时，我收到 438 错误 - “对象不支持此属性或方法”。我知道当我引用两个不同的工作簿(即使用 workbook.open 设置两个工作簿)时代码可以工作，但是当我尝试使用 ThisWorkbook 引用我自己的工作簿时代码会失败。有任何想法吗？不幸的是，我在论坛的其他地方找不到解决方案。谢谢。

Dim Data As Workbook

FName = Application.GetOpenFilename
Set Data = Workbooks.Open(FName)

Data.ActiveSheet.Range("A5").copy
ThisWorkbook.Sheets("Cars").Range("B5").Paste

Answer 1

Range 没有方法Paste。它只有 PasteSpecial。
Worksheet 有 Paste(如果您想使用它)。

但你真正想要的是

Data.ActiveSheet.Range("A5").Copy ThisWorkbook.Sheets("Cars").Range("B5")