نمونه کد های excel vba-تهیه پشتیبان از فایل اکسل

این مطلب برای بسیاری از شما کاربران بسیار بسیار کاربردی می باشد.چرا که برای تهیه فایل اکسل خود ممکن است روز ها و یا ماه ها وقت صرف کرده باشید ولی به دلایل مختلف ممکن است فایل اصلی را از دست بدهید و هیچ گونه پشتیبانی از آن نداشته باشید.(پیشنهاد می شود مطلب ذخیره و بازیابی فایل های آفیس را مطالعه کنید)

تصور کنید شما در حال جمع آوری داده ها به مدت ۳ روز می باشید ولی در روز چهارم متاسفانه فایلی که بر روی آن کار می کردید را از دست داده اید و فاجعه زمانی می باشد که هیچ پشتیبان یا کپی از فایل خود تهیه نکرده اید.

نمونه کد VBA که تقدیم شما می گردد، این امکان را به شما میدهد به طور روزانه از فایل خود پشتیبان تهیه کنید.یکی از ویژگی های این کد این میباشد که کپی های ایجاد شده از فایل شما را بر اساس تاریخ در پوشه مورد نظر شما ذخیره می کند و شما به راحتی می توانید به اطلاعات روز های قبل خود دسترسی داشته باشید.

پیش از شروع آموزش چند تذکر را یادآوری می کنیم:

۱)این یک نمونه کد می باشد و شاید نیاز شما را پاسخگو نباشد.

۲)فایل را حتما به صورت Excel macro-enabled workbook ذخیره کنید.

اکنون وارد محیط ویرایشگر vba شوید.(Alt+F11)مانند تصویر زیر بر روی Module کلیک کنید.

اکنون کد های زیر را مانند تصویر زیر در Module1 کپی کنید.

Sub Backup()
'Step 1: Create a Backup of a Workbook with Current Date in the Same folder
ThisWorkbook.SaveCopyAs _
FileName:=ThisWorkbook.Path & "\" & _
Format(Date, "mm-dd-yy") & " " & _
ThisWorkbook.Name
End Sub

اکنون این ماژول را از تب  Developer و کلیک بر روی Macros اجرا کنید.