مطلوب كود فجول يفتح الاكسل

[الفشل2004]

طبعا اشكر كل الشكر اخواني الاعزاء في قسمة الاكسل

وانا كلي اسف لانشغالي الفترة الماضية من دخول المنتدى

لكي استفيد وكان السبب الانشغال بالعمل

لكن اول ما اردت التعلم والاستفادة عدت الى المنتدى لاني كلي ثقة باني سوف استفيد واتعلم الجديد من هنى......

اخواني الاعزاء هذا المرة عندي طلب بسيط:

يمكن احد يعطيني كود في الفجول لزر بحيث عنما اضغط عليه يفتح لي صفحة الاكسل

............................................يعني

عندي كثير من الملفات في الاكسل

1)ملف ادخال الدرجات ، 2)ملف اخال الدرجات النهائية ، 3)ملف الكشوفات النهائية

وغيرها...

وقد قمة بتقسم الملفات عدت ملفات اكسل لكبر الملف سابقا

لكن عند رغبتي فتح احد الملفات اذهب في كل مرة واقوم بفتحه ثم اقفل الملف واذهب لفتح الاخر وهكذا

ولكن بعد التفكير قررت اعمل صفحة تشغيل في الفجول البسك بحيث اقوم بتشغيل برنامج بعد تصميمه بحيث يحوي مجموعة من الازرار

وعند اختيار احد الازرار يتم فتح الاكسل للملف المطلوب فارجو من الاخوة

الاعزاء افادتي في ذالك واعطائي كود الفجول بيسك الذي يسمح لي بتشغيل برامج الاكسل

التي قمة بتصميمها بضغط على احد الازرار

وتحياتي الحارة لكل الاعضاء

تم تعديل فبراير 15, 2005 بواسطه الفشل2004

[فلسطيني]

جرب ما يلي

Sub open_1()

Workbooks.Open Filename:="F:\excell\Clean.xls"

End Sub

بحيث يتم تغيير موقع و اسم الملف الذي تريد فتحه حسب ما تريد

[الفشل2004]

شكرا اخي العزيز فليسطيني

لكن الكود لا يعمل؟؟

قمة بنصخه وتغير موقع الملف واسم الملف لكن

لم يعمل؟؟

[محمد حجازي]

السلام عليكم ...

تأكد أخي من أنك كتبت اسم المسار بشكل صحيح ، وعلى كل حال فيمكنك الاستعانة بالأسلوب GetOpenFilename بدلاً من الأسلوب التقليدي Open.

الفرق بين الأسلوبين هو أنه في الأسلوب GetOpenFilename يعرض لك صندوق حوار فتح ملف وهذا قد يكون أفضل.

نستطيع تغيير الكود السابق إلى :

Sub open_1()
 Dim FName As String
 FName = Application.GetOpenFilename
 If FName = "False" Then Exit Sub
 Workbooks.Open Filename:=FName
End Sub

بالتوفيق

[الفشل2004]

اخي العزيز محمد

قمة بنسخ الكود ولصقة في الشيفرة لكن لثاني مرة لم يعمل

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

ظهر الزر وقمة بضغط عليه لكن لم يحدث شي

واعيد شرحي للي اريده

انا مة وعلى افتراض بتخزين ملف اكسل في المسار التالي مثلا:

c:\frf\ee.xls

لكن في الطريقتان لم يعمل ارجو التوضيح

وشكرا لكم على الاهتمام

[محمد حجازي]

السلام عليكم ...

لا أعرف لماذا لا يعمل الكود عندك؟ ، أنا الكود عندي شغال!

على أية حال ، هناك طريقة أخرى لحل مشكلتك ، وذلك عن طريق الارتباط التشعبي.

جرب و أخبرني بالنتيجة