통합 문서를 열면 Excel이 충돌 함

Question

파일을 열 때마다 Excel 2007 통합 문서 파일이 계속 충돌하는 이유를 알 수 없습니다.

나는이 이벤트 처리기를 사용하여 문제를 일으키는 것이 확실합니다.

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 = 배열 ​​("Curr1, ENT1", "Curr2, Ent2를", "Curr3, Ent3")는 파일 문제없이 열 수 있습니다.

런타임 오류가 발생하지 않기 때문에 "Microsoft Excel이 작동을 멈췄다"라는 메시지가 나타나고 Excel이 종료됩니다.

배열 변수 선언을 놓치거나 위반 한 것이 있습니까?

Answer 1

: ... 당신은 배열을 사용하고자하지 않는 한)

을,

Public CurrEntities As Variant 

모든 것을 확인해야한다 :

로 교체

위의 선언과 사용법에는 아무런 문제가 없습니다. 다른 파일을 만들고 테스트에 필요한 변수 만 사용하려고 할 때 문제를 발견하고 수정했습니다. 문제는 다른 변수가 잘못 선언 된 것입니다.

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

위 코드는 코드에서 제거했으며 위 코드는 완벽하게 작동했습니다.

Answer 2

Public CurrEntities() As Variant 

의미 : 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 

건배,
마치에이