انتخاب فایل با پسوند خاص

[Haji hadi]

سلام
در کد زیر چطور میشه مشخص کرد که فایلهایی که با پسوند htm هستند فقط دیده شوند و از میان آنها یکی را انتخاب کرد
_و نام فایلی که انتخاب شده در اولین سلول درج شود

Sub OpenFile()
Dim fileName
fileName = Application.GetOpenFilename("")
End Sub

[s.cheraghi]

این تابع چندین آرگومان میگیره که یکیش FileFilter هست و باید به صورت خاص فرمت موردنظر رو مشخص کنی
مثلا برای دیدن فایل های شما باید مقدار این متغیر رو برابر "Html Files(*.htm),*.htm" که قسمت قبل از کامل متنی است که به عنوان توصیف نوع فایل و قسمت بعد نوع فایل مشخص میشه. درنهایت کد شما باید به صورت زیر بشه:

Application.GetOpenFilename ("Html Files(*.htm),*.htm")

[Haji hadi]

مرسی
در مورد قسمت دوم سوالم چی؟
و نام فایل انتخاب شده در اولین سلول درج شود؟؟؟
با تشکر

[s.cheraghi]

خروجی تابع GetOpenFilename همون نام فایلی هست که انتخاب کردین پس اگه خاصیت Value سلول موردنظرتون رو برابر این تابع قرار بدین، درصورتیکه فایلی انتخاب بشه آدرسش توی سلول موردنظرتون قرار داده میشه.