<\/p>\n
Die VBE-Klasse ist die Schaltzentrale, wenn es darum geht, die Elemente des VBA-Editors und von VBA-Projekten per VBA zu programmieren. Die Klasse ist Teil einer eigenen Bibliothek namens Microsoft Visual Basic for Applications Extensibility 5.3 Object Library. Diese stellt alle Elemente, Methoden und Eigenschaften zur Verfügung, um die im VBA-Editor bearbeitbaren Elemente zu erstellen, zu bearbeiten oder zu löschen. Dieser Beitrag stellt die Eigenschaften und Auflistungen der VBE-Klasse vor und zeigt, wo Sie weitergehende Informationen zu den einzelnen Elementen finden.<\/b><\/p>\nVorbereitung<\/h2>\n
Um die Elemente der Klasse VBE<\/b> nutzen zu können, benötigen Sie einen Verweis auf die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 Object Library<\/b>, den Sie im Verweise<\/b>-Dialog des VBA-Editors hinzufügen können (Menüeintrag Extras|Verweise<\/b>).<\/p>\nDie VBE-Klasse<\/h2>\n
Um sich einen Überblick über die Elemente einer Klasse zu verschaffen, ist der Objektkatalog (zu öffnen mit F2<\/b>) immer eine gute Anlaufstelle. Hier wählen Sie oben den Eintrag VBIDE <\/b>und selektieren dann links unter Klassen den Eintrag VBE<\/b>. Die Elemente der Klasse erscheinen dann im rechten Bereich (siehe Bild 1). Im Einzelnen finden wir dort die folgenden Elemente vor:<\/p>\n
![\"Elemente](\"..\/fileadmin\/_temp_\/2022_01\/pic_1350_001.png\")
<\/p>\n
Bild 1: Elemente der VBE-Klasse im Objektkatalog<\/span><\/b><\/p>\n In der Auflistung haben wir bereits mehrere Elemente kennengelernt, die per Auflistung und auch jeweils als aktives Element ermittelt werden können. Dabei sind die VBComponent<\/b>-Elemente unter Access die Elemente, die Sie im Projektexplorer in den Bereichen Microsoft Access Klassenobjekte<\/b>, Module <\/b>und Klassenmodule <\/b>finden (siehe Bild 2).<\/p>\n Bild 2: Die verschiedenen VBComponent-Elemente<\/span><\/b><\/p>\n Window<\/b>-Elemente sind alle Fenster, die innerhalb des VBA-Editors angezeigt werden. Dabei handelt es sich nicht nur um die Fenster, die Code enthalten, sondern auch die ToolWindow<\/b>-Elemente, also die Fenster, die Sie links, rechts, oben oder unten verankern können. CodePane<\/b>-Elemente sind Container in Fenstern, die Code von VBComponent<\/b>-Elementen enthalten. Die Zusammenhänge werden wir in den folgenden Beispielen noch aufschlüsseln.<\/p>\n Mit der Windows<\/b>-Auflistung können wir alle Window<\/b>-Elemente des VBA-Editors durchlaufen. Das erledigen wir in der folgenden Prozedur:<\/p>\n <\/p>\n Dies erzeugt, wenn einige Codefenster geöffnet sind, die Ausgabe aus Bild 3. Uns interessiert nun, welche Bedeutung die Werte für die Eigenschaft Type<\/b> haben.<\/p>\n Bild 3: Ausgabe der Titel und Typen von Window-Elementen<\/span><\/b><\/p>\n Dazu ermitteln wir die Konstanten für diese Eigenschaft, was am schnellsten gelingt, wenn wir im Objektkatalog nach der Klasse VBIDE <\/b>filtern und dort nach Elementen mit dem Teilausdruck Type <\/b>suchen. Damit gelangen wir zur Auflistung vbext_WindowType<\/b>, welche die Werte aus Bild 4 offenbart.<\/p>\n Bild 4: Konstanten für die Eigenschaft Type von Window-Elementen<\/span><\/b><\/p>\n Damit können wir die Prozedur WindowsAuflisten <\/b>wie folgt verfeinern:<\/p>\n Damit erhalten wir nun das Ergebnis aus Bild 5. Die meisten Elemente haben den Typ CodeWindow<\/b>. Die Auflistung einiger der übrigen Elemente ist nachvollziehbar, aber beim Aufruf in unserer Testumgebung waren beispielsweise die Fenster mit den Titeln Überwachungsausdrücke <\/b>und Lokal <\/b>nicht zu sehen. Auch wenn wir diese mit der SetFocus<\/b>-Methode aktiviert haben, erschienen diese nicht. Erst das Einblenden mit dem Wert True <\/b>für die Visible<\/b>-Methode zeigte, dass die Fenster zwar geöffnet, aber nicht sichtbar waren. Diesen Befehl mit der Beschriftung des Fensters können Sie im Direktbereich absetzen:<\/p>\n Bild 5: Ausgabe der Window-Elemente mit Typ<\/span><\/b><\/p>\n Das referenzierte Window<\/b>-Element erscheint daraufhin im VBA-Fenster. Auch das Schließen mit der X-Schaltfläche rechts oben in diesem Fenster blendet dieses nur aus, es ist anschließend immer noch in der Windows<\/b>-Auflistung zu finden.<\/p>\n Die CodePanes<\/b>-Auflistung erlaubt den Zugriff auf alle CodePane<\/b>-Objekte des VBA-Editors. Dabei handelt es sich um Container in Window<\/b>-Elementen, die wiederum CodeModule<\/b>-Elemente enthalten. Wir listen diese mit der folgenden Prozedur auf und geben dabei den Titel des übergeordneten Window<\/b>-Elements aus, da das CodePane<\/b>-Objekt selbst keinen Namen oder Titel aufweist, anhand dessen wir diesen genauer spezifizieren könnten:<\/p>\n Die VBComponent<\/b>-Elemente sind unter Access typischerweise die Microsoft Access Klassenmodule<\/b>, Module <\/b>und Klassenmodule<\/b>, die Sie auch im Projektexplorer vorfinden.<\/p>\n Diese können Sie inklusive der Eigenschaft Type <\/b>wie folgt auflisten – wir haben diesen direkt in eine entsprechende Zeichenkette umgewandelt:<\/p>\n Das Ergebnis sieht für unser Beispiel wie folgt aus:<\/p>\n Einen direkten Zusammenhang im Objektmodell zwischen dem CodePane<\/b>-Element und dem VBComponent<\/b>-Element gibt es nicht. Beide haben jedoch die Eigenschaft CodeModule<\/b>, die den Zugriff auf den enthaltenen Code ermöglicht.<\/p>\n Um das VBProject<\/b>-Element und die VBProjects<\/b>-Auflistung kümmern wir uns im Detail in zwei Beiträgen. Unter dem Titel VBA-Projekt per VBA referenzieren <\/b>(www.access-im-unternehmen.de\/1337<\/b>) erfahren Sie, wie Sie VBA-Projekte referenzieren und im Beitrag Zugriff auf VBA-Projekte per VBProject <\/b>(www.access-im-unternehmen.de\/1351<\/b>), welche Elemente die VBProject<\/b>-Klasse bietet.<\/p>\n Enthaltene Beispieldateien:<\/p>\n VBAEditorProgrammieren.accdb<\/p>\n\n
Unterschied zwischen Window, CodePane und VBComponent<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2022_01\/pic_1350_002.png\")
<\/p>\nMit Window-Elementen arbeiten<\/h2>\n
Public Sub <\/span>WindowsAuflisten()\r\n Dim <\/span>objWindow As <\/span>Window\r\n For Each objWindow In VBE.Windows\r\n Debug.Print<\/span> objWindow.Caption, objWindow.Type\r\n Next<\/span> objWindow\r\nEnd Sub<\/span><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2022_01\/pic_1350_003.png\")
<\/p>\n![\"Konstanten](\"..\/fileadmin\/_temp_\/2022_01\/pic_1350_004.png\")
<\/p>\nPublic Sub <\/span>WindowsAuflisten()\r\n Dim <\/span>objWindow As <\/span>Window\r\n Dim <\/span>strWindowType As String<\/span>\r\n For Each objWindow In VBE.Windows\r\n Select Case objWindow.Type\r\n Case <\/span>0\r\n strWindowType = \"CodeWindow\"\r\n Case <\/span>1\r\n strWindowType = \"Designer\"\r\n Case <\/span>2\r\n strWindowType = \"Browser\"\r\n Case <\/span>3\r\n strWindowType = \"Watch\"\r\n Case <\/span>4\r\n strWindowType = \"Locals\"\r\n Case <\/span>5\r\n strWindowType = \"Immediate\"\r\n Case <\/span>6\r\n strWindowType = \"ProjectWindow\"\r\n Case <\/span>7\r\n strWindowType = \"PropertyWindow\"\r\n Case <\/span>8\r\n strWindowType = \"Find\"\r\n Case <\/span>9\r\n strWindowType = \"FindReplace\"\r\n Case <\/span>10\r\n strWindowType = \"Toolbox\"\r\n Case <\/span>11\r\n strWindowType = \"LinkedWindowFrame\"\r\n Case <\/span>12\r\n strWindowType = \"MainWindow\"\r\n Case <\/span>15\r\n strWindowType = \"ToolWindow\"\r\n End Select<\/span>\r\n Debug.Print<\/span> strWindowType, objWindow.Caption\r\n Next<\/span> objWindow\r\nEnd Sub<\/span><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2022_01\/pic_1350_005.png\")
<\/p>\nVBE.Windows(\"Lokal\").Visible = True<\/span><\/pre>\nMit CodePane-Elementen arbeiten<\/h2>\n
Public Sub <\/span>CodePanesAuflisten()\r\n Dim <\/span>objCodePane As <\/span>CodePane\r\n For Each objCodePane In VBE.CodePanes\r\n Debug.Print<\/span> objCodePane.Window.Caption\r\n Next<\/span> objCodePane\r\nEnd Sub<\/span><\/pre>\nMit VBComponent-Elementen arbeiten<\/h2>\n
Public Sub <\/span>VBComponentsAuflisten()\r\n Dim <\/span>objVBComponent As <\/span>VBComponent\r\n Dim <\/span>strComponentType As String<\/span>\r\n For Each objVBComponent In VBE.ActiveVBProject.VBComponents\r\n Select Case objVBComponent.Type\r\n Case <\/span>1\r\n strComponentType = \"StdModule\"\r\n Case <\/span>2\r\n strComponentType = \"ClassModule\"\r\n Case <\/span>100\r\n strComponentType = \"Document\"\r\n Case Else<\/span>\r\n strComponentType = \"Nicht ermittelt\"\r\n End Select<\/span>\r\n Debug.Print<\/span> objVBComponent.Name, strComponentType\r\n Next<\/span> objVBComponent\r\nEnd Sub<\/span><\/pre>\nmdlVBAProjektPerVBAReferenzieren StdModule\r\nmdlVBProject StdModule\r\nmdlVBE StdModule\r\nForm_frmBeispiele Document\r\nclsBeispiel ClassModule<\/pre>\n
Mit VBProject-Elementen arbeiten<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n