VBA: Verwenden eines Wörterbuchs außerhalb eines Benutzerformulars

Question

Ich bin neu in VBA, also könnte ich etwas verpasst haben.

Ich fülle ein Wörterbuch DicOption in einem Sub aus einem Modul. Dies ist die sub:

Public Sub ExchangeToDicOption() 

Static DicOption As Object 
Dim LR As Long 
Dim Rg As Range 
Dim ws As Worksheet 
Dim i As Long 
Set ws = ActiveWorkbook.Worksheets(2) 
Set Rg = ws.Columns(2) 

If Not DicOption Is Nothing Then 
    DicOption.RemoveAll 
End If 


    LR = Rg.Find(What:="*", Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, _ 
     SearchDirection:=xlPrevious, MatchCase:=False).Row 

    Set DicOption = CreateObject("Scripting.Dictionary") 

    If LR > 1 Then 
     For i = 2 To LR 
      DicOption.Add key:=Cells(i, 1).Value, Item:=Cells(i, 2).Value 
     Next i 
    End If 

End Sub 

Aber das Wörterbuch scheint sich zu leeren, wenn es seine process.I endet am die Unter ExchangeToDicOption in UserForm_Initialize aufrufen. Creation_step ist ein Schlüssel in DicOption.

Private Sub UserForm_Initialize() 
Dim control As control 
Dim opt As String 

Call ExchangeToDicOption 

opt = DicOption(Creation_step) 
With UBidStatus 
    Select Case opt 
     Case Is > 0 
      For Each control In UBidStatus.Controls 
       control.Enabled = False 
      Next control 
      With UBidStatus 
       .Image4.Enabled = True 
       .LProject.Enabled = True 
       .LClient.Enabled = True 
       .Label6.Enabled = True 
       .Label7.Enabled = True 
       .IProjectinfoNOK.Enabled = True 
       .IProjectinfoOK.Enabled = True 
       .LProjectinfo.Enabled = True 
       .CBProjectinfo.Enabled = True 
       .IProjectinfoNOK.Visible = True 
       .IProjectinfoOK.Visible = False 
      End With 
ect.... 

Ich habe auch versucht Public DicOption as Object als globalen Variable zu verwenden (vor allem meiner subs in Fenster-Modul bearbeiten), aber es hat nicht funktioniert. Vielen Dank für Ihre Hilfe !!

Answer 1

Public Sub ExchangeToDicOption() 

Static DicOption As Object 

Das DicOption Objektvariable ist in lokalen Bereich - es existiert nur immer innerhalb des ExchangeToDicOption Verfahrens.

Diese Zeile in UserForm_Initialize:

opt = DicOption(Creation_step) 

Sieht aus wie es eine Variable in einem anderen Umfang erklärt zuzugreifen versucht. Es kann nicht.

Geben Sie Option Explicit an der Oberseite Ihrer Module an; Diese Form hört auf zu kompilieren. Oder wenn es gibt einen anderen DicOption Variable in Modul-Rahmen (auf der Oberseite des Moduls erklärt, über die Verfahren), dann die DicOption, die ExchangeToDicOption lokale Zeit sind versteckt es (VBA löst Anrufe DicOption auf die lokale Erklärung, nicht die Modulebene). Entfernen Sie die Static DicOption As Object Deklaration.

Da Sie über zwei Prozeduren verfügen, die auf dasselbe Objekt zugreifen müssen, müssen Sie dieses Objekt auf Modulebene deklarieren.

Option Explicit 
Private DicOption As Object 

Private Sub UserForm_Initialize() 
    Set DicOption = CreateObject("Scripting.Dictionary") 
End Sub 

Private Sub UserForm_Terminate() 
    Set DicOption = Nothing 
End Sub 

Public Sub ExchangeToDicOption() 
    DicOption.RemoveAll 
    LR = Rg.Find(What:="*", Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, _ 
     SearchDirection:=xlPrevious, MatchCase:=False).Row 

    If LR > 1 Then 
     For i = 2 To LR 
      DicOption.Add key:=Cells(i, 1).Value, Item:=Cells(i, 2).Value 
     Next i 
    End If 
End Sub 

nun nicht sicher, warum Sie zu einer Bibliothek späte Bindung, die seit 1998 auf jedem Windows-Box Standard installiert ist ... aber das ist ein anderes Thema.

Indem Sie die Instanz in UserForm_Initialize initialisieren und sie in UserForm_Terminate löschen, stellen Sie sicher, dass für die gesamte Lebensdauer der Objektinstanz UserForm ein Objektverweis ungleich null vorhanden ist.