خالد الشاعر قام بنشر أبريل 22, 2009 قام بنشر أبريل 22, 2009 السادة الخبراء فكرة جديدة خطرت لى هل ممكن ان تنفذ فى اكثر من ملف عندى فيهم بيانات خاصة بموضوع الحسابات واريد ان اعمل ملف واحد يشمل كل هذه البيانات مثل فكرة الـ BackUp فهل ممكن ان يتم التنفيذ برجاء الافادة وشكراً
عادل حنفي قام بنشر أبريل 22, 2009 قام بنشر أبريل 22, 2009 السلام عليكم اخي يمكن التنفيذ و لكن لابد من امثله لهذه الملفات تحياتي
خالد الشاعر قام بنشر أبريل 23, 2009 الكاتب قام بنشر أبريل 23, 2009 استاذى الفاضل الموضوع ببساطة انه يوجد عدد من الملفات بها نفس المعلومات ولكن لشهور السنة فاريد عمل Backup للمعلومات كلها كل شهر وشكراً
احمدزمان قام بنشر أبريل 23, 2009 قام بنشر أبريل 23, 2009 اخي الفاضل khanna هل هذا يعني الترحيل من ملف الى ملف آخر او نقل الورقة من ملف الى ملف آخر او البحث عن بيانات محددة ونقلها الى ملف آخر او مسح البيانات القديمة في الملف وجلب بيانات جديدة او ===========
خالد الشاعر قام بنشر أبريل 23, 2009 الكاتب قام بنشر أبريل 23, 2009 استاذ احمد اشكرك على اهتمامك بالموضوع المقصود نسخ البيانات التى بالملف الى ملف جديد ويضعها فى صفحة معينة بحيث تكون هناك امكانية استرجعها تانى الى المف الاصلى ولك كل الشكر و الاحترام
عادل حنفي قام بنشر أبريل 23, 2009 قام بنشر أبريل 23, 2009 (معدل) السلام عليكم اخي khhanna هل تقصد عمل نسخه احتياطيه لابد اخي من ان يكون الطلب واضحا و اذا كنت تريد ان تنسخ بيانات من صفحة داخل ملف الي صفحة اخري داخل ملف اخر فيجب عليك تجهيز الملف الذي سينقل منه و بياناته و اسماء صفحاته و كذلك الملف الذي سينقل اليه واسماء صفحاته هذه طبعا افتراضات اضعها لطلبك فالسؤال ماذا تريد انت تحياتي تم تعديل أبريل 23, 2009 بواسطه aah_aah2008
خالد الشاعر قام بنشر أبريل 24, 2009 الكاتب قام بنشر أبريل 24, 2009 نعم استاذى العزيز اريد عمل نسخة تحتياطى لصفحة من الملف فى ملف اخر واسف على عدم وضح المقصود وشكرا على اهتمامك
احمدزمان قام بنشر أبريل 24, 2009 قام بنشر أبريل 24, 2009 (معدل) Sheets("اسم الورقة").Copy Before:=Workbooks("NAME.xls").Sheets(1) يجب ان يكون كلا الملفين مفتوحيين يتم نقل نسخة من الورقة الى الملف الآخر تم تعديل أبريل 24, 2009 بواسطه احمد يعقوب
عادل حنفي قام بنشر أبريل 24, 2009 قام بنشر أبريل 24, 2009 السلام عليكم اخي الحبيب احمد يعقوب بارك الله فيك و احب ان اضيف امكانية الحفظ في ملف مغلق اولا انا افترضت ان هناك ملف اكسل موجود للحفظ فيه و افترضت ايضا ان الملف الاكسل موجود علي درايف ال c و ان هذا الملف اسمه 1 (واحد) يعني هيكون مكانه كالتالي C:\1.xls عند انتهائك من انشاء هذا الملف و اغلاقه طبعا قم بفتح الملف المرفق و اضغط علي زر Backup عندما تاتيك رسالة تم اغلق الملف ثم افتح ملف 1 الموجود علي ال c و اخبرني ماذا وجدت خالص تحياتي Backup.rar
احمدزمان قام بنشر أبريل 24, 2009 قام بنشر أبريل 24, 2009 و اخبرني ماذا وجدت وجدت ابداع من اخ فاضل وكريم تقبل خالص تحياتي وتقديري
عادل حنفي قام بنشر أبريل 24, 2009 قام بنشر أبريل 24, 2009 السلام عليكم اخي الحبيب احمد يعقوب بارك الله فيك خالص تحياتي و تقديري
A L M A I S T R O قام بنشر أبريل 25, 2009 قام بنشر أبريل 25, 2009 اخ khhanna راجع برنامجى المايسترو لدفع الاقساط ستجد طريقة نسخ قاعدة البيانات وإسترجاعها ---------------------------------------------- اعذرونى لوجود مشكلة فى الاتصال بالانترنت
جلال محمد قام بنشر أبريل 25, 2009 قام بنشر أبريل 25, 2009 اخى الكريم / عادل حامد السلام عليكم كود رائع وعمل اروع جزاك الله خير ولكن كيف يطبق علي كامل اوراق الملف بنسخ الكود على اوراق الملف ام توجد طريقة اخرى فالكود يعمل على ورقة واحدة تحياتى لك وللجميع
خالد الشاعر قام بنشر أبريل 25, 2009 الكاتب قام بنشر أبريل 25, 2009 استاذ احمد اشكرك جداً طريقة ممتازة ولكن اطمع فى طريقة لاسترجاع المعلومات من الملف المحفوظ هو 1 الى الملف الاصلى ولك كل الشكر والاحترام
عادل حنفي قام بنشر أبريل 25, 2009 قام بنشر أبريل 25, 2009 السلام عليكم اخي galal_mk اخى الكريم / عادل حامد السلام عليكم كود رائع وعمل اروع جزاك الله خير ولكن كيف يطبق علي كامل اوراق الملف بنسخ الكود على اوراق الملف ام توجد طريقة اخرى فالكود يعمل على ورقة واحدة تحياتى لك وللجميع اعتقدت انه انا المقصود مع ان اسمي ليس به حامد عموما اشكرك علي كلماتك و اذا كنت تقصد ان يتم حفظ الملف بالكامل في مكان ما و ليس صفحة فقط فلك الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next ActiveWorkbook.SaveAs "c:\My Backup\backup.xls" End Sub علي ان تقوم بعمل فولدر فارغ باسم My Backup في ال C و عند غلق الملف سجد ان هنا نسخف في المكان المحدد سابقا تحياتي
خالد الشاعر قام بنشر أبريل 25, 2009 الكاتب قام بنشر أبريل 25, 2009 استاذى العزيز ahh_aah2008 اعتزر اولا عن ذكر الاسم السابق وافيد بان المقصون بعد حفظ البيانات التى فى الورقة فى ملف رقم 1 على ال c اريد استرجاع البيانات المحفوظة فى ملف 1 الى المف الاساسى ولك كل الشكر على الاهتمام و الرد و اسف للمرة الثانية
عادل حنفي قام بنشر أبريل 25, 2009 قام بنشر أبريل 25, 2009 (معدل) السلام عليكم اخي khhanna عذرا اخي كلها اسماء الله انا كنت بضحك بس انت ايضا تضعني في موقف الذي يجاوب حسب تخيله فقط فاولا جعلتني افترض ان ما تريد حفظه هو صفحة و احده و الان سافترض ان هناك مجموعة صفحات محفوظه و تريد استرجاعها و اجعلني هنا ان اطيل شويه لكي تكون الفكرتان معا اولا نعمل فولدر في ال C و سميه My Backup انشئ ملف اكسل فارغ بداخله و اجعل اسم هذا الملف Recover و اجعل ملف Recover هذا به صفحة واحد و ليكن اسمها sheet1 في هذه الصفحة ادرج زر و سميه مثلا Recover و اربط بهذا الزر الكود التالي For i = 1 To Sheets.Count - 1 Sheets(i).Select Dim my_sheet As String Dim file_name As String Dim full_path As String Sheets(i).Cells(1, 1).Select file_name = Sheets(i).Name Debug.Print file_name full_path = ActiveWorkbook.Path & "\" & file_name & ".xls" Debug.Print full_path ThisWorkbook.ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=full_path Application.DisplayAlerts = True ActiveWorkbook.Close Next و احفظ الملف و اغلقه فسنحتاج هذا لاحقا افتح الملف الذي تريد ان تحفظ منه صفحة و داخل هذه الصفحة ادرج زر و سميه Backup و اربط هذا الزر بالكود التالي On Error GoTo 1 s = ActiveSheet.Name Cells.Select Selection.Copy Dim vFile As Variant vFile = "c:\My Backup\Recover.xls" Workbooks.Open vFile Sheets.Add ActiveSheet.Paste ActiveSheet.Name = s 2: ActiveWorkbook.Close Savechanges:=True Application.CutCopyMode = False MsgBox ("تـــم") Exit Sub 1: On Error Resume Next m = Sheets.Count - 2 ActiveSheet.Name = s & m GoTo 2 و احفظ الملف اضغط علي زر Backup الذي امامك سيتم عمل نسخة من الصفحة المفعله امامك في ملف Recover السبق ذكره في ال C و للتجربه فقط يمكنك ضغط زر Backup اكثر من مره فسيتم انشاء الصفحة المفعله مرة اخري باضافة رقم الي اسمها فقد عولج الكود علي هذا و لتفعل هذا مثلا اربع مرات و اغلق ملف Backup و احفظه بالكود الذي تم عمله الان اذهب الي ال C و افتح الفولدر الذي اسمه My Bacup وافتح الملف الذي انشأناه سابقا و هو Recover ستجد بداخله الصفحات التي قمنا بحفظها من ملف Backup افتح الصفحة Sheet1 و اضغط علي زر Recover سيتم فك كل صفحة من الملف كل واحدة تلو الاخري و باسمها و في الفولدر الذي اسمه My Backup ارجو ان اكون قد تمكنت من شرح العمل و سارفق ملف لما يكون عليه ملف Backup و كذلك الفولدر الذي سيوضع في ال C و بداخله ملف الاكسل Recover ارجو التجربة و اخبار عند وجود اي عقبات خالص تحياتي My_Backup.rar تم تعديل أبريل 25, 2009 بواسطه aah_aah2008
خالد الشاعر قام بنشر مايو 4, 2009 الكاتب قام بنشر مايو 4, 2009 السادة الخبراء اشكركم جداً جداً على المساعدة وتسلم ايديكم لكنى لقيت نموذج استيراد بيانات فى برنامج الاخ خبور ممتاز برجاء المساعدة على تنفيذة على الملف الخاص بى فة الرابط المرفقة http://www.officena.net/ib/index.php?showtopic=28127 ولكم كل الاحترام و الشكر
خالد الشاعر قام بنشر مايو 4, 2009 الكاتب قام بنشر مايو 4, 2009 اسف للطلب ولكنى محتاج له ضرورى الف شكر على تعبكم شكرا مقدماً
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.