تحديث بيانات مجموعة ورق اعمال

[أبو وليد]

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

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

[امير عاطف]

بالنسبة لسؤال الأول:

للتحديث دفتر العمل Workbook بكل اوراق العمل الذي يحتويها ضع هذا الكود في الماكرو الذي تريد او كحدث لزر امر (داخل ال VBA)

Workbooks(WorkbokName).RefreshAll

[أبو وليد]

عزيزي شكرا لك

اخي لم ينج معي الكود ( workboname وضعت مكانها اسم الملف )

يعطيني رسالة ( صب سكربت اوت اوف رينج )

الف شكرا

وجزاك الله الف خير

[امير عاطف]

تأكد من وضع الأقواس المزدوجة " " حول اسم دفتر العمل وها هو مثلاً كود لدفتر عمل اسمه Book1

Workbooks("BOOK1.XLS").RefreshAll

[أبو وليد]

شكرا اخي

لقد نجح الكود

[Sharaf]

يمكن كذالك من خلال امر refresh all

الموجود بشريك الادوات الخاص باستيراد بيانات خارجية

و يمكن تشغيلة من قائمة عرض

[أبو وليد]

Workbooks(" (bb)").RefreshAll

If Workbooks(" (bb)").WriteReserved Then

Workbooks(" (bb)").Save

Workbooks(" (bb)").Close

Application.Quit

End If

كتبت هذا الكود لتحديث جميع الاوراق والحفظ والاغلاق نجح التحديث ولم ينجح الحفظ والاغلاق

للمعلومية الكلام الملخبط هذا هو

تم تعديل أغسطس 30, 2003 بواسطه أبو وليد

[امير عاطف]

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

هذا الكود يقوم بذلك

Private Sub Workbook_Open()

'هذا السطر لإخفاء شاشة الاكسيل

Application.Visible = False


'هنا تضع الأوامر الذي تريد تشغيلها سواء ماكروات أو اي شيء


'هذا السطر لاغلاق ملف الاكسيل مع الحفظ

Workbooks("FileName.XLS").Close SaveChanges:=True

End Sub

[أبو وليد]

بارك الله فيك

[أبو وليد]

لم تنجح معي حيث يفلق الملف التحديث

[امير عاطف]

حيث يفلق الملف التحديث

؟؟؟؟؟

لو سمحت قم بتوضيح اكثر

[أبو وليد]

لو مثلنل اعطينا امر

Workbooks("FileName.XLS").refreshall

Workbooks("FileName.XLS").Close SaveChanges:=True

يفتح الملف ويغلق بسرعة

علما بأ، التحديث يستمر اكثر من عشر دقائق

يعني ما ينتظر التحديث

[امير عاطف]

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

[أبو وليد]

جزاك الله خيرا

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