عمل حفظ لصفحة اكسل فى مكان اخري بشكل تلقائى بعد وقت معين يتم تحديدة

[gamal saad]

لو سمحتم عايز كود او خاصية اقدر من خلالها اعمل حفظ لصفحة اكسل شغال عليها بشكل يومى الى مكان اخر بشكل تلقائى 

وشكراا

 

[مختار حسين محمود]

أستاذ جمال سعد أهلا بك

بداية نرجو منك تغيير اسمك الى اللغة العربية  و ثانيا طلبك يحتاج بعض الايضاح ليتمكن الأعضاء من مساعدتك

مطلوب منك : مرفق أو ملف توضح فيه اسم الصفحة التى تريد حفظها + الوقت الذى تريد فيه بدء الحفظ  و ذلك يكون بعد فتح الملف  + مكان أو مسار الحفظ

تحياتى

[gamal saad]

شكراَ 

ا / مختار حسين لاهتمامك بالسؤال

انا شغال ع صفحة اكسل تم ارفاقها ف الملف بشكل يومى بيان وقتى.rar

المطلوب ان يتم اخد نسخة من هذه الصفحة بشكل يومى  مثلا الساعة 10 صبشكل تلقائى وحفظها ف ملف اخر فى مكان اخر على نفس الجهاز وليكن هنا

D:\نسخة من البيان الوقتى

وشكراا

 

 

ملحوظة 

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

[مختار حسين محمود]

طبقا لما طلبته تفضل

ضع هذا الكود فى مديول عادى   الكود يعمل يوميا و بشكل تلقائى الساعة 10 صباحا  بالثانية يعنى حضرتك لازم تكون فاتح اكسل قبلها

الكود سوف يحفظ  الشيت رقم 2  كملف جديد كما طلبت فى المرفق  فى البارتش D  

وأضفت لك الوقت ( تاريخ اليوم والساعة والثانية ) لاسم الملف عشان تفرق بين الملفات الناتجة  بالتاريخ

Option Explicit

Sub Auto_Open()
Dim MyTime As Date
MyTime = TimeSerial(10, 0, 0)     ' بداية عمل الكود بعد فتح الملف
Application.OnTime MyTime, "ExportSpecificSheet"
End Sub

Sub ExportSpecificSheet()
    Dim WB As Workbook, WS As Worksheet, fName As String
    Set WS = ThisWorkbook.Sheets("Sheet2") ' حدد اسم الشيت
    fName = "D:\" & "نسخة من البيان الوقتى" & "(" & Format(Now, "dd-mm-yyyy hhmmss") & ")" & ".xlsx"   ' حدد اسم و مسار وامتداد الملف
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        If WB Is Nothing Then
            WS.Copy
            WS.UsedRange.Value = WS.UsedRange.Value
            Set WB = ActiveWorkbook
            With WB
                .SaveAs Filename:=fName
                .Close True
            End With
        End If
        Set WS = Nothing
        Set WB = Nothing
     Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Your's Sheet Exported Now ...", 64
End Sub

أخبرنى بالنتيجة   تحياتى

[gamal saad]

عذراااا 

ا / مختار

كيف يتم فتح مديول عام لتكابة الكود فية

[مختار حسين محمود]

وأنت فاتح ملف الاكسل اضغط  المفتاحين  Alt  + F11   معا هتلاقى نافذة محرر الاكواد 

من فوق هتلاقى قوائم من ضمنها قائمة insert  اختر  مديول  هتفتح معاك صفحة بيضاء

هذه الصفحة هى نافذة محرر الاكواد  بنكتب و نلصق فيها الاكواد 

جرب الملف ده   هتلاقى جواه  كود حفظ الشيت كملف جديد 

بيان وقتى 2.rar

[gamal saad]

اعجز عن شكرك ا / مخنار

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

تحياتى ...

[gamal saad]

ا/ مختار 

بعد تجربة الكود 

بالفعل تم ارسال نسخة من البيان ولكن على شكل صفحة publisher فارغة والمطلوب ان تكون هذة النسخة اكسل حتى يمكن العمل عليها 

ولو سمحت ان امكن 

تغير وقت الحفط بحيث يتم فى اى وقت يتم فتح البيان فية بعد الساعة 10 ص حتى يعمل الكود ف حالة اذا ماكان البيان مغلق فى الساعة 10 ص

[مختار حسين محمود]

أستاذ جمال  

 اسم الشيت  فى ملفك به مسافة فارغة  لم تدرج فى الكود قد يكون هذا هو السبب

المرفق التالى يحفظ نسخة من الشيت اذا كان الوقت يساوى أو أكبر من الساعة 7 مساء  يمكنك التعديل

بيان وقتى 3.xls

[عبد العزيز البسكري]

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

بارك الله فيك أخي الغالي و أستاذي القدير " مختار حسين محمود "

أستمتع بتجربة أكوادك المميّزة .. التي فعلاً لا يمكن تجاهلها و تجبرها يا غالي على تجربتها و الاحتفاظ بها ككنز ثمين

جزاك الله خيرًا و زادك من علمه و فضله

فائق إعجاباتي

 

[صالح احمد ابوسيف]

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

[مختار حسين محمود]

أخى الغالى عبدالعزيز البسكرى

و أنا  أسعد لسعادتك  و يشرفنى مرورك و تعليقاتك و ملاحظاتك على موضوعاتى

تقبل منى كل التحية والتقدير لشخصكم الكريم

أخى صالح

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