GetOpenFilename

Question

Weiß jemand, wie bei der GetOpenFilename-Methode der "true"-Parameter gesetzt werden muß, damit mehrere Dateien ausgewählt werden können? Bei mir kommt immer LZF 13.

Answer 1

Hallo Johann,

wenn du mehrere Dateien auswählst, werden diese in ein Array geschrieben und du musst dann dieses Array durchlaufen.

Probiere es mal so:

Sub GetImportFileName()

     Dim Finfo As String

     Dim Title As String

     Dim varFileName As Variant

     Dim i As Long

     Finfo = "Textdateien (*.txt),*.txt," & _

             "Lotus-Dateien (*.prn),*.prn," & _

             "Kommagetrennte Dateien (*.csv),*.csv," & _

             "ASCII-Dateien (*.asc), *.asc," & _

             "word-files (*.docx), *.docx," & _

             "Excel-Makro-Dinger (*.xlsm),*.xlsm," & _

             "All Files (*.*),*.*"

     varFileName = Application.GetOpenFilename(Finfo, _

         6, "Eine zu importierende Datei auswählen", , MultiSelect:=True)

     If VarType(varFileName) = vbBoolean Then

         MsgBox "Es wurde keine Datei ausgewählt."

     Else

        For i = LBound(varFileName) To UBound(varFileName)

            MsgBox "Ihre Auswahl:" & varFileName(i), 3, "Ihre Datei"

            Workbooks.Open varFileName(i)

        Next

     End If

 End Sub

Claus

Answer 2

Hallo Claus,

vielen, vielen Dank. Funktioniert.

Schönen Gruß

Johann

Answer 3

Hallo Claus, vielen Dank für deine Antwort, hier wäre der Code.

Sub GetImportFileName()

    Dim Finfo As String

    Dim FilterIndex As Integer

    Dim Title As String

    Dim FileName As Variant

    Dim MultiSelect As Variant

    Finfo = "Textdateien (*.txt),*.txt," & _

            "Lotus-Dateien (*.prn),*.prn," & _

            "Kommagetrennte Dateien (*.csv),*.csv," & _

            "ASCII-Dateien (*.asc), *.asc," & _

            "word-files (*.docx), *.docx," & _

            "Excel-Makro-Dinger (*.xlsm),*.xlsm," & _

            "All Files (*.*),*.*"

    'FilterIndex = 6

    'Title = "Eine zu importierende Datei auswählen"

    'MultiSelect = True

    FileName = Application.GetOpenFilename(Finfo, _

        6, "Eine zu importierende Datei auswählen", "", MultiSelect:=True)  'true funktioniert nicht trotz Boolean o. Variant

    If FileName = False Then

        MsgBox "Es wurde keine Datei ausgewählt."

    Else: MsgBox "Ihre Auswahl:" & FileName, 3, "Ihre Datei"

        Workbooks.Open FileName

    End If

    'If MsgBox = 2 Or 7 Then

    'If FileName = False Then

    '    Exit Sub

    'Else: Workbooks.Open FileName   'bei true ist nur Platz für eine Datei!

    'End If

End Sub

Schönen Gruß

Johann

Answer 4

Hi Johann,

mit MultiSelect:=True

Falls das auch nicht funktioniert, poste hier mal deinen Code.

Claus