![\"Der](\"..\/tl_files\/images\/pic_452_001.png\")
<\/a><\/p>\nBild 1: Der Verweis auf die Extensibility-Bibliothek für das Programmieren der VBA-Entwicklungsumgebung<\/p>\n
VBE: Das Hauptobjekt der Entwicklungsumgebung<\/h2>\n
In der soeben hinzugefügten Bibliothek finden Sie als Hauptelement die VBE<\/b>-Klasse. Diese Klasse brauchen sie nicht zu instanzieren, Sie können direkt über den Ausdruck VBE <\/b>darauf zugreifen. Das sehen Sie schon, wenn Sie im Direktbereich des VBA-Editors VBE <\/b>und einen Punkt eingeben – IntelliSense zeigt dann direkt die Elemente dieser Klasse an (siehe Bild 2).<\/p>\n
Bild 2: Zugriff auf die Eigenschaften und Methoden der VBE-Klasse<\/p>\n Damit können Sie dann auch direkt auf die Auflistung VBProjects <\/b>zugreifen.<\/p>\n Warum aber gibt es eine Auflistung über die Projekte Hat eine Access-Anwendung nicht immer nur ein VBA-Projekt, so wie in Bild 3 dargestellt<\/p>\n Bild 3: Das VBA-Projekt im Projekt-Explorer<\/p>\n Nein, das ist nicht der Fall: Sie können dort auch mehrere VBA-Projekte vorfinden. Das ist zum Beispiel der Fall, wenn Sie gerade ein Access-Add-In geladen haben. Dann sieht der Projekt-Explorer wie in Bild 4 aus.<\/p>\n Bild 4: Mehrere VBA-Projekte im Projekt-Explorer<\/p>\n Die einzelnen Projekte können Sie über die Auflistung VBProjects referenzieren, was etwa wie folgt aussieht:<\/p>\n Für das Beispiel mit dem zusätzlichen VBA-Projekt aus dem Add-In erhalten wir dann zum Beispiel die folgende Ausgabe:<\/p>\n Die Eigenschaftswerte finden Sie übrigens auch im Eigenschaftenfenster des Projekts wieder, das Sie über den Kontextmenü-Eintrag des Projekts öffnen können (siehe Bild 5).<\/p>\n Bild 5: Eigenschaftsfenster des Projekts<\/p>\n Wenn Sie das aktive VBA-Projekt referenzieren wollen, können Sie die Eigenschaft ActiveVBProject <\/b>der VBE<\/b>-Klasse verwenden. Wenn Sie die folgende Anweisung im Direktfenster des VBA-Editors ausgeben, erhalten Sie den Namen des VBE-Projekts, das gerade im Projekt-Explorer den Fokus hat:<\/p>\n Was geschieht, wenn Sie diese Anweisung in einer Prozedur unterbringen und diese dann aufrufen Dann wird der Name des Projekts ausgegeben, in dem sich die Prozedur befindet:<\/p>\n Soeben haben wir schon angesprochen, dass das VBA-Projekt eines Add-Ins angezeigt wird, wenn dieses von der Benutzeroberfläche aus gestartet wurde beziehungsweise aktiv ist. Dabei handelt es sich um Access-Add-Ins. Es gibt aber auch noch Add-Ins für den Visual Basic Editor. Diese verwalten Sie über den Add-In-Manager des VBA-Editors, den Sie über den Eintrag Add-Ins|Add-In-Manager… <\/b>öffnen.<\/p>\n Dieser zeigt eventuell vorhandene Add-Ins dann wie in Bild 6 in Listenform an. Sie können auch per VBA auf die vorhandenen Add-Ins zugreifen. Dazu verwenden Sie die Auflistung Addins<\/b>, mit der Sie die Elemente des Typs Addin <\/b>erhalten. Diese Auflistung können wir wie folgt per For Each<\/b>-Schleife durchlaufen:<\/p>\n Bild 6: Der Add-In-Manager des VBA-Editors<\/p>\n Viele interessante Informationen liefert die Addin<\/b>-Klasse jedoch nicht – wir erhalten noch nicht einmal den Namen, sondern nur die Beschreibung.?<\/p>\n Um auf Nummer sicher zu gehen, ob Sie mit dem richtigen VBProject<\/b>-Element arbeiten, können Sie einen kleinen Trick anwenden. Es gibt zwar keine Möglichkeit, die Elemente der VBProjects<\/b>-Auflistung über den Namen des Projekts anzusprechen, aber wir können diese ja durchlaufen und dabei prüfen, welchen Namen das aktuelle VBProject<\/b>-Element hat. Um das VB-Projekt mit einem bestimmten Namen zu ermitteln, können wir die folgende Funktion verwenden:<\/p>\n Wenn Sie etwa eine Eigenschaft wie FileName <\/b>des VBA-Projekts prjVBEBeispiele <\/b>ermitteln wollen, können Sie das mit der obigen Funktion wie folgt erledigen:<\/p>\n Auch die Verweise eines VBA-Projekts können Sie per VBA ausgeben lassen. Dazu nutzen Sie die References<\/b>-Auflistung beziehungsweise die Reference<\/b>-Klasse. Wichtig ist hierbei, in welchem Kontext Sie die References<\/b>-Auflistung verwenden. Sie können diese beispielsweise im Direktfenster direkt aufrufen:<\/p>\n Dann liefert das die Referenzen des aktuellen Projekts, wenn Sie nur ein Projekt geladen haben. Das aktuelle Projekt ist das Projekt, von dem das aktuelle Codefenster stammt. Wenn Sie mehr als ein Projekt geladen haben, sollten Sie dieses gezielt ansprechen. Wie das geht, haben Sie oben schon erfahren.<\/p>\n Wenn Sie wie in der Prozedur aus Listing 1 mit ActiveVBProject<\/b> auf das aktuelle Projekt zugreifen, müssen Sie sicherstellen, dass eines der Elemente des gewünschten Projekts im Projekt-Explorer markiert ist – oder auch das Projekt selbst.<\/p>\n Listing 1: Ausgabe der Verweise und ihrer Eigenschaften<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nVBProject: Das VBA-Projekt<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nPublic Sub <\/span>VBProjekteAusgeben()\r\n Dim <\/span>objVBProject As <\/span>VBProject\r\n Debug.Print<\/span> \"Anzahl VB-Projekte: \" & VBE.VBProjects.Count\r\n For Each objVBProject In VBE.VBProjects\r\n Debug.Print<\/span> objVBProject.Name\r\n Debug.Print<\/span> objVBProject.FileName\r\n Debug.Print<\/span> objVBProject.Type \r\n Next<\/span> objVBProject\r\nEnd Sub<\/span><\/pre>\nAnzahl VB-Projekte: 2\r\nprjVBEBeispiele\r\nC:\\...\\1904_EntwicklungsumgebungErweitern_Module.accdb\r\n 100 \r\nRA2010\r\nC:\\...\\ADDINS\\RIBBONADMIN2016.ACCDA\r\n 100<\/pre>\n
<\/a><\/p>\nAuf das aktive VBA-Projekt zugreifen<\/h2>\n
Debug.Print<\/span> VBE.ActiveVBProject.Name<\/pre>\nPublic Sub <\/span>AktuellesProjektAusgeben()\r\n Debug.Print<\/span> VBE.ActiveVBProject.Name\r\nEnd Sub<\/span><\/pre>\nAdd-Ins ausgeben<\/h2>\n
<\/a><\/p>\nPublic Sub <\/span>AddInsAusgeben()\r\n Dim <\/span>objAddIn As <\/span>AddIn\r\n Debug.Print<\/span> \"Anzahl Addins: \" & VBE.Addins.Count\r\n For Each objAddIn In VBE.Addins\r\n Debug.Print<\/span> objAddIn.Description\r\n Next<\/span> objAddIn\r\nEnd Sub<\/span><\/pre>\nVBA-Projekt per Name ermitteln<\/h2>\n
Public Function <\/span>GetVBProjectByName(strName As String<\/span>) As <\/span>VBProject\r\n Dim <\/span>objVBProject As <\/span>VBProject\r\n For Each objVBProject In VBE.VBProjects\r\n If <\/span>objVBProject.Name = strName Then<\/span>\r\n Set<\/span> GetVBProjectByName = objVBProject\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Next<\/span> objVBProject\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> GetVBProjectByName( \"prjVBEBeispiele\").FileName<\/pre>\nVerweise ausgeben<\/h2>\n
Debug.Print<\/span> References.Count<\/pre>\nPublic Sub <\/span>VerweiseAusgeben()\r\n Dim <\/span>objReference As <\/span>vbide.Reference\r\n Dim <\/span>objVBProject As <\/span>VBProject\r\n Set<\/span> objVBProject = VBE.ActiveVBProject\r\n For Each objReference In objVBProject.References\r\n Debug.Print<\/span> \"BuiltIn: \" & objReference.BuiltIn\r\n Debug.Print<\/span> \"Description: \" & objReference.Description\r\n Debug.Print<\/span> \"FullPath: \" & objReference.FullPath\r\n Debug.Print<\/span> \"Guid: \" & objReference.Guid\r\n Debug.Print<\/span> \"IsBroken: \" & objReference.IsBroken\r\n Debug.Print<\/span> \"Major: \" & objReference.Major\r\n Debug.Print<\/span> \"Minor: \" & objReference.Minor\r\n Debug.Print<\/span> \"Name: \" & objReference.Name\r\n Debug.Print<\/span> \"Type: \" & objReference.Type\r\n Next<\/span> objReference\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t