Per VBA auf den Datei-Explorer zugreifen

[speedfreak1988]

Hi!

Weiß einer eine Möglichkeit, um über VBA auf eine Datei aus dem Datei-Explorer zugreifen zu können, z.B. um .jpg-Dateien auszuwählen und die im Programm zu verwenden? Sozusagen über einen "Durchsuchen..."-Button, der einen zum Explorer bringt und mit dem man dann den Dateipfad in eine TextBox in VBA befördert.

Greetings,
tom

 

[Sgt_H4rtman]

Hallo,

also auf den Explorer direkt kann man so wohl nicht zugreifen, zumindest ist mir nichts dergleichen bekannt. WAs Du aber machen könntest, wäre den Datei Öffnen Dialog von Excel, Word, etc. zu verwenden.

Dazu dient folgende Anweisung:

[COLOR="Navy"]Dim[/COLOR] fileName [COLOR="Navy"]As String[/COLOR]

fileName = Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])

[COLOR="Navy"]If[/COLOR] fileName <> "Falsch" [COLOR="Navy"]Then[/COLOR]
[COLOR="Green"]'.... weiter führender Code ....[/COLOR]

[COLOR="Navy"]End If[/COLOR]

Als Anmerkung:
Die Rückgabe des Dialoges ist der Pfad zur Datei. Wenn der Nutzer abbrechen drückt, wird "Falsch" oder "False", also lokalisiert zurückgegeben, eine der großen Schwächen von VBA.
Wenn Du MultiSelect aktivierst, wird die Rückgabe wahrscheinlich ein Array sein, genau weiß ich das allerdings nicht.


Also denn viel Spaß.