[حل شده] طریقه بک آپ گیری از یک فایل به طوری که جایگزین فایل بک قبلی بشود

[mahmodi]

سلام اساتید محترم.ممنون که قبول زحمت فرموده و جواب کاربران مبتدی مثل من رو میدین
من یه فایل دارم میخوام با کلیک روی یک دکمه به اسم بک آپ از آن فایل در درایو e و داخل پوشه backup یک فایل پشتیبان تهیه بشه و این تغییرات هم در فایل اصلی ذخیره بشه و هم اینکه هر وقت اراده کردیم یک فایل پشتیبان از آن تهیه کنیم و هر دفعه این کارو انجام دادیم این فایل بک آپ جدید جایگزین فایل بک قدیمی بشود یعنی همیشه فقط یک فایل اصلی و یک فایل پشتیبان داشته باشیم نه بیشتر.البته با کمک فایل های این انجمن یه چیزایی نوشتم اما نتیجه ای نگرفتم . ممنون میشم راهنمایی بفرمایید

[دکتر علیزاده]

طریقه بک آپ گیری از یک فایل به طوری که جایگزین فایل بک قبلی بشود

سلام اساتید محترم.ممنون که قبول زحمت فرموده و جواب کاربران مبتدی مثل من رو میدین
من یه فایل دارم میخوام با کلیک روی یک دکمه به اسم بک آپ از آن فایل در درایو e و داخل پوشه backup یک فایل پشتیبان تهیه بشه و این تغییرات هم در فایل اصلی ذخیره بشه و هم اینکه هر وقت اراده کردیم یک فایل پشتیبان از آن تهیه کنیم و هر دفعه این کارو انجام دادیم این فایل بک آپ جدید جایگزین فایل بک قدیمی بشود یعنی همیشه فقط یک فایل اصلی و یک فایل پشتیبان داشته باشیم نه بیشتر.البته با کمک فایل های این انجمن یه چیزایی نوشتم اما نتیجه ای نگرفتم . ممنون میشم راهنمایی بفرمایید

سلام دوست عزیز
لطفا از این تاپیک دیدن فرمائید
با توضیحات کامل پاسخ داده شده.

https://forum.exceliran.com/showthread.php/7716-%D8%A8%DA%A9%D8%A7%D9%BE-%DA%AF%DB%8C%D8%B1%DB%8C-%D9%88-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84

سپاس

[دکتر علیزاده]

سلام اساتید محترم.ممنون که قبول زحمت فرموده و جواب کاربران مبتدی مثل من رو میدین
من یه فایل دارم میخوام با کلیک روی یک دکمه به اسم بک آپ از آن فایل در درایو e و داخل پوشه backup یک فایل پشتیبان تهیه بشه و این تغییرات هم در فایل اصلی ذخیره بشه و هم اینکه هر وقت اراده کردیم یک فایل پشتیبان از آن تهیه کنیم و هر دفعه این کارو انجام دادیم این فایل بک آپ جدید جایگزین فایل بک قدیمی بشود یعنی همیشه فقط یک فایل اصلی و یک فایل پشتیبان داشته باشیم نه بیشتر.البته با کمک فایل های این انجمن یه چیزایی نوشتم اما نتیجه ای نگرفتم . ممنون میشم راهنمایی بفرمایید

البته ماکرو شما هم کامله فقط کافی سطر پائین را به این گونه تغییر دهید
ThisWorkbook.SaveCopyAs Filename:=Fname
من امتحانش کردم درست کار میکنه و فایل جدید جایگزین فایل قبلی میشه

[kazamie]

سلام دوست عزیز
لطفا از این تاپیک دیدن فرمائید
با توضیحات کامل پاسخ داده شده.

https://forum.exceliran.com/showthread.php/7716-%D8%A8%DA%A9%D8%A7%D9%BE-%DA%AF%DB%8C%D8%B1%DB%8C-%D9%88-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84

سپاس

فقط در مورد جایگزین شدن فایل ابتدا باید فایل بک آپ حذف شود و بعد عملیات ذخیره شدن با نام قبلی انجام شود

[generalsamad]

با سلام
اگر فولدر مورد نظر وجود نداشته باشد با پیغام خطا مواجه میشوید
پس باید شرطی قرار دهید که مسیر فایل ذخیره شده را چک کند ببیند پوشه در مسیر مورد نظر موجود هست یا خیر در صورتی که موجود نبود آن را بسازد
از این کد استفاده کنید

Sub mmm()
Dim Msg As String
Dim Ans As Long
Dim Fname, strFolderName, strFolderExists As String
strFolderName = "E:\BACKUP\"
strFolderExists = Dir(strFolderName, vbDirectory)
Msg = " آیا می خواهید از فایل بک آپ تهیه کنید"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbYes Then
    ThisWorkbook.Save
    If strFolderExists = "" Then
        MkDir strFolderName
    End If
    Fname = strFolderName & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs Fname
End If
End Sub 

[دکتر علیزاده]

طریقه بک آپ گیری از یک فایل به طوری که جایگزین فایل بک قبلی بشود

فقط در مورد جایگزین شدن فایل ابتدا باید فایل بک آپ حذف شود و بعد عملیات ذخیره شدن با نام قبلی انجام شود

نه خیر لازم نیست فایل قبلی حذف گردد
شما شفاهی میفرمائید بنده امتحان کردم اصلا نیاز نیست پس امتحان کنید
و با عرض معذرت بهتر است راه حل ارائه فرمائید. نه از جوابهای دیگران بدون امتحان کردن جواب داده شده خرده بگیرید.سپاسگزارم

[mahmodi]

با سلام
اگر فولدر مورد نظر وجود نداشته باشد با پیغام خطا مواجه میشوید
پس باید شرطی قرار دهید که مسیر فایل ذخیره شده را چک کند ببیند پوشه در مسیر مورد نظر موجود هست یا خیر در صورتی که موجود نبود آن را بسازد
از این کد استفاده کنید

Sub mmm()
Dim Msg As String
Dim Ans As Long
Dim Fname, strFolderName, strFolderExists As String
strFolderName = "E:\BACKUP\"
strFolderExists = Dir(strFolderName, vbDirectory)
Msg = " آیا می خواهید از فایل بک آپ تهیه کنید"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbYes Then
    ThisWorkbook.Save
    If strFolderExists = "" Then
        MkDir strFolderName
    End If
    Fname = strFolderName & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs Fname
End If
End Sub 

_{با سلام و احترام.استاد بزرگوار بسیار ممنونم . مشکلم حل شد .احسنت دست مریزاد}