Не можете добавить один и тот же элемент дважды в CustomProperties?

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