Question

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

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

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

Answer 1

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

Answer 2

写

Selection.PasteSpecial xlPasteValues

的实例

ActiveSheet(1).PasteSpecial xlPasteValues

在vba上粘贴另一个工作簿表上的值的问题

2 个答案: