GetOpenFileName und Multiselect

Hi.
Einfach mal folgender Codeschnipsel:


Sub test()
Dim daTei
daTei = Application.GetOpenFilename(, , , , True)
Debug.Print (IsArray(daTei))
End Sub

Der funktioniert so weit einwandfrei und gibt True aus, sobald ich etwas auswähle.
Nur sobald ich eine bestimmte Arbeitsmappe lade (natürlich genau die, in der das rein soll), wird das Multiselect ignoriert. Ich kann zwar mehrere Dateien auswählen, genommen wird aber nur die erste, d.h. IsArray(Datei)=False.
Das Verhalten tritt übrigens auch auf, wenn der Code gar nicht in der betreffenden Arbeitsmappe steht. D.h. ich schreibe den Code in eine neue Mappe und es tut. Lade ich dann oben erwähnte Arbeitsmappe und Multiselect geht nicht mehr. Schließe ich sie dann wieder, dann geht es.
Ganz lustig ist auch, dass ich in einem AddIn einen Code habe, bei dem es trotzdem geht. Kopiere ich obigen Code in das Modul im AddIn, geht es nicht. Ebenso funktioniert der AddIn Code nicht in der o.g. Arbeitsmappe.
Soweit ich jetzt heruasgefunden habe, wird das durch eine bedingte Formatierung ausgelöst, entferne ich die, dann geht es... nur warum in aller Welt? Ich habe es hier auf zwei Rechner ausprobiert und es tritt bei beiden auf. Die Datei kann ich jetzt von hier aus nicht hochladen, das hole ich bei Bedarf heute abend nach.
Danke schon mal und Gruss, Jogy

Hallo
"..inwiefern soll das Application.GetOpenFileName noch andere Möglichkeiten bieten..."
Hab ich nicht gesagt, sondern welchen du nimmst.
Probier mal das aus

Option Explicit

Sub test()
    Dim fileArr As Variant
    Dim i As Long
    fileArr = Application.GetOpenFilename(Title:="Mehrfachauswahl", MultiSelect:=True)
    For i = 1 To UBound(fileArr)
        Debug.Print fileArr(i)
    Next i
End Sub

oder alternativ auch das,... auch wenns länger ist.

Sub A_Datei_wählen()
    Dim FileDlg As FileDialog
    Dim dname As String
    Dim Dati As Long
    Set FileDlg = Application.FileDialog(msoFileDialogFilePicker)
    With FileDlg
        .Title = "Wählen Sie eine Datei oder mehrere aus"
        'Environ(25) ermittelt den Aktuellen Userpfad
        'Alternativ kann hier auch die Variable vom vorherigen
        'Dialog eingesetzt werden
        '.InitialFileName = Suchpfad
        .InitialFileName = Environ(25) & "\Eigene Dateien\"
        .Filters.Clear
        .Filters.Add "Nur EXCEL Tabellen", "*.xls", 1
        'Andere Filterauswahlen sind möglich
        'Die Zahl gibt die Position in der Auswahlbox an
        '.Filters.Add "CSV Dateien", "*.csv", 2
        .FilterIndex = 1
        .ButtonName = "Dateien öffnen"
        'AllowMultiSelect = False dann kann nur eine Datei gewählt werden
        .AllowMultiSelect = True
        'Hier werden nur kleine Symbole angezeigt
        '.InitialView = msoFileDialogViewSmallIcons
        .InitialView = msoFileDialogViewLargeIcons
        .Show
        If .SelectedItems.count = 0 Then
            MsgBox "Sie haben keine Datei gewählt", vbCritical + vbOKOnly, "Dateifehler"
            Exit Sub
        Else
            For Dati = 1 To .SelectedItems.count
                dname = dname & vbCrLf & .SelectedItems(Dati)
            Next Dati
            MsgBox "Sie haben diese Dateien gewählt: " & vbCrLf & dname
            'Weitere Befehle mit den geöffneten Dateien
        End If
    End With
    Set FileDlg = Nothing
End Sub

Gruss Rainer

Forumthread: GetOpenFileName und Multiselect

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Umgang mit GetOpenFileName und Multiselect in Excel VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)