پرسش بک آپ خودکار

[ehsanshahbeig]

سلام
خسته نباشید
من یه کد داشتم که تو ماژول اکسل به یک button وصل میشه و بک آپ رو میگیره

حالا من میخوام اینو به صورتی تغییر بدم که موقع خروج

1- اولا خودش بک آپ ها رو به صورت خودکار بگیره(یعنی نیازی به button نباشه)

2- دوم اینکه فایل بک آپ بره تو درایو مثلا D و یه پوشه خودش درست کنه به نام همون فایل اکسل و داخل اون پوشه بک آپ ها رو بریزه.

مثل برنامه هلو که خودش یه پوشه تو درایور C درست میکنه و اسمشم خودش میزاره HOLOO و داخل اون پوشه بک آپ ها رو میریزه


دوستان اگر ممکن هست کمک بفرمایند

[Amir Ghasemiyan]

سلام دوست عزيز
كدي كه استفاده ميكنيد رو بذاريد من رو همون براتون ويرايش ميكنم

[ehsanshahbeig]

سلام دوست عزيز
كدي كه استفاده ميكنيد رو بذاريد من رو همون براتون ويرايش ميكنم

ببخشید فراموش کردم کد رو بزارم:

Sub ehsanshahbeig()

    Dim iDate As Long
    Dim iFile As String
    
        iDate = Format(Date, "yyyymmdd")
        iFile = ThisWorkbook.Path & "/" & iDate & ".xlsm"
    ThisWorkbook.SaveCopyAs Filename:=iFile

End Sub

[Amir Ghasemiyan]

خب دوست عزيز
براي سوال اولتون كافيه اين كد رو داخل كدهاي workbook بذاريد

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ehsanshahbeig
End Sub

براي سوال دومتون هم اين كد رو جايگزين كد فعليتون بكنيد

Sub ehsanshahbeig()

    Dim iDate As Long
    Dim iFile As String
    
        iDate = Format(Date, "yyyymmdd")
        iFile = D:/Exceliran/" & iDate & ".xlsm"
    ThisWorkbook.SaveCopyAs Filename:=iFile

End Sub

[ehsanshahbeig]

خب دوست عزيز
براي سوال اولتون كافيه اين كد رو داخل كدهاي workbook بذاريد

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ehsanshahbeig
End Sub

براي سوال دومتون هم اين كد رو جايگزين كد فعليتون بكنيد

Sub ehsanshahbeig()

    Dim iDate As Long
    Dim iFile As String
    
        iDate = Format(Date, "yyyymmdd")
        iFile = D:/Exceliran/" & iDate & ".xlsm"
    ThisWorkbook.SaveCopyAs Filename:=iFile

End Sub

این خط ارور میاد:

ThisWorkbook.SaveCopyAs Filename:=iFile

[Amir Ghasemiyan]

این خط ارور میاد:

ThisWorkbook.SaveCopyAs Filename:=iFile

احتمالا بخاطر اينه كه همچين پوشه اي وجود نداره يا اينكه آدرس رو اشتباه وارد كرديد
اگر بخواهيد خود سيستم تشخيص بده همچين فولدري وجود داره يا نه بايد اين كدها رو به ابتداي كدتون اضافه كنيد

FLDR_NAME = "D:/Exceliran"
Set folder = CreateObject("Scripting.FileSystemObject")
If Not folder.FolderExists(FLDR_NAME) Then folder.CreateFolder (FLDR_NAME)

[ehsanshahbeig]

احتمالا بخاطر اينه كه همچين پوشه اي وجود نداره يا اينكه آدرس رو اشتباه وارد كرديد
اگر بخواهيد خود سيستم تشخيص بده همچين فولدري وجود داره يا نه بايد اين كدها رو به ابتداي كدتون اضافه كنيد

FLDR_NAME = "D:/Exceliran"
Set folder = CreateObject("Scripting.FileSystemObject")
If Not folder.FolderExists(FLDR_NAME) Then folder.CreateFolder (FLDR_NAME)

بله دقیقا همین بود منظورم. ممنون از شما

[ehsanshahbeig]

سلام

ارور های زیر میاد:

[Amir Ghasemiyan]

فايل نمونه بذاريد بررسي كنم

[ehsanshahbeig]

سلام
فایل رو دیروز گذاشتم ولی نمیدونم چرا نیومده:

http://s8.picofile.com/file/8338266834/Book1.xlsm.html

[ehsanshahbeig]

فايل نمونه بذاريد بررسي كنم

فایلد رو بررسی کردید؟

[ehsanshahbeig]

کسی نیست؟

[ehsanshahbeig]

فايل نمونه بذاريد بررسي كنم

آقای قاسمیان فایل رو گذاشتم.

[ehsanshahbeig]

آقا یکی کمک کنه منو خیلی کارم گیره

[Amir Ghasemiyan]

سلام دوست عزيز
ببخشيد بابت تاخير

مشكل كد شما فقط بخاطر طولاني بودن عدد توليد شده در iDate هست.
كافيه خط پنجم رو به اين صورت اصلاح كنيد

Dim iDate As Double