أبو وليد قام بنشر أغسطس 27, 2003 قام بنشر أغسطس 27, 2003 اريد ان اعمل زر في نموذج يفتح ملف في اكسيل وينفد ماكرو وفق الله الجميع 1
امير عاطف قام بنشر أغسطس 27, 2003 قام بنشر أغسطس 27, 2003 اذا كنت تعمل على ويندوز اكس بي 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) بعد ذلك قم بعمل ماكرو الذي تريد بعد تنفيذ الامر سواء في الاكسيل او الاكسس
امير عاطف قام بنشر أغسطس 27, 2003 قام بنشر أغسطس 27, 2003 اما لعمل ذلك لفتح ملف اكسيل محدد وتنفيذ ماكرو محدد داخل هذا الملف ... فيمكنك عمل ذلك عن طريق ثلاث خطوات: الخطوة الاولى هو عمل ماكرو داخل الاكسيل وظيفته فتح ملف الاكسيل المحدد (من داخل الاكسيل) وليكن اختصار مفاتيح الماكرو Ctrl + t لمزيد من المعلومات عن عمل الماكرو بالكسيل اذهب هنـــــا الخطوة الثانية هو عمل الماكرو الذي تريد تنفيذه عندما يتم فتح ملف الاكسيل المحدد وليكن اختصار مفاتيح الماكرو Ctrl + q لمزيد من المعلومات عن عمل الماكرو بالكسيل اذهب هنـــــا الخطوة الثالثة هي كتابة الكود ببرنامجك على الاكسس ويكون الشكل النهائي للكود Dim excelfile excelfile = Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1) SendKeys ("^t") SendKeys ("^q") مع افتراض ان لديك نسخة الاوفيس اكس بي على ويندوز اكس بي
أبو وليد قام بنشر أغسطس 27, 2003 الكاتب قام بنشر أغسطس 27, 2003 شكرا أستاذي الفاضل سوف أجرب واخبرك ولكن اليس هناك كود يعمل مع الويندوز الاكس بي والملينيوم و98 سوياً بارك الله فيك
امير عاطف قام بنشر أغسطس 28, 2003 قام بنشر أغسطس 28, 2003 كل ما عليك هو تغيير المسار حسب نسخة الاوفيس والويندوز لديك وتغير المسار يكون في هذا السطر فقط D:\Program Files\Microsoft Office\Office10\EXCEL.EXE على العموم هذا الكود يعمل على اي اصدار من الويندوز او الاوفيس Dim excelfile excelfile = Shell("EXCEL.EXE", 1) SendKeys ("^t") SendKeys ("^q")
أبو وليد قام بنشر أغسطس 28, 2003 الكاتب قام بنشر أغسطس 28, 2003 لم اجربها حتى الان وفور الانتهاء من التجربة سوف اخبركم وفقكم الله ورعاكم
أبو وليد قام بنشر أغسطس 29, 2003 الكاتب قام بنشر أغسطس 29, 2003 (معدل) وفقك الله دنيا واخرة نجحت وبتفوق ولكن لدي بعض الاستفسارات 1-اريد قبل فتح ملف الاكسل يتأكد هل الانترنت يعمل ام لا واذا كان لا يعمل يظهر رسالة لا بد من الاتصال بالانترنت 2-عندي في ملف الاكسل تقريب 85 ورقة عمل تستورد بياناتها من الانترنت اريد ان اعمل ماكرو لتحديثها جميعا فكيف لي بذلك 3- اريد عند فتح الملف الاكسل يكون مخفي لا يظهر وعند الانتهاء من اجراء الماكروات يغلق مع الحفظ للتغييرات اسمحنا تم تعديل أغسطس 29, 2003 بواسطه أبو وليد
عبد الله فتحي قام بنشر أغسطس 29, 2003 قام بنشر أغسطس 29, 2003 بودي لو أستطيع المساعدة :) لدي كود للتحقق من الاتصال بالانترنت ولكنه طويل جداً ... حالياً أنا أبحث عن كود أقصر ..
امير عاطف قام بنشر أغسطس 29, 2003 قام بنشر أغسطس 29, 2003 اخي الكريم عبد الله : لو فيها ثقل تضع هذا الكود :SHY: اخي ابو وليد يمكن مناقشة ما يخص الاكسيل بقسم الاكسيل
أبو وليد قام بنشر أغسطس 29, 2003 الكاتب قام بنشر أغسطس 29, 2003 بأذن الله ياليت تضع الكود هنا عزيزي عبدالله الاخ / امير وضعت السؤال هنا لنضيف في كود فتح ملف اكسل امر الاخفاء والاغلاق مع الحفظ
امير عاطف قام بنشر أغسطس 29, 2003 قام بنشر أغسطس 29, 2003 كود التحقق من الإتصال بالإنترنت للاخينا الفاضل عبدالله فتحي هنـــــــــــــــــــــــــــــا
أبو هادي قام بنشر أغسطس 20, 2004 قام بنشر أغسطس 20, 2004 السلام عليكم يمكن فتح ملف أكسل مباشرة حسب التالي : 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.