代码之家 › 专栏 › 技术社区 › Mauro

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

paste copy vba excel

Mauro · 技术社区 · 7 年前

我有以下代码,可以从工作簿中复制一张工作表,并将其粘贴到另一个名为“Control\u de\u 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

有人能帮我吗?

2 回复 | 直到 7 年前

Pavel_V 7 年前

在活动表后添加范围引用。当我这样做的时候,它是有效的。 ActiveSheet.Range("A1").PasteSpecial xlPasteValues

Yura 7 年前

写

Selection.PasteSpecial xlPasteValues

ActiveSheet(1).PasteSpecial xlPasteValues

推荐文章

Simofy · 选定文本上的JavaScript粘贴事件

6 年前

Mattia · QWebEngineView Qt 5.10.1中“输入”字段上的无粘贴上下文菜单

6 年前

Matt · Excel宏,用于复制某些单元格中的值并将其粘贴到下一个空单元格中

6 年前

jeremysprofile Subin George · 在Vim开关中使用鼠标中键插入(粘贴)、粘贴,然后退出

6 年前

kl-higgins · 在文本中使用上标并在R中粘贴(用于多个值的向量)

6 年前

Mark · PasteSpecial(格式和值)

7 年前

ACrazyChemist · 从excel剪贴板粘贴而不解释日期

7 年前

Jeremy K. · 用许多因变量进行估计,然后用Stargazer制表

7 年前

Adamlh77 · 宏将行复制并粘贴到另一个工作表,而不将其粘贴到页面下方的英里数

7 年前

Arghya Saha · 如何在默认设置后创建粘贴事件?

7 年前