تعديل ملف فورم لحفظ نسخة عن الملف

[أنس دروبي]

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

أساتذتي الأعضاء لدي ملف فورم لحفظ نسخة عن الملف

وهو من عمل أحد الاعضاء الله يجزيهم الخير

المطلوب أخواني هو نسخ الصفحة Data فقط في ملف جديد وليس الملف بالكامل وتغيير المسار من مسار البرنامج المؤقت الموجود في المستندات المخفية في القرص©الى القرص(d) في مجلد جديد فقط قمت بالتغيير في الكود ولكن حدث خطأ أرجو المساعدة فيه

وشكراً مسبقاً

فورم لحفظ نسخة من الملف.1.rar

[أبو حنــــين]

السلام عليكم

فورم لحفظ نسخة من الملف.rar

[أنس دروبي]

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

الله يجزيك الخير اخي أبو حنين

عمل مبدع ومتقن ماشاء الله

ولكن أخي الذي أريده هو التغيير على نفس الكود في اليوزرفورم الأول وليس أضافة يوزرفورم أخر

علماً أن اليوزر فورم الثاني أجمل وأقوى في الأداء ولكن يوجد فيه مشكلة بسيطة وهي فتح الملف تلقائياً

فأرجو التغيير على نفس اليوزرفورم الأول وذلك لغرض في ملفي المعمول عليه

وشكراً

أخوكم أنس دروبي

[خالد الشاعر]

الاستاذ ابو حنين

فورم ممتازه عمل رائع

جزاك الله كل خير

[أبو حنــــين]

العفو اخي : / Khhanna

لكن أخي :Creation World لا ادري مالذي يريده

فإن كان يريد حفظ الملف بصيغة أخر مثلا txt او bmp فهذا ممكن في الفورم الذي ارسلته و لم افهم ما الشيئ المهم في الفورم الذي ارسله هو و يريد الحفاظ عليه

[أنس دروبي]

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

أخي أبو حنين الذي أريده هو في المشاركة الأولى في الموضوع

في الفورم الأول تصحيح الكود بدلاً من ان يحفظ كافة الصفحات الموجودة في الملف إلى ملف أخر

بأن يحفظ صفحة واحدة فقط وهي Data في ملف جديد

أنت عملت فورم آخر فيه المطلوب بكل معنى الكلمة والله يجزيك الخير

ولكن أريد التصحيح على الكود في الفورم الأول لإنه مربوط على ملف أخر عندي

الله يجزيك الخير على الفورم الثاني فهو جميل واحترافي في العمل وله عمل ثاني لي ملفات قادمة

أرجو أكون قد أوفيت بالشرح والمطلوب ولاتأخذننا في إتعابكم في طلباتنا فأنتم أهل العلم والمعرفة

والسلام عليكم

أخوكم أنس دروبي

[أبو حنــــين]

السلام عليكم

قمت بالتعديل و هو يعمل بصورة طبيعية

فورم لحفظ نسخة تعديل.rar

[أنس دروبي]

الله يجزيك الخير أخي أبو حنين هذا هو المطلوب والمقصود

شكراً لك

[أنس دروبي]

أخواني وأحبائي بعد تعديل بسيط في ملف الأخ أبو حنين

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

الذي أريده أن يعمل الكود وينسخ الورقة المختارة من غير مشاهدة واجهة إكسل وأيضاً أثناء النسخ

أرجو ان تكون الفكرة وصلت

وجزاكم الله كل خير

أنس دروبي

فورم لحفظ نسخة من الملف.rar

تم تعديل سبتمبر 25, 2012 بواسطه Creation World

[عبدالله باقشير]

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

أخي الحبيب عبد الله

التعديل في الملف أعطاه مرونة في العمل وسهولة الأداء

الله يجزيك الخير وأدعو الله أن يجعلك منارة للعلم نهتدي بها في طريقنا

أخي لو سمحت وتكرمت علي أرجو مشاهدة هذا الرابط والمشاركة رقم(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

[أنس دروبي]

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

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

في الكود الذي أعطيتنياه عند كتابة أسم مجلد جديد يعطيني رسالة تنبيه أن هذا المجلد غير موجود

وكأنه يجب علي أن أضيف مجلد جديد لوحدي وبعد ذلك أن أضيف اسم الملف

وهذا لا أريده قمت بحذف الكود المتعلق برسالة أن هذا المجلد غير موجود مسبقاًولكن لم أستفيد بشي أعطاني رسالة خطأ الذي أريده أخي أن يقوم الكود بإضافة مجلد جديد انا أختار اسمه بدون أن أشاهد واجهة إكسل أتعبتك معي ولكن لكي نقطع الشك باليقين أن تقوم بإرفاق ملف التعديل لو سمحت وتشكرت عليوشكراًأخوكم أنس دروبي

[أنس دروبي]

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

أخواني الكرام وأخي عبد الله باقشير

الكود والملف فيه مشكلة وخطأ لا اعرف ماهو

الذي أريده هو حفظ نسخة من أي ورقة في الملف المرفق السابق ولكن الكود يعمل وينفذ المطلوب بدون مشاهدة واجهة إكسل

أجو المساعدة والحل للضرورة رجاءً

وشكراً

أنس دروبي

[أنس دروبي]

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

يا أساتذتي الكرام وعلمائي في هذا المنتدى المتميز دائماً في الأرتقاء بالفكر العربي

الملف فيه خطأ ومشكلة لم تحل أبداً

فالرجاء ثم الرجاء حلها

أعرف أني أثقل عليكم في طلباتي ولكن أنتم أهل العلم والمعرفة

ونكن ماالإ تلاميذ ننهل من علمكم وخبراتكم

أرجو الرد حتى ولو بفكرة

والسلام عليكم

أخوكم أنس دروبي

[أبو حنــــين]

بعد التعديل البسيط الملف يعمل عندي جربه و اخبرني

فورم لحفظ نسخة.rar