كيف أشغل ملف من الأكسس

[lyla]

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

[محمد طاهر عرفه]

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

shell

مثلا لفتح ملف txt بالنوت باد

Dim x
   x = Shell("notepad.exe c:\testfile.txt", 1)

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

Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)    ' Run Calculator.

مثلا مسار الملف التنفيذي للاكسيل يختلف بحسب الاصدار مثل

 
Dim ExcelPath
ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)

or

 Dim ExcelPath
ExcelPath= Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1)

[lyla]

ماقصرت على الرد . الكود هذا :

Dim ExcelPath

ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)

يوضح أن تطبيق الأكسل سيعمل لو كان الأوفس مركب على السي . ولنفترض ذلك . وعندنا ملف أسمه file.xls وموجود على دريفر دي . فكيف الحل !!! مع الشكر الجزيل .

[محمد طاهر عرفه]

كما فى المثال الاول الخاص بملف النص

نضيف مسار و اسم الملف بعد البرنامج بمسافة

Dim ExcelPath
ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE d:\layla\layla.xls", 1)

[lyla]

شكرا م/ محمد طبقت المثال وماقصرت الله يعطيك العافية