先打开CSV文件后从CSV文件粘贴时出现VBA错误1004

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

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

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

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错误。有人能帮忙吗？-）

1004是一个错误，当您试图更改受保护的工作表时会生成该错误

在代码中，您试图粘贴一个值，但由于工作表受到保护，因此无法粘贴该值

---

在粘贴值之前，请先尝试取消对其的保护，然后再对其进行保护。

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

此特定工作表未受保护，它是隐藏的，但在粘贴值之前，我取消隐藏此工作表，在脚本末尾，我再次将其隐藏。奇怪的是，如果我先打开我的Excel文件，然后打开CSV文件，它工作正常，但vica反之亦然。那么你可能会错过“工作表（“Hulpblad”）。激活？”虽然通常不需要激活工作表，但你的情况似乎有所不同。我刚刚尝试过这个，但不幸的是，这始终会产生相同的错误：（可能与活动工作表有关，因为粘贴方式是合法的。请尝试编写此>>debug.print activesheet.name。我曾经尝试过，在使用“粘贴”命令之前使用MsgBox执行过此操作。它会将正确的工作表作为活动工作表进行回复。但这确实很奇怪，也很容易出错。出于某种原因，Excel会阻止某些当我第一次打开CSV文件时：-/