Excel: Mehrere Datei ausführen, Speichern Sie jeden Dateiname als Variable

Question

Ich habe einen Code, der für eine Datei funktioniert. Es liest den Namen der .xlsx-Datei und speichert den Application.GetOpenFilename als Variable. Dies wird später im Code verwendet.

Ich möchte diesen Code auf mehrere Dateien in der Lage zu laufen ... Beispiel:

Benutzer wählt Dateien Namen "x", "y" und "z"

Sub Test() 
    Dim myvariable as variant, i As Integer 
    myvariable = Application.GetOpenFilename(FileFilter:="Excel files (*.xlsx), *.xlsx", MultiSelect:=True) 

    On Error GoTo ERRORHANDLER 
    For i = 1 To UBound(myvariable) 
    '''code to do stuff to my variable''' 
    Next i 

    Exit Sub 

ERRORHANDLER: 
    MsgBox "No files were selected, action cancelled." 

End Sub 

Dieser Code sollte jedes Mal laufen, macht das Zeug zu "x", dann "y", dann "z", aber ich bekomme immer die ERRORHANDLER Nachricht.

Update: Wenn ich MsgBox ("Hallo") in den "Code to do sachen" setzen, druckt es es für so viele Dateien wie ich auswählen. Wenn ich MsgBox (myvariable) schreibe, bekomme ich diesen Fehler, also nehme ich an, dass es weil Excel nicht weiß, wie jeder einzelne Dateiname als die Variable während jeder Schleife durch den Code gespeichert wird. -

Jede Hilfe würde geschätzt werden !!

Answer 1

Es ist immer gut Fehlerbeschreibung zu drucken, wenn Sie die genauen Fehler kennen. Sie können den Fehler herausfinden, indem Sie die folgende Zeile unter Ihre Fehlerbehandlung setzen.

Ich habe versucht, Ihren Code mit Mehrfachauswahl nach dem Setzen der einfachen msgbox und es scheint für mich arbeiten. Überprüfen Sie, ob Sie fehlen, um das Array zu referenzieren.

MsgBox (myvariable(i)) 

Answer 2

In der Schleife Erklärung sollte sein:

For i = 0 To UBound(myvariable)