Excel Сбой при открытии книги

Question

Я не могу понять, почему мой файл рабочей книги excel продолжает разбиваться каждый раз, когда я открываю файл.

У меня есть этот обработчик событий, который, я уверен, вызывает проблему.

Option Explicit 

Private Sub Workbook_Open() 
    On Error Resume Next 
    CurrEntities = Array("Curr1,Ent1", "Curr2,Ent2", "Curr3,Ent3") 
End Sub 

CurrEntities объявляется открытым в отдельном модуле.

Public CurrEntities() As Variant 

Когда я пытаюсь закомментируйте строку - CurrEntities = Array ("Curr1, Ent1", "Curr2, ent2", "Curr3, Ent3"), файл может быть открыт без проблем.

Так странно, что он не дает никакой ошибки во время выполнения, он просто выдает сообщение «Microsoft Excel перестает работать», а затем Excel закрывается.

Есть ли что-то, что я пропустил или нарушил объявление переменной массива?

Answer 1

Вышеприведенная декларация и использование не имеют проблем. Я обнаружил и исправил проблему, когда пытался создать другой файл и использовал только необходимую переменную для тестирования. Проблема была вызвана другой переменной, которая объявлена ​​неверно:

Public CoCodes("00123", "00456", "00789") As String 

Я удалил эту строку из своего кода, и приведенный выше код работал отлично.

Answer 2

Public CurrEntities() As Variant 

означает: объявить массив вариантов.

Заменить:

Public CurrEntities As Variant 

и все должно быть в порядке;)

Если ... вы не хотите использовать массив:

Public CurrEntities() As Variant 

Sub Test() 
Dim i As Integer, j As Integer 
Dim curent As Variant 

CurrEntities = Array(Array("a", "b"), Array("c", "d")) 

For i = LBound(CurrEntities()) To UBound(CurrEntities) 
    curent = CurrEntities(i) 
    Debug.Print "---=== " & i & " ===---" 
    For j = LBound(curent) To UBound(curent) 
     Debug.Print curent(j) 
    Next 
Next 

End Sub 

Приветствия,
Maciej