Öffnen mit Multiauswahl schlägt fehl
13.08.2003 11:46:15
Matze
leider konnte mein Problem von Gestern nicht ganz behoben werden.
Es kommen jetzt zwar keine Fehlermeldungen mehr. Leider aber auch keine Dateien.
D.h. es werden keine Dateien geöffnet.
Hier nochmals der verbesserte Code:
Sub Öffnen()
Dim dateiname As Variant, i As Byte
ChDir "\"
ChDrive "H:\"
ChDir "T\Bereich\TE\TEP3\fm-netz\"
dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls,alle-Dateien (*.*),*.*", , , , True)
If IsArray(dateiname) Then
For i = 1 To UBound(dateiname)
Workbooks.Open Filename:=dateiname(i)
Next i
Else
'Abgebrochen gedrückt
End If
End Sub
Kann mir bitte jemand helfen?
Vielen Dank vorab
Matze
Anzeige