أنس دروبي قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم ورحمة الله وبركاته أساتذتي الأعضاء لدي ملف فورم لحفظ نسخة عن الملف وهو من عمل أحد الاعضاء الله يجزيهم الخير المطلوب أخواني هو نسخ الصفحة Data فقط في ملف جديد وليس الملف بالكامل وتغيير المسار من مسار البرنامج المؤقت الموجود في المستندات المخفية في القرص©الى القرص(d) في مجلد جديد فقط قمت بالتغيير في الكود ولكن حدث خطأ أرجو المساعدة فيه وشكراً مسبقاً فورم لحفظ نسخة من الملف.1.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم فورم لحفظ نسخة من الملف.rar رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 24, 2012 الكاتب مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم ورحمة الله وبركاته الله يجزيك الخير اخي أبو حنين عمل مبدع ومتقن ماشاء الله ولكن أخي الذي أريده هو التغيير على نفس الكود في اليوزرفورم الأول وليس أضافة يوزرفورم أخر علماً أن اليوزر فورم الثاني أجمل وأقوى في الأداء ولكن يوجد فيه مشكلة بسيطة وهي فتح الملف تلقائياً فأرجو التغيير على نفس اليوزرفورم الأول وذلك لغرض في ملفي المعمول عليه وشكراً أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 الاستاذ ابو حنين فورم ممتازه عمل رائع جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 العفو اخي : / Khhanna لكن أخي :Creation World لا ادري مالذي يريده فإن كان يريد حفظ الملف بصيغة أخر مثلا txt او bmp فهذا ممكن في الفورم الذي ارسلته و لم افهم ما الشيئ المهم في الفورم الذي ارسله هو و يريد الحفاظ عليه رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 24, 2012 الكاتب مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم ورحمة الله أخي أبو حنين الذي أريده هو في المشاركة الأولى في الموضوع في الفورم الأول تصحيح الكود بدلاً من ان يحفظ كافة الصفحات الموجودة في الملف إلى ملف أخر بأن يحفظ صفحة واحدة فقط وهي Data في ملف جديد أنت عملت فورم آخر فيه المطلوب بكل معنى الكلمة والله يجزيك الخير ولكن أريد التصحيح على الكود في الفورم الأول لإنه مربوط على ملف أخر عندي الله يجزيك الخير على الفورم الثاني فهو جميل واحترافي في العمل وله عمل ثاني لي ملفات قادمة أرجو أكون قد أوفيت بالشرح والمطلوب ولاتأخذننا في إتعابكم في طلباتنا فأنتم أهل العلم والمعرفة والسلام عليكم أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم قمت بالتعديل و هو يعمل بصورة طبيعية فورم لحفظ نسخة تعديل.rar رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 24, 2012 الكاتب مشاركة قام بنشر سبتمبر 24, 2012 الله يجزيك الخير أخي أبو حنين هذا هو المطلوب والمقصود شكراً لك رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 25, 2012 الكاتب مشاركة قام بنشر سبتمبر 25, 2012 (معدل) أخواني وأحبائي بعد تعديل بسيط في ملف الأخ أبو حنين قمت بتعديل الكود في الملف المرفق لكي يعمل من غير مشاهدة واجهة إكسل وعند التفيذ أعطى خطأ في النسخ الذي أريده أن يعمل الكود وينسخ الورقة المختارة من غير مشاهدة واجهة إكسل وأيضاً أثناء النسخ أرجو ان تكون الفكرة وصلت وجزاكم الله كل خير أنس دروبي فورم لحفظ نسخة من الملف.rar تم تعديل سبتمبر 25, 2012 بواسطه Creation World رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 25, 2012 مشاركة قام بنشر سبتمبر 25, 2012 السلام عليكم ورحمة الله أخي الحبيب عبد الله التعديل في الملف أعطاه مرونة في العمل وسهولة الأداء الله يجزيك الخير وأدعو الله أن يجعلك منارة للعلم نهتدي بها في طريقنا أخي لو سمحت وتكرمت علي أرجو مشاهدة هذا الرابط والمشاركة رقم(9) http://www.officena.net/ib/index.php?showtopic=43349&st=0#entry250437 والسلام عليكم أخوكم انس دروبي غير كود الزر الى التالي Private Sub CommandButton1_Click() On Error GoTo kh_err If ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox "يجب اختيار اسم الورقة و اسم المسار و اسم الملف و اسم المجلد", vbCritical, "خطأ" Exit Sub End If ''''''''''''''''''' Dim MyPathDirectory, MyNime MyPathDirectory = ComboBox1.Text & ":\" & TextBox1.Text & "\" If Dir(MyPathDirectory) = "" Then MsgBox MyPathDirectory & vbCr & "هذا المجلد غير موجود مسبقا", vbCritical, "Faute" Exit Sub End If '''''''''''''''''''' MyNime = TextBox2.Text & ".xls" If Not Dir(MyPathDirectory & MyNime) = "" Then MsgBox "هذا الملف موجود مسبقا يجب اختيار مسار آخر", vbCritical, "Faute" Exit Sub Else Sheets(ComboBox2.Text).Copy With ActiveWorkbook .SaveAs MyPathDirectory & MyNime .Close End With MsgBox "تم حفظ الملف في المسار التالي بنجاح " & vbNewLine & MyPathDirectory & MyNime, vbInformation, "حفظ" Unload Me Application.Quit End If ''''''''''''''''''' kh_err: If Err Then MsgBox "Err.Number : " & Err.Number, vbCritical, "Faute" End If End Sub رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 25, 2012 الكاتب مشاركة قام بنشر سبتمبر 25, 2012 السلام عليكم ورحمة الله أخي عبد الله قمت بنسخ الكود كما قلت لي ولكن وجدت مشكلة وهي أن الكود الأول كان يضيف مجلد جديد في المسار الذي أختاره ويضيف الملف أو النسخة في هذا المجلد في الكود الذي أعطيتنياه عند كتابة أسم مجلد جديد يعطيني رسالة تنبيه أن هذا المجلد غير موجود وكأنه يجب علي أن أضيف مجلد جديد لوحدي وبعد ذلك أن أضيف اسم الملف وهذا لا أريده قمت بحذف الكود المتعلق برسالة أن هذا المجلد غير موجود مسبقاًولكن لم أستفيد بشي أعطاني رسالة خطأ الذي أريده أخي أن يقوم الكود بإضافة مجلد جديد انا أختار اسمه بدون أن أشاهد واجهة إكسل أتعبتك معي ولكن لكي نقطع الشك باليقين أن تقوم بإرفاق ملف التعديل لو سمحت وتشكرت عليوشكراًأخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 27, 2012 الكاتب مشاركة قام بنشر سبتمبر 27, 2012 السلام عليكم ورحمة الله أخواني الكرام وأخي عبد الله باقشير الكود والملف فيه مشكلة وخطأ لا اعرف ماهو الذي أريده هو حفظ نسخة من أي ورقة في الملف المرفق السابق ولكن الكود يعمل وينفذ المطلوب بدون مشاهدة واجهة إكسل أجو المساعدة والحل للضرورة رجاءً وشكراً أنس دروبي رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 28, 2012 الكاتب مشاركة قام بنشر سبتمبر 28, 2012 السلام عليكم ورحمة الله وبركاته يا أساتذتي الكرام وعلمائي في هذا المنتدى المتميز دائماً في الأرتقاء بالفكر العربي الملف فيه خطأ ومشكلة لم تحل أبداً فالرجاء ثم الرجاء حلها أعرف أني أثقل عليكم في طلباتي ولكن أنتم أهل العلم والمعرفة ونكن ماالإ تلاميذ ننهل من علمكم وخبراتكم أرجو الرد حتى ولو بفكرة والسلام عليكم أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 28, 2012 مشاركة قام بنشر سبتمبر 28, 2012 بعد التعديل البسيط الملف يعمل عندي جربه و اخبرني فورم لحفظ نسخة.rar رابط هذا التعليق شارك More sharing options...
.thumb.jpg.546ec64fdc5bdcb6d1f6585dd86fc424.jpg)
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان