在 vba 上的另一个工作簿 sheet 上粘贴值时出现问题

Question

我有以下代码，以便从工作簿复制 sheet 并将其粘贴到另一个名为 "Control_de_precios" 的工作簿的 sheet 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).Paste

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

¿任何人都可以帮助我吗？

Answer 1

在活动表后添加范围引用。当我这样做时，它会起作用。 ActiveSheet.Range("A1").PasteSpecial xlPasteValues

Answer 2

写

Selection.PasteSpecial xlPasteValues

而不是

ActiveSheet(1).PasteSpecial xlPasteValues

在 vba 上的另一个工作簿 sheet 上粘贴值时出现问题

Problems pasting values on another workbook sheet on vba

excel

vba

copy

paste