اذهب الي المحتوي
أوفيسنا

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


gamal saad
إذهب إلى أفضل إجابة Solved by مختار حسين محمود,

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

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

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

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

تحياتى

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

شكراَ 

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

انا شغال ع صفحة اكسل تم ارفاقها ف الملف بشكل يومى بيان وقتى.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

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

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

  • أفضل إجابة

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

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

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

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

بيان وقتى 2.rar

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

ا/ مختار 

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

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

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

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

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

أستاذ جمال  

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

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

بيان وقتى 3.xls

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

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

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

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

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

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

56b630b9262a2_3.gif.9bb63901a3071bde1dca

 

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

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

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

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

أخى صالح

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

 

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

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

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

Important Information