简单的Excel VBA – 复制粘贴到另一个工作簿

我已经看过从一个Excel工作簿复制到另一个工作簿的几个代码。 出于某种原因，即使直接复制格式，我也会收到错误。 我的代码到目前为止只有12行，所以如果你能看看问题是什么，那对我来说真的很有帮助。 非常感谢你！

Sub UpdateActualWorkbook() Sheets("Input").Select Range("BE9").Select Selection.Copy Dim Display As String Display = Cells(1, 2).Value If Display = "Yes" Then Dim wb As Workbook Set wb = Workbooks.Open("Book1") wb.Sheets("Sheet1").Range("A1").PasteSpecial End If End Sub 

目前，我在wb.Sheets（“Sheet1”）。Range（“A1”）。PasteSpecial ^这一行上收到错误消息。 这不会改变，无论我是否做到.Paste或.Pastespecial。

如果有人能帮助我，我会很感激。 非常感谢！

Answer 1

如果：

 Set wb = Workbooks.Open("Book1") 

失败，那么wb将是Nothing和PasteSpecial行会引发错误。 如果你只是想添加一个新的工作簿，然后使用：

 Set wb = Workbooks.Add 

如果你想打开一个现有的工作簿，然后给出完整的文件规格。

Answer 2

我知道它晚了，但试试这个…

 Sub tstcpy() If Cells(1, 2).Value = “yes” Then Workbooks("Book1a.xlsm").Sheets("Sheet1").Cells(9, 2).Copy _ Destination:=Workbooks("Book2.xlsx").Sheets("Sheet1").Cells(1, 1) End If End Sub