أبو وليد قام بنشر أغسطس 27, 2003 مشاركة قام بنشر أغسطس 27, 2003 اريد ان اعمل زر في نموذج يفتح ملف في اكسيل وينفد ماكرو وفق الله الجميع 1 رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أغسطس 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) بعد ذلك قم بعمل ماكرو الذي تريد بعد تنفيذ الامر سواء في الاكسيل او الاكسس رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أغسطس 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") مع افتراض ان لديك نسخة الاوفيس اكس بي على ويندوز اكس بي رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر أغسطس 27, 2003 الكاتب مشاركة قام بنشر أغسطس 27, 2003 شكرا أستاذي الفاضل سوف أجرب واخبرك ولكن اليس هناك كود يعمل مع الويندوز الاكس بي والملينيوم و98 سوياً بارك الله فيك رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أغسطس 28, 2003 مشاركة قام بنشر أغسطس 28, 2003 كل ما عليك هو تغيير المسار حسب نسخة الاوفيس والويندوز لديك وتغير المسار يكون في هذا السطر فقط D:\Program Files\Microsoft Office\Office10\EXCEL.EXE على العموم هذا الكود يعمل على اي اصدار من الويندوز او الاوفيس Dim excelfile excelfile = Shell("EXCEL.EXE", 1) SendKeys ("^t") SendKeys ("^q") رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر أغسطس 28, 2003 الكاتب مشاركة قام بنشر أغسطس 28, 2003 لم اجربها حتى الان وفور الانتهاء من التجربة سوف اخبركم وفقكم الله ورعاكم رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر أغسطس 29, 2003 الكاتب مشاركة قام بنشر أغسطس 29, 2003 (معدل) وفقك الله دنيا واخرة نجحت وبتفوق ولكن لدي بعض الاستفسارات 1-اريد قبل فتح ملف الاكسل يتأكد هل الانترنت يعمل ام لا واذا كان لا يعمل يظهر رسالة لا بد من الاتصال بالانترنت 2-عندي في ملف الاكسل تقريب 85 ورقة عمل تستورد بياناتها من الانترنت اريد ان اعمل ماكرو لتحديثها جميعا فكيف لي بذلك 3- اريد عند فتح الملف الاكسل يكون مخفي لا يظهر وعند الانتهاء من اجراء الماكروات يغلق مع الحفظ للتغييرات اسمحنا تم تعديل أغسطس 29, 2003 بواسطه أبو وليد رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 29, 2003 مشاركة قام بنشر أغسطس 29, 2003 بودي لو أستطيع المساعدة :) لدي كود للتحقق من الاتصال بالانترنت ولكنه طويل جداً ... حالياً أنا أبحث عن كود أقصر .. رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أغسطس 29, 2003 مشاركة قام بنشر أغسطس 29, 2003 اخي الكريم عبد الله : لو فيها ثقل تضع هذا الكود :SHY: اخي ابو وليد يمكن مناقشة ما يخص الاكسيل بقسم الاكسيل رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر أغسطس 29, 2003 الكاتب مشاركة قام بنشر أغسطس 29, 2003 بأذن الله ياليت تضع الكود هنا عزيزي عبدالله الاخ / امير وضعت السؤال هنا لنضيف في كود فتح ملف اكسل امر الاخفاء والاغلاق مع الحفظ رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أغسطس 29, 2003 مشاركة قام بنشر أغسطس 29, 2003 كود التحقق من الإتصال بالإنترنت للاخينا الفاضل عبدالله فتحي هنـــــــــــــــــــــــــــــا رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أغسطس 20, 2004 مشاركة قام بنشر أغسطس 20, 2004 السلام عليكم يمكن فتح ملف أكسل مباشرة حسب التالي : Dim excelfile '-- لتحديد موقع ملف الأكسل المراد فتحه ChDir "C:\Documents and Settings\Windows\Desktop" excelfile = Shell("EXCEL.EXE Test.xls", 1) تحياتي . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.