✔ [Excel VBA] mehrere Workbooks öffnen

[Jacka]

Hallo!

Ich habe folgendes gelernt:

Private Sub CommandButton1_Click()
ChDir "\"
ChDrive "c:\"
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
...
End Sub

Hat zum Ergebnis, dass wenn man den Command Button klickt
sich das Fenster "Öffnen" öffnet.
Leider kann ich dann immer nur eine Datei alleine auswählen.
Ist es möglich hier gleich mehrere Excel-Files auszuwählen?
Wenn man 20 Files laden muss wird das eine ganz schöne klickerei!

Vielen Dank!

Grüße,
Jacka

 

[MeinerEiner_80]

hi, das funktioniert so:

dateiname = Application.GetOpenFilename(filefilter:="Excel Files,*.xls", _
                                        MultiSelect:=True)

 

[Orakel]

Hi,

wenn ich mir die Hilfe von Excel 2002 anschaue, stelle ich bei mir fest, dass die GetOpenFilename Methode den Parameter Multiselect kennt. Damit legst Du fest, ob auch mehrere Dateien geöffnet werden können.

Gruß
Das Orakel

Edit: Ich glaub ich muss schneller tippseln lernen

 

[Jacka]

Hi!

Die Hilfe hat mir nichts ausgespuckt..

Ich danke euch!!

Grüße,
Jacka