تحديث الملف كل فتره

[salman a]

الأخوان أمير عاطف / محمد حجازي

السلام عليكم ورحمة الله وبركاته

اسف على الإزعاج لكني وضعت سؤالي بالمنتدى ولم أجد إجاية

أرجو ان أجد جواب من قبلكم

أولا / لدي عدد 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

تحياتي واسف على الإطالة أخوك سلمان

[محمد حجازي]

السلام عليكم ...

ضع هذا الكود في الـ ThisWorkbook الخاص بملف ملخص السوق:

Sub MyRefresh()
  MyFiles = Array("1010.xls", "1020.xls", "1040.xls") ' files name
  For Each MyName In MyFiles
    Me.UpdateLink Name:=Me.Path & "\" & MyName, Type:=xlExcelLinks
  Next MyName
End Sub

و إذا كنت بحاجة لمؤقت زمني ، فنحن بالخدمة .

Refresh.rar

[salman a]

الأستاذ محمد حجازي

السلام عليكم

اشكر لك سيدي تجاوبك معي

بالنسبة للموقت الزمني أنا اريده كل عشر دقائق واسف لو ثقلت عليك

كما ارجو التواصل معي علي الإميل

salmanhmz@yahoo.com

[محمد حجازي]

السلام عليكم ...

جرب التعديل التالي :

Private RunWhen As Double
Public Sub RunRefresh()
  MyFiles = Array("1010.xls", "1020.xls", "1040.xls") ' files name
  For Each MyName In MyFiles
    Workbooks("ملخص السوق").UpdateLink Name:=Workbooks("ملخص السوق").Path & "\" & MyName, Type:=xlExcelLinks
  Next MyName
  RunWhen = Now + TimeSerial(0, 10, 0)
  Application.OnTime RunWhen, "RunRefresh", , True
End Sub
Public Sub StopRefresh()
  On Error Resume Next
  Application.OnTime RunWhen, "RunRefresh", , False
  RunWhen = 0
End Sub

Refresh1.rar

[salman a]

الاستا محمد مساء الخير

لدينا الأن ملف ( ملخص السوق )

ملف ( 1010 )

ملف ( 1020 )

ملف ( 1030 )

ملحص السوق مربوط بتلك الملفات

المطلوب التالي

عندما نفتح ملخص السوق ونضغط زر التحديث

اولا فتح ملف 1010 ولا يتم إقفاله إلى بعد مضي عشر دقائق ( مع بقاء ملخص السوق مفتوح )

بعد إقفال ملف 1010 مباشرة يتم فتح ملف 1020 ولا يتم إقفاله إلى بعد مضي عشر دقائق

بعد إقفال ملف 1020 مباشرة يتم فتح ملف 1030 ولا يتم إقفاله إلى بعد مضي عشر دقائق

الطريقة التي عملتها لي أعلاه تقوم بالتحديث من الملفات دفعة واحدة بوقت واحد وليس هذا هو المطلوب

تم تعديل يوليو 6, 2005 بواسطه salman a