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

موضوع: ذخیره روزانه اتوماتیکی

  1. #1

    آخرین بازدید
    2018/03/04
    تاریخ عضویت
    May 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ذخیره روزانه اتوماتیکی

    با سلام.
    من یک شیت اکسل دارم که در اون از تابع today استفاده شده. یعنی اطلاعات امروز که ذخیره شد؛ فردا که میخوای شیت رو باز کنی اطلاعات دیروز صفره. چگونه میتونم طوری ذخیره کنم که اطلاعات روز قبلم جداگانه حفظ بشه؟ منظورم اینه که اطلاعاتم روزانه سیو بشه و بتونم در یک فولدر جداگانه حفظ کنم بدون اینکه تغییری در شیت داده بشه.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    در فایل پیوست با کلیک بر روی باتن backup در درایو d پوشه ای به نام Hejar ساخته شده و در داخل آن پوشه ای با تاریخ روز ساخته شده و فایل شما با نام backup ذخیره میگردد.

    در فایلهای بک آپ فرمولها کپی نشده و فقط مقدار سلولها ثبت میگردد بنابر این با هر بار باز کردن دیگر تاریخ تغییر نخواهد کرد.

    کد PHP:
    Sub test()

    Application.ScreenUpdating False
    Application
    .DisplayAlerts False

    If Len(Dir("D:\Hejar"vbDirectory)) = 0 Then
       MkDir 
    "D:\Hejar"
       
    End If
       
       If 
    Len(Dir("D:\Hejar\" & jToday, vbDirectory)) = 0 Then
       MkDir "
    D:\Hejar\" & jToday
       End If

    XX = ActiveWorkbook.FullName

    FileList

    ActiveWorkbook.Save

    ActiveWorkbook.SaveAs Filename:="
    D:\Hejar\" & jToday & "\backup" & I & ".xlsm", FileFormat _
     :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
      
     Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("
    A1").Select
     
     MsgBox "
    Backup " & I & " is done"
      
        Workbooks.Open Filename:=XX
            
        Windows("
    backup" & I & ".xlsm").Activate
        ActiveWindow.Close

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls backup.xls اطلاعات (70.5 کیلو بایت, 37 نمایش)
    ویرایش توسط iranweld : 2016/05/03 در ساعت 14:32

  4. #3

    آخرین بازدید
    2018/03/04
    تاریخ عضویت
    May 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    با سلام.
    دوست عزيز من در خارج از ايران هستم و از تاريخ ميلادى استفاده ميكنم.
    و به جاى درايو D از E استفاده ميكنم.
    در ضمن نميخواهم اين backup در شيت اصلى تغييرى انجام دهد و اين فقط شيت مورد نظر را ذخيره كند نه شيت دیگری كه از today استفاده ميكند.

    با تشكر
    ویرایش توسط hejar : 2016/05/03 در ساعت 15:16

  5. #4


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    ذخیره در درایو e و نام فولدر ایجاد شده با تاریخ میلادی تصحیح گردید
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls backup.xls اطلاعات (40.5 کیلو بایت, 25 نمایش)

  6. سپاس ها (1)


  7. #5

    آخرین بازدید
    2018/03/04
    تاریخ عضویت
    May 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    با سلام و خسته نباشيد.
    با تشكر از همكارى شما , من فايلى كه ازش استفاده ميكنم را برايتان پیوست کردم . اگر یک نگاهی بکنید منظورم را متوجه خواهید شد.
    فايل هاي پيوست شده فايل هاي پيوست شده

  8. #6


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    فایل پیوست را بررسی کنید
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2016/05/04 در ساعت 14:50

  9. سپاس ها (1)



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

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

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

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

  1. واردکردن اطلاعات یه فایل اکسل به طوراتوماتیک در فایل اکسل دیگر
    توسط alitaheri در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 2022/11/09, 14:51
  2. [حل شده] رنگی شدن اتوماتیک سلول
    توسط ehzamani در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 10
    آخرين نوشته: 2016/01/20, 13:44
  3. [حل شده] شماره ردیف اتوماتیک
    توسط alfa در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 2015/09/14, 12:02
  4. [حل شده] ادغام اتوماتیک چند سلول در یک سلول
    توسط mohammadreza.h در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/31, 13:00
  5. اجرای اتوماتیک کد های VB
    توسط mrdn66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/10/13, 16:02

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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

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