salman a قام بنشر يونيو 30, 2005 قام بنشر يونيو 30, 2005 الأخوان أمير عاطف / محمد حجازي السلام عليكم ورحمة الله وبركاته اسف على الإزعاج لكني وضعت سؤالي بالمنتدى ولم أجد إجاية أرجو ان أجد جواب من قبلكم أولا / لدي عدد 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 تحياتي واسف على الإطالة أخوك سلمان
محمد حجازي قام بنشر يوليو 1, 2005 قام بنشر يوليو 1, 2005 السلام عليكم ... ضع هذا الكود في الـ 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 قام بنشر يوليو 1, 2005 الكاتب قام بنشر يوليو 1, 2005 الأستاذ محمد حجازي السلام عليكم اشكر لك سيدي تجاوبك معي بالنسبة للموقت الزمني أنا اريده كل عشر دقائق واسف لو ثقلت عليك كما ارجو التواصل معي علي الإميل salmanhmz@yahoo.com
محمد حجازي قام بنشر يوليو 3, 2005 قام بنشر يوليو 3, 2005 السلام عليكم ... جرب التعديل التالي : 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 قام بنشر يوليو 6, 2005 الكاتب قام بنشر يوليو 6, 2005 (معدل) الاستا محمد مساء الخير لدينا الأن ملف ( ملخص السوق ) ملف ( 1010 ) ملف ( 1020 ) ملف ( 1030 ) ملحص السوق مربوط بتلك الملفات المطلوب التالي عندما نفتح ملخص السوق ونضغط زر التحديث اولا فتح ملف 1010 ولا يتم إقفاله إلى بعد مضي عشر دقائق ( مع بقاء ملخص السوق مفتوح ) بعد إقفال ملف 1010 مباشرة يتم فتح ملف 1020 ولا يتم إقفاله إلى بعد مضي عشر دقائق بعد إقفال ملف 1020 مباشرة يتم فتح ملف 1030 ولا يتم إقفاله إلى بعد مضي عشر دقائق الطريقة التي عملتها لي أعلاه تقوم بالتحديث من الملفات دفعة واحدة بوقت واحد وليس هذا هو المطلوب تم تعديل يوليو 6, 2005 بواسطه salman a
الردود الموصى بها