Question

我是Excel VBA的初学者，正在开发一个小工具。我们使用工具来衡量我们的NPS分数，因此我可以将所有评论下载为CSV文件。我创建了一个VBA，将所有这些注释粘贴到工作表中并将其转换为列并进行数学运算。

如果我先打开我的Excel文件，然后下载注释，手动复制注释并运行脚本，它工作正常。但是，如果我首先下载注释，然后打开我的Excel文件并运行脚本，则会抛出1004错误，类Worksheet的方法粘贴失败。

我在这里尝试了很多答案，但似乎都没有。这是脚本开头粘贴注释的部分：

Application.ScreenUpdating = False
Dim wb As Workbook
Set wb = ThisWorkbook

wb.Activate

Sheets("Hulpblad").Visible = -1
Sheets("Hulpblad").Paste Destination:=Sheets("Hulpblad").Range("A1")

Application.CutCopyMode = False

我还尝试录制宏并使用Excel生成的代码，但所有答案都会出现同样的错误。

接下来，对于脚本的某些用户而言，打开文件的顺序并不重要，它总是会抛出1004错误。有人可以帮忙： - ）

Answer 1

当您尝试更改受保护的工作表时，

1004是生成的错误。

在您的代码中，您尝试粘贴一个无法完成的值，因为工作表受到保护。

在粘贴值之前先尝试取消保护，然后重新保护它。

Answer 2

我认为你的陈述中没有复制方法。您正试图直接粘贴内容

从CSV文件粘贴的VBA错误1004首先打开CSV文件

2 个答案: