آموزش مقدماتی تا پیشرفته اکسل | اکسل لرن
معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل
به نام خداوند بخشنده و مهربان ، امروز برای شما عزیزان معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل را آماده نمودیم که امیدواریم مورد رضایت شما عزیزان و علاقه مندان به یادگیری مباحث شیرین وی بی ای اکسل قرار گیرد .
معرفی و کاربرد دستور MkDir در ماکرونویسی اکسل
بطور خلاصه از دستور MkDir برای ایجاد فولدر در محیط ویندوز مورد استفاده قرار میگیرد که ساختار بسیار بسیار ساده ی دارد :
MkDir path
آرگومان path آدرس فولدر جدید در محیط ویندوز است که می بایست بین دابل کوتیشن ” ” قرار گیرد ، به عنوان مثال :
Sub Excellearn()
MkDir “D:\Excellearn”
End Sub
با اجرای ماکروی فوق (F5) ، فولدری به نام “Excellearn” در درایو “D” ویندوز به آدرس ساخته خواهد شد.
البته دستور MkDir به تنهایی کاربرد آنچنانی ندارد ولی اگر با تایع Dir ترکیب شود ، میتواند خروجی مطلوبی به همراه داشته باشد.
معرفی و کاربرد دستور Dir در ماکرونویسی اکسل
از تابع Dir برای فراخوانی نام یک فایل (فولدر) با درنظر گرفتن آدرس آن ، مورد استفاده قرار میگیرد (بیشتر مطالعه کنید). به عنوان مثال :
Sub Excellearn()
Dim MyFile As String
MyFile = Dir(“D:\excellearn.xlsx”)
MsgBox MyFile
End Sub
با اجرای ماکروی فوق در صورت وجود فایل “excellearn.xlsx” در درایو “D” ویندوز ، عبارت “excellearn.xlsx” را توسط دستور Msgbox نمایش میدهد در غیراینصورت محتوای پیام Msgbox برابر با خالی (صفر کارکتر) خواهد بود .
یک مثال کاربردی تر از کاربرد دستور Dir در ادامه خواهیم داشت :
Sub Excellearn()
Dim MyFile As String
MyFile = Dir(“D:\excellearn.xlsx”)
If Len(MyFile) <> 0 Then
MsgBox MyFile
Else
MsgBox “File Doesn’t Exist”
End If
End Sub
در ماکروی فوق ابتدا وجود فایل “excellearn.xlsx” ابتدا توسط ترکیب دستور Dir با Len مورد بررسی قرار میگیرد که در صورت وجود نام فایل توسط Msgbox و درصورت عدم وجود فایل ، پیام ” File Doesn’t Exist ” یا بعبارتی فایل موجود نیست را نمایش خواهد داد .
امیدواریم مطلب آموزشی ” معرفی و کاربرد دستورات MkDir و Dir در ماکرونویسی اکسل” مورد رضایت شما عزیزان قرار گرفته باشد، در صورت وجود هرگونه سوال میتوانید آن را در قسمت نظرات سایت مطرح تا در اسرع وقت توسط تیم پشتیبانی سایت اکسل لرن نسبت به پاسخگویی آن اقدام گردد .
