این کد رو در خاصیت کلیک یه باتون بنویس
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 رو فعال کن امیدوارم مشکلت حل بشه
پاسخ با نقل قول