اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اقدم لكم كود لعمل نسخه احتياطيه مع عمل مجلد جديد


الردود الموصى بها

هذا الكود يقوم بانشاء مجلد جديدعلى اى دريف انت تحدده ويضع بداخله ملف اكسيل كنسخه احتياطيه

يمكن تعديل مسار الحفظ الى d او اى مكان انت تختاره داخل الكود


Sub copy1()

Dim Extension$

Dim savePathName As String

Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"

savePathName = "c:\Amr Inv System Backup 1\"

    On Error Resume Next

    Application.DisplayAlerts = False

    GetAttr (savePathName)

    Select Case Err.Number

    Case Is = 0

	    Application.DisplayAlerts = False

	    ThisWorkbook.SaveCopyAs savePathName & Extension

	    Application.DisplayAlerts = True

    Case Else

	    MkDir savePathName

	    ThisWorkbook.SaveCopyAs savePathName & Extension

    End Select

    On Error GoTo 0

End Sub

انتظرونى قريبا مع برنامج المخزون و الفواتير الشامل

سلامى الى كل اعضاء ومشرفى المنتدى

رابط هذا التعليق
شارك

السلام عليكم

جزاك الله خير على الكود

بالنسبة لي انا استخدم هذا الكود


Sub ALIDROOS_SAVE()

Const PRUEBAS = "D:\"

Dim Nombre As String

Nombre = "إسم النسخة"

With ActiveWorkbook

.SaveCopyAs Filename:=PRUEBAS & Nombre & "_" & Format(Now, "dd-mm-yyyy") & ".xls"

MsgBox ("تم حفظ قاعدة بيانات بالأسم التالي..." & Nombre & vbInformation)

End With

End Sub

وبإنتظار برنامج المخزون

نشكر لك جهودك

موفق ان شاء الله

تقبل مروري

رابط هذا التعليق
شارك

استاذنا هل يمكن الحفظ فى فولدر يكون بأسم الشهر وبداخله فولدر بتاريخ اليوم

مثلا لو كان لدينا ملف اكسيل بأسم على

عند الحفظ

تاريخ اليوم هو 2/1/2012

يكون فوللدر اسمه يناير بداخله فولدر اسمه 2 بداخله الملف باسمه على

وغدا يكون داخل نفس فولدر يناير اسمه 3 بداخله الملف باسمه على

والشهر القادم يتم عمل فولدر اسمه فبراير بداخله فولدر اسمه 1 وبداخله الملف بأسمه على

وهكذا. كل شهر وكل يوم وعند الحفظ اكثر من مرة فى نفس اليوم يتم عمل استبدال للملف

احترامى

تم تعديل بواسطه abouelhssan
رابط هذا التعليق
شارك

حسب فهمي لما تريد

هو حفظ الملف في درايفر D مثلا

في ملف اسمه يناير

غير المسار بهذا السطر ليكن


Const PRUEBAS = "D:\يناير\"

وعند دخول شهر جديد اعمل مجلد جديد بإسم الشهر الجديد

وغير المسار بتغير الاسم فقط بدل يناير مثلا فبراير

وهكذا

رابط هذا التعليق
شارك

بارك الله فيكم جميعا

اخى ابو نصار اشكرا على هذا الكود كود مختصر وجميل

ولكن هناك فرق فى الكودين بمعنى

الكود اللى حضرتك وضعته يعمل نسخه احتياطيه على درايف انت تحدده و لايقوم بانشاء مجلد جديد وهذا هو الفرق

اما الكود الرئيسى الموضوع فى المشاركه الاولى يقوم بانشاء فولدر جديد ان لم يكن موجود من قبل ثم يضع فيه النسخ الاحتياطيه لملف الاكسيل

يعنى تستطيع بهذا الكود انشاء مجلد جديد تحدد انت اسمه

وكذلك تستطيع اختيار الدريف المناسب

والكود يضع النسخ الاحتياطيه كلها لملف الاكسيل داخل فولدر واحد انت محدده مسبقا

وهذا لكى تعم الفائده

باختصار

الكود الرئيسى فى المشاركه الاولى يقوم بعمل التالى

1-الذهاب الى الدريف المحدد والذى تستطيع تغييره داخل الكود

2-انشاء فولدر جديد انت تستطيع ان تحدد اسمه من داخل الكود ولاحظ كلمه فولدر

3-يقوم بعمل نسخه احتياطيه باسم ملف الاكسيل بتاريخ و الوقت الحاليين ويضعها داخل الفولدر المنشئ فى الخطوه رقم 2

اما كود اخى ابو نصار جزاه الله خير يقوم بالخطوه رقم 1 و 3

ولا يقوم بانشاء فولدر

تم تعديل بواسطه amroomo
رابط هذا التعليق
شارك

  • 2 months later...

اخى عمرو

جزاك الله كل خير

كود مهم ومفيد هل اذا غيرت امتداد الملف بدل xslm الى xls

Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"

تحدث مشكلة ام لا

سعد عابد

رابط هذا التعليق
شارك

اخى عمرو
جزاك الله كل خير
كود مهم ومفيد هل اذا غيرت امتداد الملف بدل xslm الى xls
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"
تحدث مشكلة ام لا
سعد عابد



اخى سعد

اذا كنت تستخدم اكسيل 2007 او 2010 فلا بد من حفظ الملف بهذه الصيغه xlsm

اما اذا كنت تستخدم اكسيل 2003 فقوم بتغيير الصغيه الى xls

ولن تحدث مشكله ان شاء الله

والسبب فى ذلك ان شركه مايكروسوفت قامت بتمييز ملفات الاكسيل التى تحتوى على ماكرو بدايه من 2007 الى ما فوق بامتداد جديد و هو xlsm

اما سابقا ايام اكسيل 2003 فلا يوجد تمييز وكان هناك امتداد واحد لجميع الملفات وهو xls

ارجو ان تكون اتضحت الفكره

تحياتى
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information