在vba上將值粘貼到另一個工作簿工作表時出現問題

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