أبو وليد قام بنشر أغسطس 29, 2003 قام بنشر أغسطس 29, 2003 عندي في ملف الاكسل تقريب 85 ورقة عمل تستورد بياناتها من الانترنت اريد ان اعمل ماكرو لتحديثها جميعا فكيف لي بذلك 3- اريد عند فتح الملف الاكسل يكون مخفي لا يظهر وعند الانتهاء من اجراء الماكروات يغلق مع الحفظ للتغييرات
أفضل إجابة امير عاطف قام بنشر أغسطس 29, 2003 أفضل إجابة قام بنشر أغسطس 29, 2003 بالنسبة لسؤال الأول: للتحديث دفتر العمل Workbook بكل اوراق العمل الذي يحتويها ضع هذا الكود في الماكرو الذي تريد او كحدث لزر امر (داخل ال VBA) Workbooks(WorkbokName).RefreshAll
أبو وليد قام بنشر أغسطس 29, 2003 الكاتب قام بنشر أغسطس 29, 2003 عزيزي شكرا لك اخي لم ينج معي الكود ( workboname وضعت مكانها اسم الملف ) يعطيني رسالة ( صب سكربت اوت اوف رينج ) الف شكرا وجزاك الله الف خير
امير عاطف قام بنشر أغسطس 29, 2003 قام بنشر أغسطس 29, 2003 تأكد من وضع الأقواس المزدوجة " " حول اسم دفتر العمل وها هو مثلاً كود لدفتر عمل اسمه Book1 Workbooks("BOOK1.XLS").RefreshAll
Sharaf قام بنشر أغسطس 30, 2003 قام بنشر أغسطس 30, 2003 يمكن كذالك من خلال امر refresh all الموجود بشريك الادوات الخاص باستيراد بيانات خارجية و يمكن تشغيلة من قائمة عرض
أبو وليد قام بنشر أغسطس 30, 2003 الكاتب قام بنشر أغسطس 30, 2003 (معدل) Workbooks(" (bb)").RefreshAll If Workbooks(" (bb)").WriteReserved Then Workbooks(" (bb)").Save Workbooks(" (bb)").Close Application.Quit End If كتبت هذا الكود لتحديث جميع الاوراق والحفظ والاغلاق نجح التحديث ولم ينجح الحفظ والاغلاق للمعلومية الكلام الملخبط هذا هو تم تعديل أغسطس 30, 2003 بواسطه أبو وليد
امير عاطف قام بنشر أغسطس 30, 2003 قام بنشر أغسطس 30, 2003 اريد عند فتح الملف الاكسل يكون مخفي لا يظهر وعند الانتهاء من اجراء الماكروات يغلق مع الحفظ للتغييرات هذا الكود يقوم بذلك Private Sub Workbook_Open() 'هذا السطر لإخفاء شاشة الاكسيل Application.Visible = False 'هنا تضع الأوامر الذي تريد تشغيلها سواء ماكروات أو اي شيء 'هذا السطر لاغلاق ملف الاكسيل مع الحفظ Workbooks("FileName.XLS").Close SaveChanges:=True End Sub
امير عاطف قام بنشر سبتمبر 6, 2003 قام بنشر سبتمبر 6, 2003 حيث يفلق الملف التحديث ؟؟؟؟؟ لو سمحت قم بتوضيح اكثر
أبو وليد قام بنشر سبتمبر 6, 2003 الكاتب قام بنشر سبتمبر 6, 2003 لو مثلنل اعطينا امر Workbooks("FileName.XLS").refreshall Workbooks("FileName.XLS").Close SaveChanges:=True يفتح الملف ويغلق بسرعة علما بأ، التحديث يستمر اكثر من عشر دقائق يعني ما ينتظر التحديث
امير عاطف قام بنشر سبتمبر 7, 2003 قام بنشر سبتمبر 7, 2003 Private Sub Workbook_Open() 'هذا السطر لإخفاء شاشة الاكسيل Application.Visible = False 'هنا تضع الأوامر الذي تريد تشغيلها سواء ماكروات أو اي شيء Dim PauseTime, Start PauseTime = 660 'هذا السطر لكي ينتظر احدى عشر دقيقة قبل الاغلاق Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'هذا السطر لاغلاق ملف الاكسيل مع الحفظ Workbooks("FileName.XLS").Close SaveChanges:=True End Sub
أبو وليد قام بنشر سبتمبر 7, 2003 الكاتب قام بنشر سبتمبر 7, 2003 جزاك الله خيرا اخي الا استطيع اعطيه كود اذا انتهى من التحديث بدلا عن الوقت فربما يزيد الوقت او يقل
الردود الموصى بها