vba ۱۳۹۵-۱۲-۱۵ ۱۵:۲۵:۳۹ +۰۳:۳۰
0
0

 

سلام وقت بخیر

در کد ماژول زیر بجای (؟؟پیدا شد؟؟) چه چیزی بنویسم که در صورت موجود بودن نام فایل در آدرس محل فایل باز شود در غیر صورت پیغام  msgbox  ظاهر شود؟

باتشکر

X = InputBox(“نام مورد نظر را وارد نمايید)

myaddress = ThisWorkbook.Path & “\” & X & “.xlsm”

If myaddress  (??پیدا شد??)  Then

Workbooks.Open Filename:=Path & myaddress
Else
MsgBox “نام مورد نظر موجود نيست”
End If
End Sub

نمایش 0 نتیجه
پاسخ شما

لطفا کنید