هل استطيع حفظ ملف اكسل كل يوم بتاريخ اليوم

[فهيد]

السلام عليكم ورحمة الله وبركاته

يا اخوان انا عندي برنامج على الاكسل كل يوم لازم نشتغل على الملف باستمرار اريد

يوم اخرج من الملف الاكسل واسوي له حفظ يسوي له حفظ بالتاريخ اليوم

وشكرااااا

[ابو اسامة العينبوسي]

السلام عليكم

http://arabsoftware.net/uploads/bMqHfqMPHnfPTZYT.xls

[abumaher]

السلام عليكم

يعطيك اللعافيه ابو اسامه

ممكن احفط نسخه من البرنامج في d يوميا بدلا من الحفظ في المستندات

الف شكر لك ونفع الله بعلمك

تم تعديل سبتمبر 1, 2007 بواسطه abumaher

[abumaher]

السلام عليكم

يعطيك اللعافيه ابو اسامه

ممكن احفط نسخه من البرنامج في " d " يوميا بدلا من الحفظ في المستندات " c"

الف شكر لك ونفع الله بعلمك

[ابو اسامة العينبوسي]

ActiveWorkbook.SaveCopyAs "d:\abumaher\test.xls"

قم بانشاء مجلد و سمه abumaher

سيتم حفظ نسخه باسم test عن الملف الذي تعمل عليه على القرص دي

انسخ الكود اعلاه في

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveCopyAs "d:\abumaher\test.xls"

End Sub

تم تعديل سبتمبر 9, 2007 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

عفوااااا

تريد اسم الملف بتاريخ اليوم ؟؟

ساعدله

[abumaher]

الف شكر يا ابو اسامه

هذا يكفي الله يوفقك

ومبروك عليك الشهر الكريم مقدما واعاده الله علينا وعليك باليمن والبركات وجميع اخواننا المسلمين يا رب

تم تعديل سبتمبر 9, 2007 بواسطه abumaher

[ابو اسامة العينبوسي]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sFileName As String
sFileName = Format(Now(), "ddmmyy")
ActiveWorkbook.SaveAs "d:\abumaher\" & sFileName & ".xls"
End Sub

تم تعديل سبتمبر 9, 2007 بواسطه ابو اسامة العينبوسي