arrFileName
23.05.2006 14:27:03
Ulf
Ich brauche mal Hilfe
Option Explicit
Sub öffnen()
Dim arrFileName As Variant
arrFileName = Application.GetOpenFilename( _
"Exceldateien (*.xls), *.xls, Alle Dateien (*.*), *.*", 1, _
"Exceldateien auswählen...", MultiSelect:=False) ' Ausgewählte Dateien des Öffnen-Dialoges in Feld ablegen
MsgBox arrFileName
'Ich möchte jetzt nur den Pfad und extra nur den Workbooknamen
End Sub
im voraus vielen Dank
mfg Ulf