عدم تعریف FileDialog

[hossein627194]

با سلام.می خواستم برای یه برنامه ام ب آپ تعریف کنم ولی نمی تونم FileDialog رو تعریف کنم.میشه راهنمایم کنید. Dim fb As FileDialog

[reza_1199]

این کد رو در خاصیت کلیک یه باتون بنویس
Dim f As Object
Set f = Application.Filedialog(msoFileDialogFilePicker)
Dim varfile As Variant
f.show
With f
.allowmultiselect = False
For Each varfile In .selecteditems
MsgBox varfile
Next varfile
End With

و فقط reference مربوط به microsoft office 15.0 object library رو فعال کن امیدوارم مشکلت حل بشه