اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

اذا كنت تعمل على ويندوز اكس بي

Dim excelfile

excelfile = Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1)
اذا كنت تعمل على ويندوز 98 او ويندوز ميلينيوم
Dim excelfile

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

بعد ذلك قم بعمل ماكرو الذي تريد بعد تنفيذ الامر سواء في الاكسيل او الاكسس

قام بنشر

اما لعمل ذلك لفتح ملف اكسيل محدد وتنفيذ ماكرو محدد داخل هذا الملف ... فيمكنك عمل ذلك عن طريق ثلاث خطوات:

الخطوة الاولى

هو عمل ماكرو داخل الاكسيل وظيفته فتح ملف الاكسيل المحدد (من داخل الاكسيل) وليكن اختصار مفاتيح الماكرو Ctrl + t

لمزيد من المعلومات عن عمل الماكرو بالكسيل اذهب هنـــــا

الخطوة الثانية

هو عمل الماكرو الذي تريد تنفيذه عندما يتم فتح ملف الاكسيل المحدد وليكن اختصار مفاتيح الماكرو Ctrl + q

لمزيد من المعلومات عن عمل الماكرو بالكسيل اذهب هنـــــا

الخطوة الثالثة

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

ويكون الشكل النهائي للكود

Dim excelfile

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

SendKeys ("^t")

SendKeys ("^q")

مع افتراض ان لديك نسخة الاوفيس اكس بي على ويندوز اكس بي

قام بنشر

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

وتغير المسار يكون في هذا السطر فقط

D:\Program Files\Microsoft Office\Office10\EXCEL.EXE

على العموم هذا الكود يعمل على اي اصدار من الويندوز او الاوفيس

Dim excelfile

excelfile = Shell("EXCEL.EXE", 1)

SendKeys ("^t")

SendKeys ("^q")

قام بنشر (معدل)

وفقك الله دنيا واخرة

نجحت وبتفوق

ولكن لدي بعض الاستفسارات

1-اريد قبل فتح ملف الاكسل يتأكد هل الانترنت يعمل ام لا واذا كان لا يعمل يظهر رسالة لا بد من الاتصال بالانترنت

2-عندي في ملف الاكسل تقريب 85 ورقة عمل تستورد بياناتها من الانترنت اريد ان اعمل ماكرو لتحديثها جميعا فكيف لي بذلك

3- اريد عند فتح الملف الاكسل يكون مخفي لا يظهر وعند الانتهاء من اجراء الماكروات يغلق مع الحفظ للتغييرات

اسمحنا

تم تعديل بواسطه أبو وليد
قام بنشر

بأذن الله

ياليت تضع الكود هنا عزيزي عبدالله

الاخ / امير

وضعت السؤال هنا لنضيف في كود فتح ملف اكسل امر الاخفاء والاغلاق مع الحفظ

  • 11 months later...
قام بنشر

السلام عليكم

يمكن فتح ملف أكسل مباشرة حسب التالي :

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

تحياتي .

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information