{"id":55000341,"date":"2022-12-01T00:00:00","date_gmt":"2023-03-02T16:58:25","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=341"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Dateien_und_Ordner_auswaehlen_per_FileDialog","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Dateien_und_Ordner_auswaehlen_per_FileDialog\/","title":{"rendered":"Dateien und Ordner auswählen per FileDialog"},"content":{"rendered":"

Wenn Du mit VBA programmierst, wirst Du immer wieder mit Dateien arbeiten. Eine der Hauptaufgaben dabei ist, zu öffnende Dateien auszuwählen, Verzeichnisse zu selektieren oder einen Namen für eine zu speichernde Datei festzulegen. Alles drei lässt sich mit verschiedenen Methoden erledigen, aber es gibt eine Klasse, die alles gleichzeitig anbietet – und zwar die FileDialog-Klasse der Office-Bibliothek. In diesem Artikel schauen wir uns an, wie Du Dateidialoge für die verschiedenen Anwendungszwecke öffnen und auswerten kannst.<\/b><\/p>\n

Beispielumgebung<\/h2>\n

Wie immer benötigen wir eine Office-Anwendung oder Entwicklungsumgebung, um mit den Objekten, Eigenschaften und Methoden der Klasse FileDialog<\/b> zu experimentieren. In diesem Fall wollen wir einmal ein Excel-Workbook nutzen, das wir logischerweise als .xlsm<\/b>-Datei speichern. Das Worksheet dieser Exceldatei nutzen wir zur Ausgabe der mit der FileDialog<\/b>-Klasse ermittelten Dateien und dort bringen wir auch die zum Aufruf notwendigen Schaltflächen unter.<\/p>\n

Die FileDialog-Klasse verfügbar machen<\/h2>\n

Um auf die FileDialog<\/b>-Klasse und ihre Methoden und Eigenschaften zugreifen zu können, benötigen wir entweder einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>oder wir referenzieren diese per Late Binding. Da wir die Vorzüge von IntelliSense zu schätzen wissen, nutzen wir hier die Bibliothek, die wir im VBA-Editor einbinden können.<\/p>\n

Von der Excel-Benutzeroberfläche wechseln wir dazu mit der Tastenkombination Alt + F11 <\/b>zum VBA-Editor. Hier wählen wir den Menüeintrag Extras|Verweise <\/b>aus. Im nun erscheinenden Verweise<\/b>-Dialog finden wir gegebenenfalls bereits den markierten Eintrag aus Bild 1 vor. Anderenfalls suchen Sie diesen in der alphabetisch sortieren Liste und fügen ihn durch Setzen eines Hakens in das entsprechende Kästchen hinzu.<\/p>\n

\"Verweis<\/p>\n

Bild 1: Verweis auf die Objektbibliothek Microsoft Office 16.0 Object Li-brary<\/span><\/b><\/p>\n

Einen Dateidialog anzeigen<\/h2>\n

Grundsätzlich zeigt man einen FileDialog <\/b>wie folgt an:<\/p>\n

Dim <\/span>objFiledialog As <\/span>Office.FileDialog\r\nSet<\/span> objFiledialog = _\r\n     Application.FileDialog(msoFileDialogFilePicker)\r\nobjFiledialog.Show<\/pre>\n
Wir benötigen also eine Objektvariable, die den Typ Office.FileDialog <\/b>aufweist und füllen diese mit einem Verweis auf die FileDialog<\/b>-Klasse unter Angabe des Typs, den wir benötigen – in diesem Fall msoFileDialogPicker<\/b>.<\/p>\n
Dann zeigen wir den Dialog mit der Methode Show <\/b>an. Das Ergebnis dieses einfachen Aufrufs finden wir in Bild 2.<\/p>\n
\"Ein<\/p>\n
Bild 2: Ein erster Dateidialog zur Auswahl einer Datei<\/span><\/b><\/p>\n
Auswahl im Dateidialog auswerten<\/h2>\n
Nun können wir  nach der Auswahl wie im oben angegebenen Beispiel mit dem Ergebnis noch nichts anfangen. Das erledigen wir, indem wir das Ergebnis des Aufrufs prüfen und dann die selektierten Daten auswerten. Die ersten beiden Zeilen bleiben gleich:<\/p>\n
Dim <\/span>objFiledialog As <\/span>Office.FileDialog\r\nSet<\/span> objFiledialog = _\r\n     Application.FileDialog(msoFileDialogFilePicker)<\/pre>\n
Danach rufen wir die Show<\/b>-Methode jedoch als Teil einer If…Then<\/b>-Bedingung auf und prüfen in dieser das Ergebnis.<\/p>\n
Dieses kann True <\/b>oder False <\/b>lauten. Es lautet True<\/b>, wenn der Benutzer die Eingabe mit der OK<\/b>-Schaltfläche abgeschlossen hat, und False<\/b>, wenn er die Abbrechen<\/b>-Schaltfläche wählt. Die OK<\/b>-Schaltfläche kann der Benutzer übrigens erst betätigen, wenn er eine Datei ausgewählt hat.<\/p>\n
Im ersten Fall, also wenn der Benutzer eine Datei ausgewählt und auf die OK<\/b>-Schaltfläche gedrückt hat, greifen wir mit objFileDialog.SelectedItems(1) <\/b>auf den ersten ausgewählten Eintrag zu und geben diesen im Direktbereich des VBA-Editors aus.<\/p>\n
Im zweiten Fall, also wenn der Benutzer die Abbrechen-Schaltfläche betätigt hat, zeigen wir den Text Keine Datei ausgewählt <\/b>an:<\/p>\n
If <\/span>objFiledialog.Show = True<\/span> Then<\/span>\r\n     Debug.Print<\/span> objFiledialog.SelectedItems(1)\r\nElse<\/span>\r\n     Debug.Print<\/span> \"Keine Datei ausgewählt\"\r\nEnd If<\/span><\/pre>\n
Verschiedene Dialogtypen<\/h2>\n
Wir können verschiedene Dialogtypen nutzen. Dazu gibst Du unterschiedliche Werte beim Zuweisen des FileDialog<\/b>-Objekts an. Diese lauten:<\/p>\n