2016-06-10 10 views
0

Wenn ich wache auf die tmp Variable setzen und auf der Linie If Not tmp Then stoppe, erscheinen beide als wahr, d.e. tmp ist True und Not tmp ist True.Fehler in VBA in MSProject, wie überprüft werden kann, ob das Unterprojekt im Hauptprojekt geladen ist?

Dim subProj As Subproject 
For Each subProj In prj.Subprojects 
    Dim tmp As Boolean 
    tmp = subProj.IsLoaded 
    If Not tmp Then 
     ExportTaskToExcel subProj.SourceProject, StartDate, EndDate 
    End If 
Next 

Was soll ich tun, um zu überprüfen, ob das Unterprojekt im Masterprojekt nicht geladen (nicht expandiert) ist?

Look at image under this link which is showing that in the same time: True = not True

+0

Sie sollten alle relevanten Code in Ihre Frage zu einem Bild von ihm im Gegensatz zu geben, aber die Unterstützung Bilder können immer hilfreich sein –

+0

Vorgeschlagene Auflösung hat früher nicht funktioniert. Als ich nach dem Grund suchte, habe ich diesen Fehler gefunden. Es tut mir leid, aber Ihr Rat ist nicht genug. –

+0

Ihr Problem war mit einem booleschen Ergebnis, das wahr und wahr ist, weil 'IsBoolean' verwendet wurde. Kannst du einen Link zu dem Fehler posten? –

Antwort

0

Es gibt eine Chance, dass Sie tmp irgendwo erklärt haben, sonst, dass hier zu sehen von diesem Problem verursacht (das heißt es deklariert ist öffentlich in einem anderen Modul). Versuchen Sie den Namen zu ändern, um ihn zu isolieren, auch habe ich noch nie eine Variable in einer Schleife deklariert. Obwohl ich mir der Implikationen nicht sicher bin, würde ich es nicht empfehlen.

Dim subProj As Subproject 
Dim tmp10 As Boolean 
For Each subProj In prj.Subprojects 
    tmp10 = subProj.IsLoaded 
    If Not tmp10 Then 
     ExportTaskToExcel subProj.SourceProject, StartDate, EndDate 
    End If 
Next 

Sie es möglicherweise aus einem bestimmten Grund geschehen, aber man konnte die Variable ganz weglassen: -

Dim subProj As Subproject 
For Each subProj In prj.Subprojects 
    If Not subProj.IsLoaded Then 
     ExportTaskToExcel subProj.SourceProject, StartDate, EndDate 
    End If 
Next