excel - 在 vba 上将值粘贴到另一个工作簿工作表上时出现问题

我有以下代码，以便从工作簿复制工作表并将其粘贴到另一个名为“Control_de_precios”的工作簿的工作表 1 上:

Sub createSpreadSheet()

Set NewBook = Workbooks.Add
With NewBook
    .Title = "Control_precios_ddmmaaaa"
    .Subject = "Control_de_precios"
    .SaveAs Filename:="Control_precios_ddmmaaaa.xls"
End With

ThisWorkbook.Worksheets(1).Activate
Cells.Select
Selection.Copy
NewBook.Sheets(1).Activate
ActiveSheet(1).PasteSpecial xlPasteValues

End Sub

问题是我收到 438 错误，因为最后一条指令，并且我无法将值粘贴到我的新工作簿上。如果我将其更改为:

ActiveSheet(1).粘贴

我没有收到 438 错误，并且可以粘贴公式，但我想粘贴值。

谁能帮帮我吗？

最佳答案

在事件工作表后添加范围引用。当我这样做时，它就起作用了。 ActiveSheet.Range("A1").PasteSpecial xlPasteValues

关于excel - 在 vba 上将值粘贴到另一个工作簿工作表上时出现问题，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/45937731/