كود VBA لتحديث الخلايا

[أبو ليمونه]

السلام عليكم

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

البرنامج اسمه

Kannumber.exe

الخلايا من A1 الى B5 يوجد بها روابط لهذا البرنامج

مثال خليه A1 يوجد بها :

KannumberDde|DSREFER.REFER!BESTSELLER~99284=

خليه B2 يوجد بها :

KannumberDde|DSREFER.REFER!PRODUCTNUMBER~55678=

سؤالي :

انا استخدم كود VBA يعمل كل ثانية ليقوم بعض الحسابات وهو :

Sub ScheduleCopyPriceOver()

Application.Calculation = xlCalculationManual

TimeToRun = Now + TimeValue("00:00:01")

Application.OnTime TimeToRun, "CopyPriceOver"

Application.Calculation = xlCalculationAutomatic

End Sub

هل استطيع تعديله ليقوم بتحديث جميع الخلايا التي تحتوي على روابط خارجية كل ثانية؟

انا استطيع انا اقوم بذلك يدويا عبر Data> Refresh All ولكن اريد VBA يقوم بذلك كل ثانية

شكرا لمساعدتكم

[ياسر خليل أبو البراء]

لو أمكن ارفق الملف المراد العمل عليه والبرنامج لنفهم المطلوب جيداً

[أبو ليمونه]

هلا فيك

Challenger

المشكلة ان ملف الاكسل لن يعمل الا بوجود البرنامج ولا استطع فك حمايته ووضعه

ايضا لا استطيع وضعه لحماية حقوق الشركة التي اعمل لديها وهو مخالف لعملي كمهندس كمبيوتر

هل هناك نقص بالمعلومات التي وضعهتها ؟

وشكرا لمساعدتك مقدما