vba1395-12-15 15:25:39 +00:00
0
0

 

سلام وقت بخیر

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

باتشکر

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

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

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

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

Showing 0 results
پاسخ شما

لطفا کنید

مقایسه محصولات
محصولی در سبد خرید وجود ندارد!
لیست علاقمندی‌ها 0