VBA: Dateiöffnen-Dialog?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim strPfad As String strPfad = Application.GetOpenFilename("Excel Files (*.XLSM), *.XLSM") 'prüfe ob abbrechen gedrückt If strPfad <> CStr(False) Then 'Dein Code '... End If End Sub

Hallo André,
ich habe mir zu diesem Zweck eine universelle UDF (VBA Function) erstellt :

VBA-Code:

Public Function strDateiAuswahl(Optional strVerzeichnis = "", _

                                Optional strDateityp = "*.*", _

                                Optional strTitel = "Alle Dateien", _

                                Optional strOldFiles = "", _

                                Optional strTrennzeichen = ";") As String

    '26.01.2009, NoNet - www.excelei (z.Zt. down !)

    'Aufruf z.B. :

    'Msgbox strDateiAuswahl("C:\temp", "*.xls; *.xlt", "Alle XL-Dateien" ,"Alte Auswahl", vblf)

    Dim strDateien As String, strDateiname As Variant, strAktDir As String

    Dim intZ As Integer

    strAktDir = CurDir 'Aktuelles Verzeichnis speichern

    On Error Resume Next

    If strVerzeichnis <> "" Then ChDir strVerzeichnis 'Verzeichnis wechseln

    On Error GoTo 0

    strDateiname = Application.GetOpenFilename( _

          FileFilter:=strTitel & " (" & strDateityp & "), " & strDateityp, _

          Title:="Bitte Dateien auswählen", MultiSelect:=True)

    If TypeName(strDateiname) = "Boolean" Then

        'MsgBox "Keine Datei ausgewählt !"

        ChDir strAktDir 'Verzeichnis auf ursprünglichen Pfad wechseln

        strDateiAuswahl = strOldFiles

    Else

        'Dateinamen zusammensetzen :

        For intZ = LBound(strDateiname) To UBound(strDateiname)

            strDateien = strDateien & strDateiname(intZ) & IIf(intZ < UBound(strDateiname), strTrennzeichen, "")

        Next

        strDateiAuswahl = strDateien

    End If

End Function

Aufruf-Beispiel der FUNCTION, um alle XLSM-Dateien auszuwählen  :

MsgBox strDateiAuswahl("C:\Dein\Ordner", "*.xlsm", "Excel 2007 mit Makros (XLSM)", "", vbLf)

Mit der Option Multiselect:=TRUE könnnen mehrere Dateien ausgewählt werden, falls nur EINE Datei ausgewählt werden soll, dann bitte auf FALSE ändern !

Viel Spass mit der UDF, Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Dateiöffnen-Dialog?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread