الأخوان أمير عاطف / محمد حجازي
السلام عليكم ورحمة الله وبركاته
اسف على الإزعاج لكني وضعت سؤالي بالمنتدى ولم أجد إجاية
أرجو ان أجد جواب من قبلكم
أولا / لدي عدد 4 ملفات EXCEL الأول إسمه ملخص السوق
الثاني إسمه 1010 الثالث 1020 الرابع إسمه 1030
ملخص السوق يستورد البيانات من الملف الثاني والثالث والرابع
( 1010 ترمز بالنسبة لي للوقت الساعة العاشرة وعشر دقائق )
الملفات 1010 و 1020 و1030 مربوطه مع برنامج تتغير القيم به كل ثانية
عملت ماكرو بالملف ملخص السوق عند فتح هذا الملف ثم ضغط زر الماكرو يقوم بفتح الملف 1010 للتحديث ثم يغلقه قبل أن يتم التحديث ثم مباشرة يقوم بفتح الملف 1020 للتحديث ثم يغلقه ثم مباشرة يفتح ملف 1030
ما أريده
1 - عند ضغط ور الماكرو يفتح الملف 10 10 ثم الإنتظار 10 ثواني لكي يتم التحديث بعد
ذلك يغلق الملف 1010
2 - الإنتظار مدة عشر دقائق بعد إغلاق ملف 1010 ثم فتح الملف 1020 والتحديث
كالسابق وكذلك 1030
( فتح ملف 1010 - الإنتظار 10 ثواني للتحديث - إغلاق الملف 1010 - الإنتظار 10 دقائق)
(ثم تكرار العملية مع 1020 وكذلك 1030 )
3- هل بالإمكان أن يتم التحديث بـ الباك راوند
هذا الماكرو اللي عملته مع إنه مش ولا بد
() Private Sub CommandButton1_Click
Dim n
n = 1010 ' file name
Do While n < 1040
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & n & ".xls", UpdateLinks:=3
ActiveWorkbook.Activate
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
DoEvents
ActiveWorkbook.Close savechanges:=True
DoEvents
n = n + 10
If n > 1020 Then Exit Do '1040
DoEvents
Loop
End Sub
تحياتي واسف على الإطالة أخوك سلمان