Обработка больших данных сбора VBA - процедура слишком большая ошибка

Question

Я получаю слишком большую ошибку при компиляции.

Не уверен, как изменить структуру следующего кода.

Помощь будет принята с благодарностью.Спасибо.

Dim SpamList As VBA.Collection
Set SpamList = New VBA.Collection
With SpamList
    .Add "abc@gmail.com"
    .Add "abc@aol.com"

    '...Very large list - about 5000 entries

    .Add "abc@yahoo.com"
End With

Dim z as long
For z = 1 To SpamList.Count
    If current email address is in SpamList Then
        msgbox "Spam mail!"
        Exit For
    End If
Next

Set SpamList = Nothing

Answer 1

Заменить With SpamList и т. Д. На это:

Dim FSO As Object
Dim fsList As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fsList = FSO.OpenTextFile("c:\spamlist.txt")
Do Until fsList.AtEndOfStream
    SpamList.Add fsList.readline
Loop
fsList.Close

А затем переместите все свои записи в текстовый файл, по одной записи в строке.