VBA: Bedingte - Ist Nichts

Es ist ein If Zustand in einer VBA-Anwendung, wie unten gesehen:

If Not My_Object Is Nothing Then
My_Object.Compute

Wenn der code im debug-Modus ausgeführt, fand ich, dass die If Zustand zurückgibt gilt auch, wenn My_Object hat "Keine Variablen".

Könnte bitte jemand dies erklären? Ich will My_Object.Compute werden nur dann ausgeführt, wenn My_Object vorhanden ist.

InformationsquelleAutor der Frage StarDotStar | 2011-12-12

21

Basierend auf Ihren Kommentar zu Issun:

Danke für die Erklärung. In meinem Fall, wird Das Objekt deklariert und erstellt werden, bevor die If-Bedingung. So, Wie verwende ich die If-Bedingung überprüfen Sie für < Keine Variablen> ? In anderen Worten, ich will nicht ausführen, My_Object.Berechnen, wenn My_Object hat < Keine Variablen>

Müssen Sie prüfen, eine der Eigenschaften des Objekts. Ohne uns zu sagen, was das Objekt ist, wir können Ihnen helfen.

Ich habe den test mehrere gemeinsame Objekte und festgestellt, dass ein instanziiert Collection mit keine Elemente Hinzugefügt, zeigt <No Variables> im watch-Fenster. Wenn Ihr Objekt ist in der Tat eine Sammlung, Sie können überprüfen für die <No Variables> Bedingung mit den .Count Eigenschaft:
```
Sub TestObj()
Dim Obj As Object
    Set Obj = New Collection
    If Obj Is Nothing Then
        Debug.Print "Object not instantiated"
    Else
        If Obj.Count = 0 Then
            Debug.Print "<No Variables> (ie, no items added to the collection)"
        Else
            Debug.Print "Object instantiated and at least one item added"
        End If
    End If
End Sub
```
Es ist auch erwähnenswert, dass, wenn Sie erklären jedes Objekt As New dann die Is Nothing prüfen unbrauchbar. Der Grund dafür ist, dass, wenn Sie deklarieren ein Objekt As New dann wird es automatisch erstellt, wenn es ist zuerst genannt, auch wenn Sie das erste mal aufrufen, ist es zu sehen, wenn es vorhanden ist!
```
Dim MyObject As New Collection
If MyObject Is Nothing Then  ' <--- This check always returns False
```
Scheint dies nicht zu sein, die Ursache für Ihr problem. Da aber andere finden diese Frage durch eine Google-Suche, ich wollte es, weil es ist ein häufiger Anfänger-Fehler.

InformationsquelleAutor der Antwort mwolfe02
7

Nur weil Ihre Klasse object hat keine Variablen, bedeutet nicht, es ist nichts. Die Anmeldung und das Objekt und erstellen ein Objekt sind zwei verschiedene Dinge. Schauen und sehen, wenn Sie sind einstellen/erstellen des Objekts.

Nehmen Sie z.B. das dictionary-Objekt - einfach, weil es enthält keine Variablen bedeutet nicht, dass es nicht erstellt wurde.
```
Sub test()

Dim dict As Object
Set dict = CreateObject("scripting.dictionary")

If Not dict Is Nothing Then
    MsgBox "Dict is something!"  '<--- This shows
Else
    MsgBox "Dict is nothing!"
End If

End Sub
```
Allerdings, wenn Sie deklarieren ein Objekt aber nie schaffen, es ist nichts.
```
Sub test()

Dim temp As Object

If Not temp Is Nothing Then
    MsgBox "Temp is something!"
Else
    MsgBox "Temp is nothing!" '<---- This shows
End If

End Sub
```
InformationsquelleAutor der Antwort aevanko
0

In meinem Beispiel-code, ich war Einstellung my object zu nichts, und ich konnte nicht die "nicht" - Teil der if-Anweisung, um mit dem Objekt arbeiten. Ich habe versucht if My_Object is not nothing und auch if not My_Object is nothing. Es kann nur einen syntax-Sache habe ich nicht herausfinden können, aber ich hatte keine Zeit zu Durcheinander herum, also habe ich ein wenig Abhilfe wie diese:
```
if My_Object is Nothing Then
    'do nothing
Else
    'Do something
End if
```
InformationsquelleAutor der Antwort WannabeProger

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.