نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: دستور ایجاد backup

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    دستور ایجاد backup

    سلام و خسته نباشید
    دوستان عزیز خیلی ها نیاز دارن که هر بار برای فایل اکسلشون تغییراتی میدن ی نسخه پشتبان گرفته بشه تا در صورت مشکل بتونن اخرین تغییرات رو پیدا کنن و یا فایل های قبلی رو هم داشته باشن
    با این کد هر بار که تغییری در فایل اکسل میدین خودکار در مسیر مورد نظر ذخیره میکنه
    کد:
    Private Sub Workbook_Deactivate()
    
    End Sub
    
    
    Private Sub Workbook_Open()
          Application.Caption = "Microsoft Excel AutoBackup"
    End Sub
    
    
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
          Dim MyFilePath$, Extension$
          MyFilePath = MyPCpath("MyDocuments")
          Extension = Left(ThisWorkbook.Name, Len _
                                              (ThisWorkbook.Name) - 4) & " Backup"
    
    
          On Error Resume Next      '<< folder exists
          MkDir MyFilePath & Extension      '<< create folder
          'save current version of this book in the folder
          ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
                                              Extension & "\" & Extension & _
                                              (Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls"
    End Sub
    
    
    Public Function MyPCpath$(Folder)
          MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
                     (Folder) & Application.PathSeparator
    End Function
    برای اجرای ایکد باید اونو تو thisworkbook ذخیره کنین
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط ~M*E*H*D*I~ : 2014/07/22 در ساعت 20:57



  2.  

  3. #2


    آخرین بازدید
    2017/12/31
    تاریخ عضویت
    October 2014
    محل سکونت
    تهران
    نوشته ها
    40
    امتیاز
    18
    سپاس
    63
    سپاس شده
    8 در 7 پست
    تعیین سطح نشده است

    سلام
    دوست عزیز ممنون از اطلاعات خوبتون.
    فقط یک سوال: برای تغییر آدرس ذخیره به آدرس دلخواه، دقیقا به چه صورت باید آدرس رو بنویسیم؟ مثلا توی درایو D اگر بخواهیم بک آپ ها رو ذخیره بکنه، چه آدرسی رو باید کجا قرار بدیم؟
    من وقتی مثلا بجای Mydocuments میزنم
    کد:
    D:\
    هیچ اتفاقی نمیفته.
    و تنها زمانیکه آدرس روی خود Mydocuments هست، اونجا ذخیره رو انجام میده.

    با تشکر

  4. #3


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    شما باید این قسمت
    کد PHP:
     MyPCpath("MyDocuments"
    رو حذف کنید و این کد رو جاش بنویسید
    کد PHP:
     MyFilePath "D:\" 
    کد اولی برای درایوی که ویندوز نصب شده و پوشه های سیستمی استفاده میشه و کاررد های دیگه ای هم داره اما برای درایورهای دیگه باید از روش بالا عمل کنید



  5. #4


    آخرین بازدید
    2022/06/05
    تاریخ عضویت
    March 2015
    نوشته ها
    53
    امتیاز
    15
    سپاس
    0
    سپاس شده
    5 در 5 پست
    سطح اکسل
    82.00 %

    با سلام و خسته نباشید
    ببخشید من میخوام توی همین پوشه ی بک آپ یه پوشه ی دیگه با نام ورک بوک درست بشه و بک آپ توی اون ذخیره بشه-یعنی پوشه تو پوشه
    لطفا راهنمایی بفرمائید

  6. #5

    آخرین بازدید
    2021/01/01
    تاریخ عضویت
    December 2018
    نوشته ها
    3
    امتیاز
    11
    سپاس
    0
    سپاس شده
    1 در 1 پست
    سطح اکسل
    47.00 %

    با سلام و با اجازه از اساتید ارجمند
    میتونیم از این دستور هم برای ساخت backup تو مسیری که فایل قرار داره استفاده کنیم یه فایل جدید با(نام فایل،تاریخ،ساعت) رو ذخیره میکنه

    کد:
    Sub backup ()
    'Stap 1: create a backup of a vorkbook with 
    current date in the same folder
    Thisworkbook.saveCopyAz_
    Filename:=thisworkbook.path & "" & _
    Thisworkbook.name & " " & _
    Format(now, "yyyy-mm-dd, hh.mm") & ".xlsm"
    End sub
    ویرایش توسط Amir Ghasemiyan : 2018/12/13 در ساعت 09:48 دلیل:قرار دادن كدها در تگ مربوطه

  7. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. [حل شده] جستوجوی تمامی اسامی یکسان با کلمه مورد جستوجو
    توسط hassanmohammadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2018/12/14, 17:23
  2. [حل شده] دستور تايپ نام سطر يا ستون در دستورات اكسل
    توسط azno در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2015/11/22, 16:27
  3. backup
    توسط moslemi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2015/11/20, 21:13
  4. backup
    توسط mrsaeid در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/05/17, 11:55

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

روش back up از اکسل

ایجاد بک آپ در اکسل

چگونگی برداشتن بک‌اپ خودکار از فایل اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است