Ich gehe mal davon aus, dass der User du selbst bist. ;o)
Option Explicit
Sub Test()
Dim vntFilename As Variant
Call ChDrive(Environ$("SystemDrive"))
Call ChDir(Environ$("UserProfile") & "\Documents")
vntFilename = Application.GetOpenFilename("Excel Arbeitsmappe (*.xlsx),*.xlsx")
If VarType(vntFilename) <> vbString Then Exit Sub
'... z.B.
'Set wkb = Workbooks.Open(vntFilename, ReadOnly:=True)
'...
End Sub
Grüße
|