ذخیره کردن خودکار فایل اکسل در راس ساعت خاص

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Arashman

    • 2015/01/15
    • 14
    #1

    [حل شده] ذخیره کردن خودکار فایل اکسل در راس ساعت خاص

    سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش در ساعات خاصی از روز مثلا 3 بار در روز ذخیره بشه؟؟
    ممنون میشم راهنمکایی کنید
    برچسب ها: هیچ‌کدام
    • مصطفی رجبی

      • 2015/05/24
      • 73
      • 47.00
      #2
      نوشته اصلی توسط Arashman
      سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش در ساعات خاصی از روز مثلا 3 بار در روز ذخیره بشه؟؟
      ممنون میشم راهنمکایی کنید
      سلام.برای این منظور به آدرس option/save/save Autorecover informationevry .... minبرو و زمان هر بار ذخیره روتعیین کن ولی بیشترین زمانی که میشه تعیین کرد هر 2 ساعت یکباراست.

        کامنت

        • Arashman

          • 2015/01/15
          • 14
          #3
          سلام مرسی از جوابتون
          ولی این روش فایل و اپدیت نمیکنه
          یعنی اگه شخص دیگه فایل به صورت read only باز کنه فایل update نشده بیشتر مو نظرم به شیوه micro بود بازم ممنون

            کامنت

            • ali.b

              • 2014/01/12
              • 798
              #4
              کد:
              [COLOR=blue]Public[/COLOR][COLOR=#333333] dTime [/COLOR][COLOR=blue]As Date[/COLOR][COLOR=#333333][/COLOR] 
[COLOR=blue]Sub[/COLOR] AutoSaveAs() 
    dTime = Time + TimeValue("00:05:00") 
    [COLOR=blue]With[/COLOR] Application 
        .OnTime dTime, "AutoSaveAs" 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
        .DisplayAlerts = [COLOR=blue]False[/COLOR] 
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)" 
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
[COLOR=blue]End Sub[/COLOR]
              کد:
              [COLOR=blue]Private[/COLOR][COLOR=#333333] [/COLOR][COLOR=blue]Sub[/COLOR][COLOR=#333333] Workbook_BeforeClose(Cancel [/COLOR][COLOR=blue]As[/COLOR][COLOR=#333333] [/COLOR][COLOR=blue]Boolean[/COLOR][COLOR=#333333]) [/COLOR]    Application.OnTime dTime, "AutoSaveAs", , [COLOR=blue]False[/COLOR] 
[COLOR=blue]End Sub[/COLOR] 
 
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open() 
    dTime = Time + TimeValue("00:05:00") 
    Application.OnTime dTime, "AutoSaveAs" 
[COLOR=blue]End Sub[/COLOR]
              اگه مشکلتون برای کاربرای بیشتر از یک نفر هست از منوی review بخش share workbook انجام بده

              نوشته اصلی توسط Arashman
              سلام مرسی از جوابتون
              ولی این روش فایل و اپدیت نمیکنه
              یعنی اگه شخص دیگه فایل به صورت read only باز کنه فایل update نشده بیشتر مو نظرم به شیوه micro بود بازم ممنون
              [CENTER]
              [/CENTER]

                کامنت

                • Arashman

                  • 2015/01/15
                  • 14
                  #5
                  نوشته اصلی توسط ali.b
                  کد:
                  [COLOR=blue]Public[/COLOR][COLOR=#333333] dTime [/COLOR][COLOR=blue]As Date[/COLOR] 
[COLOR=blue]Sub[/COLOR] AutoSaveAs() 
    dTime = Time + TimeValue("00:05:00") 
    [COLOR=blue]With[/COLOR] Application 
        .OnTime dTime, "AutoSaveAs" 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
        .DisplayAlerts = [COLOR=blue]False[/COLOR] 
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)" 
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
[COLOR=blue]End Sub[/COLOR]
                  کد:
                  [COLOR=blue]Private[/COLOR][COLOR=blue]Sub[/COLOR][COLOR=#333333] Workbook_BeforeClose(Cancel [/COLOR][COLOR=blue]As[/COLOR][COLOR=blue]Boolean[/COLOR][COLOR=#333333]) [/COLOR]    Application.OnTime dTime, "AutoSaveAs", , [COLOR=blue]False[/COLOR] 
[COLOR=blue]End Sub[/COLOR] 
 
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open() 
    dTime = Time + TimeValue("00:05:00") 
    Application.OnTime dTime, "AutoSaveAs" 
[COLOR=blue]End Sub[/COLOR]
                  اگه مشکلتون برای کاربرای بیشتر از یک نفر هست از منوی review بخش share workbook انجام بده
                  ممنون از micro
                  file share نیستش
                  و البته الان که گفتین میشد فابل share bashe و به بقیه فقط دسترسی view بدم

                    کامنت

                    قبلی template بعدی
                    چند لحظه..