Question

我对excel vba有一个非常奇怪的问题。我缩小了范围，使这段代码尽可能简单地表示问题。

   Sub Button1_Click()

   Button1_Click Macro
       Range("A1:B17").Select
       Selection.Copy
       Workbooks.Add
       ActiveSheet.Paste
       Application.CutCopyMode = False
   End Sub

在大多数计算机上，我没有问题，但是在公司中，我们有两台新笔记本电脑，它们在ActiveSheet.Paste行上显示以下错误消息。

Run time error '1004'
Paste method of Worksheet class failed

我已经在Windows 10和7以及不同的计算机上对此进行了测试。唯一引起问题的是Win10的两个新问题。

我看到了这个线程，还尝试了最后一个关于在代码中添加延迟的选项：

Run Time Error '1004': Paste Method Of worksheet Class Failed error

关于如何解决此问题和/或导致此问题的任何建议？

-拉斯莫斯-

Answer 1

请避免使用.Select。

在粘贴时，请明确确定目的地。否则，由于目标工作簿是在不久之前打开的，因此可能不确定。

Sub Button1_Click()

 ActiveSheet.Range("A1:B17").Copy
 Set newWB = Workbooks.Add
 newWB.Worksheets(1).Paste Destination:=newWB.Worksheets(1).Range("A1")
 Application.CutCopyMode = False

End Sub

运行时错误“ 1004”的工作表类的粘贴方法失败（仅在选定的计算机上）

1 个答案: