Question

我正在尝试使用ActiveSheet.CustomProperties临时存储每个工作表的宏设置。似乎不可能将具有相同名称的项目两次添加到此集合中。为什么呢？

由于每个项目都由索引号标识（您通过指定其索引号来读取属性：ActiveSheet.CustomProperties.Item(1).Name），因此没有明显的理由阻止添加具有您想要的相同名称的项目

我的代码很简单：

ActiveSheet.CustomProperties.Add "foobar", 1

它第一次工作，但第二次出现以下错误：

错误n°9：下标超出范围

提前致谢。

Answer 1

是的，您无法再添加两次。您可以使用此代码

Sub sample()
    On Error Resume Next
    ActiveSheet.CustomProperties(1).Delete
    On Error GoTo 0
    ActiveSheet.CustomProperties.Add "foobar", 1
End Sub

无法将相同的项目两次添加到CustomProperties？

1 个答案: