فتح برامج باستخدام الاكسيس

[hesham eltohamy]

السلام عليكم

حصلت علي كود لفتح ملف اكسيل وكان كالاتي

Private Sub Command6_Click()
Dim strExl As String
strExl = "D:\2017\" + Me.pass
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open strExl, True, False
Set xlApp = Nothing
End Sub

واردت ان اجربه علي فتح ملف الوورد  فتم التعديل علي النحو الاتي

Private Sub Command8_Click()
Dim strwrd As String
strwrd = Me.word
Dim DocApp As word.Application

Set DocApp = CreateObject("Word.Application")

DocApp.Visible = True
DocApp.Documents.Open strwrd

Set DocApp = Nothing

End Sub

فلم يقم بفتح الملف واعطي رسالة بان الملف غير موجود

قمت بتغيير صيغة الملف الي ورد 2003 فتم الفتح

اريد معرفة المشكلة في الورد 2010 علما بان الاكسيل كان ايضا 2010

ولكم جزيل الشكر

ملحوظة تم اضافة مكتبة الاكسيل والورد

Database4.rar

تم تعديل يناير 5, 2018 بواسطه hesham eltohamy

[hesham eltohamy]

مشكورين اعزائي تم حل المشكلة باضافة امتداد الملف docx

[صالح حمادي]

السلام عليكم

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

Application.FollowHyperlink curPath

بحيث curPath هو عنوان تواجد الملف

[hesham eltohamy]

مشكور جدا

طيب لو الملف عبارة عن صورة ما بيفتح  

يعني الصورة تفتح بواسطة window photo viewer

تم تعديل يناير 6, 2018 بواسطه hesham eltohamy

[صالح حمادي]

6 ساعات مضت, hesham eltohamy said:

طيب لو الملف عبارة عن صورة ما بيفتح  

تفضل ضع صورة صيغتها jpg على سطح المكتب و سمها مثلا 55 استعمل هذا الكود:

Dim curPath As String
curPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Application.FollowHyperlink curPath & "\55.jpg"

و غير اسم الملف كما تشاء ليتناسب مع إحتياجك و كذلك مسار الملف.

[hesham eltohamy]

مشكور اخي 

اتمني لو اعرف أعمل مثل هذه الاكواد 

يعني ما هو المطلوب معرفته كحد ادني لتركيب كود 

لو في عندك اي مرجعية او كتاب مفصل علي الفجوال بيسك

عاوز اعرف كل الاحداث والطرق والخاصية 

 

 

[صالح حمادي]

تفضل هنا وضعة تجميعية للأكواد مع وضع مثال لكل كود