توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : [حل شده] ذخیره کردن خودکار فایل اکسل هر چند ساعت یکبار
Arashman
2017/04/10, 08:45
سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش مثلا هر 2 ساعت یکبار به صورت خودکار ذخیره بشه(با استفاده از VBA)؟؟
مصطفی رجبی
2017/04/10, 09:56
سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش مثلا هر 2 ساعت یکبار به صورت خودکار ذخیره بشه(با استفاده از VBA)؟؟
سلام.برای این منظور به آدرس option/save/save Autorecover informationevry .... minبرو و زمان هر بار ذخیره روتعیین کن ولی بیشترین زمانی که میشه تعیین کرد هر 2 ساعت یکباراست.
iranweld
2017/04/10, 10:27
با سلام
از طریق ماکرو امکان پذیر است.
در فایل پیوست دو زمان 10:20 و 12:20 برای ذخیره فایل تعریف شده است
14669
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
Arashman
2017/04/12, 11:50
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
متشکر از micro کاش به جایی بو میتونستم برم مایکرو نویسی یاد بگیرم
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.