excel - 对象 'Add' 的方法 'Sheets' 失败，无法重命名新工作表

Question

在我的 VBA 项目中，我经常在工作簿中制作一个临时工作表，该工作表在宏退出之前被删除。工作表添加如下

temp = "Temp"
ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = temp

这已经有一段时间了。但是，现在代码返回错误

Run-time error '1004': Method 'Add' of object 'Sheets' failed

添加了一个工作表，但未命名为“Temp”(而是命名为 Sheetn)。

我可以成功添加新工作表，但收到以下错误消息。我无法更改新添加的工作表的名称。

"We couldn't move this sheet"

工作簿未 protected ，并且没有其他名为 Temp 的工作表出现在工作簿中。正因为如此，我觉得我遇到了一堵看不见的墙，它阻止用户添加大量的工作表，即使这些工作表被删除了。

这让我很困惑，有什么解释和/或解决方法吗？

Answer 1

从评论线程中注意到您已经通过保存、关闭和重新打开解决了它，@SandPiper 在一段时间后再次出现了同样的问题，并且您的 OP 要求解决方法，我建议的显而易见的方法是停止创建然后删除临时表，而是简单地将其创建为工作簿的永久部分，然后将其隐藏，并在需要时简单地使用它，然后(以编程方式)清除它。