كود لفتح ملف اكسيل من زر في نموذج

[بلال منذر]

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

هل يمكنني ان اضيف ملف اكسيل من نموذج في اكسس بالضغط على زر، وان كان نعم فعلا ارشدتموني .

 

[kaser906]

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

راجع الرابط التالي

::بالتوفيق::

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

[بلال منذر]

بارك الله فيك استذنا kaser906.

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

جربت حطيت موقع الملف في الكود لكن ماصلحت .

هل فيه كود ام ماذ

 

[kaser906]

Dim excelfile
'-- لتحديد موقع ملف الأكسل المراد فتحه
ChDir "C:\Documents and Settings\Windows\Desktop"
excelfile = Shell("EXCEL.EXE Test.xls", 1)

 

::بالتوفيق::

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم