Datei öffnen
12.08.2003 15:09:33
Matze
mit diesem Makro:
Sub Öffnen()
ChDir "\"
ChDrive "H:\"
ChDir "T\Bereich\TE\TEP3\fm-netz\"
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls,alle-Dateien (*.*),*.*")
If Dateiname = False Then Exit Sub
Workbooks.Open Filename:=Dateiname
End Sub
öffne ich immer einen bestimmten Ordner.
Leider kann ich dann immer nur eine Datei öffnen.
Was muss ich tun damit ich alle bzw. mehrere Dateien markieren und gleichzeitig öffnen kann?
Nochmals Danke
Gruß
Matze