اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

  • أفضل إجابة
قام بنشر

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

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

Workbooks(WorkbokName).RefreshAll

قام بنشر

عزيزي شكرا لك

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

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

الف شكرا

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

قام بنشر

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

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

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

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

Workbooks(" (bb)").RefreshAll

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

Workbooks(" (bb)").Save

Workbooks(" (bb)").Close

Application.Quit

End If

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

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

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

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

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

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

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

Important Information