استدعاء البرامج من الاكسل

[مختار حسين محمود]

بسم الله الرحمن الرحيم


والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم  ) صلاةً الى يوم الدين

إخوانى وأحبابى وزملائى  وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته
 
أما بعد

يشرفنى أن أقدم لحضراتكم طريقة استدعاء أى برنامج من الاكسل من خلال القاعدة الأساسية الآتية :
 

Call Shell("C:\TEST\TestApplication.exe", vbNormalFocus)

لاحظ أخى الكريم مسار وامتداد البرنامج الذى نستدعيه  ده يفرق كتير

يمكن استدعاء
Notepad  Control PaneL  taskmgr  SnippingTool  calc  WORD  POWERPNT  iexplore Firefox 

 

كل هذا وأكثر

=======

vbNormalFocus   لجعل نافذة البرنامج الذى نستدعيه عادية

 

vbMaximizedFocus   للجعل نافذة البرنامج الذى نستدعيه مكبرة

 

فى المرفقين التاليين أمثلة متعددة ومتنوعة لاستدعاء  البرامج (متوافق مع ويندوز 7 )

 أتمنى أن تستفيدوا منه
 
لكم منى كل محبة وتقدير واحترام
 
***************
 

Open any Program from Excel.rar

games by mokhtar.rar

[ياسر خليل أبو البراء]

تسلم الأيادي يا أخي الحبيب مختار

أيوا كدا حرك المياة الراكنة والراكدة ..

بارك الله فيك وجزيت خير الجزاء ..تقبل تحياتي

[مختار حسين محمود]

يشرفنى مرورك دائما أخى وأستاذى ياسر 

[خزاني]

بارك الله فيك وجزيت خير الجزاء

تقبل تحياتي

[Yasser Fathi Albanna]

بارك الله أخى الحبيب / مختار

عمل رائع

[صلاح الصغير]

ا / مختار

برنامج رائع

يا ريت لو حضرنك تطور الملف الاول مثل الثانى و لكثرة البرامج يكون عن طريق كومبو بوكس تفاعلية تذيد بزيادة الكود مثلا

او حضرتك تفتحلنا محرر الاكواد يمكن نعرف نعمل حاجة

[ا بو سليمان]

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

 

ويبدولي ان العلاج هنا   

 

 

http://www.officena.net/ib/index.php?showtopic=60194

تم تعديل أبريل 3, 2015 بواسطه ا بو سليمان

[مختار حسين محمود]

أخى خزانى بارك الله فيكم

أخى ياسر فتحى بارك الله فيكم

أخى صلاح الصغير بارك الله فيكم محرر الاكواد مفتوح وليس مغلق

كل ما فيها تشيل النقطة من أمام سطر البرنامج المراد تشغيله

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

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

احنا مش هنستدعى كل البرامج دى وانما قد نحتاج اليها فى برامجنا وأكوادنا

أخى أبوايمان بارك الله فيكم

تم تعديل أبريل 3, 2015 بواسطه مختار حسين محمود

[صلاح الصغير]

ا / مختار

شكرا لاهتمامك و الرد

و لكن انا اقصد الملف الثانى الذى به userform  ربما نحتاج اكواده لنستعملها للعمل على البرامج الضرورية

باختصار كيف يمكن عمل زر امر لكل برنامج على حدة

[حمادة عمر]

بارك الله أخى الحبيب / مختار حسين محمود

عمل رائع

 

[مختار حسين محمود]

الأستاذ الفاضل حماده عمر

يسعدنى ويشرفنى مروركم الكريم

عذرا لتأخر الرد النت عندى منذ أيام كان لا يطاق

لك منى

   

[مختار حسين محمود]

أخى صلاح الأكواد فى اليوزرفورم مربوطة بــ CommandButton   يتم ادراجه أثناء عمل اليورزفورم

والأكواد المستخدمة فى اليوزرفورم هى

Option Explicit

Private Sub CommandButton1_Click()

Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus)
ActiveWindow.WindowState = xlMaximized

End Sub

Private Sub CommandButton2_Click()
Call Shell("C:\Program Files\Microsoft Games\SpiderSolitaire\SpiderSolitaire.exe", vbNormalFocus)

End Sub

Private Sub CommandButton3_Click()
Call Shell("C:\Program Files\Microsoft Games\Solitaire\Solitaire.exe", vbNormalFocus)

End Sub

Private Sub CommandButton4_Click()
Call Shell("C:\Program Files\Microsoft Games\FreeCell\FreeCell.exe", vbNormalFocus)
End Sub

Private Sub CommandButton5_Click()
Call Shell("C:\Program Files\Microsoft Games\Hearts\Hearts.exe", vbNormalFocus)
End Sub

Private Sub CommandButton6_Click()
Call Shell("C:\Program Files\Microsoft Games\Purble Place\PurblePlace.exe", vbNormalFocus)
End Sub

Private Sub CommandButton7_Click()
Call Shell("C:\Program Files\Microsoft Games\Mahjong\Mahjong.exe", vbNormalFocus)
End Sub

Private Sub CommandButton8_Click()
Call Shell("C:\Program Files\Microsoft Games\Minesweeper\Minesweeper.exe", vbNormalFocus)
 
End Sub

Private Sub CommandButton9_Click()
Unload Me
Application.Quit

End Sub

أما لو تحب استعماله  مثل أى كود عادى بزر

هيكون الكود بالشكل ده  على سبيل المثال :

 Sub Chess()

Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus)
ActiveWindow.WindowState = xlMaximized

End Sub

وأى شىء تحت أمرك    تقبل تحياتى

[أبو عبد الله _]

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

[أبو إيمان]

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

سلمت يمينك

[مختار حسين محمود]

أخى الديب

أخى أبوايمان

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

شرفت بمروركما الكريم وسعدت به  تحياتى لكما