从另一个工作簿excel vba粘贴数据，错误：工作表类的粘贴方法失败
我正试图将一组数据从一个工作簿复制到另一个工作簿，假设我要将数据从a册复制到B册。首先，我要去BookA册复制列表，然后去BookB册运行copydata宏下面（我想在回到BookB册的前一个工作表之前将数据粘贴到新工作表上。）
Sub copydata()
Dim lstviewpg As String
lstviewpg = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "newsheet"
Sheets("newsheet").Activate
ActiveSheet.Paste
Sheets(lstviewpg).Activate
End Sub
由于工作表类的粘贴方法失败，宏在第6行失败。有人知道怎么修好它吗？
ActiveSheet.Paste
共有1个答案
如果剪贴板上没有任何东西，即剪贴板为空，也会产生工作表类的粘贴方法失败错误。因此，要确认剪贴板不是空的，请在工作表上的任何单元格中单击右键，如果粘贴是灰色的，则表示剪贴板是空的。
-
我写了下面的代码，并不断地看到。我试图克服这个问题，但似乎没有任何效果。我正试图从一个工作簿复制整个工作表，并将其粘贴到另一个工作簿中：
-
我需要从一个工作簿复制棕褐色单元格并粘贴到另一个工作簿中。并且只需要在Excel中获取特定的单元格值。我实现了这一点，但只能粘贴到同一工作簿中的另一个工作表中。你能帮助我在粘贴数据到另一个工作簿上的一个特定的工作表，也应该粘贴的值在第二行，（即从第二行开始），因为第一行有标题在它。 源表标题： 项目阶段状态st Dt结束Dt预资源备注备注 Dest表标题： 现有代码：
-
标题或多或少概括了它。我试图使一个简单的宏打开，然后复制/粘贴数据从txt文件到一个新打开的工作簿。我有什么工作，但它粘贴到个人工作簿，在打开一个新的“book1”之前。我可以让它粘贴到Book1，但我只想让它粘贴到打开的第一个工作簿中，以防以后我想在同一个文件中添加更多数据。我对此相当陌生，所以任何帮助都将不胜感激！！
-
我有一段巧妙的代码，它根据指定单元格中的特定文本输入隐藏/隐藏表。在Book1中的Sheet1中（比方说），如果我改变单元格A1中的文本（比方说文本是苹果、橘子等），我会在同一本书中的sheet2上得到某些表格（让我们称之为答题卡）。 现在，在另一本书中，我有一个表，其中包含所有可能的文本值(Apple，oranges，等等）。我想写一个代码，首先通过这个表，使值在book1.sheet1（“sh
-
这应该真的很简单，但我一直在拖网论坛和答案数小时来寻找答案，但没有运气，所以我（不情愿地）创造了一个我自己的问题。 我要做的只是简单地创建一个新工作簿，并将另一个工作簿的范围粘贴到该工作簿中。听起来很简单..？ 我原来的工作簿，让我们叫Book1。我试图创建一个新的工作簿，Book2，我将把单元格A1:B10的值复制到其中。 以下是我代码的一个版本（从第一册打开开始）： 这会给出一个“Range类
-
我有第一部分，但在挣扎第二部分：