اريد كود فتح الملفات عند النقر على زر الامر

الرجاء الرد والمساعدة

سواء كان الكود للاوفيس 2007 او 2003

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

أخي ما أعلم المسار التابع للأوفيس 2007 وقد يكون نفس مسار 2003

فهذا الشرح متأكد أنه يضبط مع 2003

أولا تعرف متغير نصي وتضع به قيمة مكونة من مسار البرنامج المشغل لنوع الملف الذي تريد فتحه ففي حالتنا هذه هو برنامج البوربوينت ثم تضع مسافة ثم تكتب مسار الملف الذي تريد فتحة .. والشئ الذي لم أجد له حل أن مسار الملف يجب أن لا يحتوي على أي مسافات في أي طبقة .. فالبرنامج لا يقبل هذا المسار

C:\my doc\a.pps

لأن my doc بينهما مسافة

عموما إليك الكود

Dim stAppName As String

	stAppName = "C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE C:\a.pps"
	Call Shell(stAppName, 1)

فملف البوربوينت إسمه a ويوجد في \:C

وبالتوفيق

ويمكنك استعمال هذا الكود البسيط في حدث عند النقر لزر الأمر

Me.cmdopen.HyperlinkAddress="تكتب هنا مسار الملف"

تحياتي للجميع

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

قد أكون لم أعرف أستخدمه بالشكل الصحيح .. ولكن الذي فهمته أن cmdopen ليست تابعه لعناصر النموذج .. فحاولت أقرأ عن cmdopen والعجيب لم يكتب عنها شئ في مساعدة الأكسيس .. فقرأت عن HyperlinkAddress .. والذي فهمته أنها تتبع فقط لأدوات التحكم التالية command button, image control, or label .. فكتبت الكود داخل حدث النقر لزر الأمر xx .. بالشكل التالي ونجح :

xx.HyperlinkAddress = "C:\Documents and Settings\Admin\Desktop\A.doc"
xx هو زر أمر

وأخيرا شكرا لك لأنك فتحت عيني لمعلومة جديدة علي