كيف استطيع ان اجلب بيانات من صفحات متعدده منفصله الى مكان وا حد في اكسل

[ا بو سليمان]

المقصود  ليس  جلب بيانات من صفحات  متعدده    الى صفحة    في اكسل 

 

ولكن 

 

جلب  بيانات   صفحات  من ملفات  مستقله    الى   صفحة    في  ملف  اكسل اخري  

 

مثال  عندي  ملف  رقم   1          وملف  رقم   2            وملف  رقم  3           وهكذا

 

مطلوب طريقه   جلب بيانات تلك الملفات            الى  ملف  مغاير  مستقل   وليكن   ملف  اسمة   zmzm

 

عند فتح  ملف zmzm   يضهر  لي  البيانات التي تم جلبها من  الملفات الاخري 

 

منتظرررررررين ابداع  اعضاء اوفسينا  ا لكرام

     

تم تعديل مايو 15, 2014 بواسطه زمزم

[ا بو سليمان]

نحن هنا  يااااااااااااااااااااااااا  ساده يا كرام

[ا بو سليمان]

مساء الخيرات و المسرات   

[طائع]

ارفق مرفق تجد الحل

[طائع]

واليك مرفق على ما فهمت من كلامك 

New Folder (3).rar

[ا بو سليمان]

شكرا لك اخي هاني  

 

هذا  رابط  الملف 

 

<a href='http://www.wata.cc/up/2014/05/files/w-e2c30c352c.rar' target='_blank' ><img src='http://www.wata.cc/up/./extension/rar.gif' border='0' alt='مركز واتا لرفع الملفات'></a>

يحوي على  الملف على  مجموعة من الشركات   وتتكرر الشركات   في الملفات الاخري   بنفس النمط ولكن الاسعار متغيره 

 

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

[ا بو سليمان]

سبحان الله  والحمد الله   ولا  اله الا الله   .والله اكبر........تثقل الميزان يوم القيامة

تم تعديل مايو 18, 2014 بواسطه زمزم

[طائع]

اخى هذه الروابط لا لاتعمل ارفق ملف للعمل عليه

[ا بو سليمان]

اخى هذه الروابط لا لاتعمل ارفق ملف للعمل عليه

السلام عليكم   

 

http://www.wata.cc/u...-e2c30c352c.rar

[ا بو سليمان]

http://www.wata.cc/u...-e2c30c352c.rar

 

 

 

الرابط يعمل 100%

 

المف كبير  لا يسمح بالمرفقات بتحميله

[ا بو سليمان]

لا زلت انتظر الاجابه 

[ا بو سليمان]

http://www.wata.cc/u...-e2c30c352c.rar

 

 

 

الرابط يعمل 100%

 

المف كبير  لا يسمح بالمرفقات بتحميله

[H_BioMed]

ماراح تلقى رد تفضل ممكن موضوعي يخدمك 

 

http://www.officena.net/ib/index.php?showtopic=53909

 

[H_BioMed]

أخي زمزم انت حاط كل شركة بملف لحاله، لكن المجلدات هذي ايش؟ تداول كل يوم ولا كيف مافهمت وش اللي انت محتاجه بالظبط حملت الملف بس لقيته عكس اللي فهمته. وضح لي المطلوب وبساعدك اللي بيفتح الله علي، مع ان خبرتي قليلة جداً بالفيجوال

[ا بو سليمان]

أخي زمزم انت حاط كل شركة بملف لحاله، لكن المجلدات هذي ايش؟ تداول كل يوم ولا كيف مافهمت وش اللي انت محتاجه بالظبط حملت الملف بس لقيته عكس اللي فهمته. وضح لي المطلوب وبساعدك اللي بيفتح الله علي، مع ان خبرتي قليلة جداً بالفيجوال

حياك الله   شكرا على مرورك الكريم على الموضوع

 

هذه قاعدة بيانات  للبورصة

[شوقي ربيع]

السلام عليكم

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

و يقوم بكتابة اسماء الملفات المحتواة في المجلدات الفرعية  في رؤس الاعمدة في الشيت الذي يحمل اسم نفس الملف

و يرحل العمود الاول لتلك الملفات في العمود الذي يحمل اسم الملف

جربه لكي تفهمه اكثر

Option Explicit


Sub Test()
Dim Url As String: Url = ThisWorkbook.Path
Dim Scr: Set Scr = CreateObject("Scripting.FileSystemObject")
Dim F: Set F = Scr.GetFolder(Url)
Dim Fil
Dim Cl As Integer: Cl = 2

For Each Fil In F.SubFolders
If Cl - 1 <= Sheets.Count Then
Sheets(Cl - 1).Activate
If Sheets(Cl - 1).Name <> Fil.Name Then Sheets(Cl - 1).Name = Fil.Name
Else
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Fil.Name
Sheets(Sheets.Count).Activate
End If
Call LoopFiles(Fil.Name)
Cl = Cl + 1
Next

    Set Scr = Nothing
    Set F = Nothing



End Sub

Sub LoopFiles(Folder As String)
    Dim Url As String: Url = ThisWorkbook.Path & "\" & Folder & "\"
    Dim StrFile As String: StrFile = Dir(Url & "\*csv*")
    Dim Clm As Long: Clm = 1
    Dim Rw As Long
    Dim A As String
Application.ScreenUpdating = False
    Do While Len(StrFile) > 0
        Rw = 2
        Cells(1, Clm) = "Nom Files " & StrFile
        Columns(Clm).AutoFit
        Open Url & StrFile For Input As #1
            While Not EOF(1)
            Line Input #1, A
            Cells(Rw, Clm) = A
            Rw = Rw + 1
            Wend
        Close #1
        Clm = Clm + 1
        StrFile = Dir
    Loop
Application.ScreenUpdating = True
End Sub

تحياتي

[ا بو سليمان]

السلام عليكم

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

و يقوم بكتابة اسماء الملفات المحتواة في المجلدات الفرعية  في رؤس الاعمدة في الشيت الذي يحمل اسم نفس الملف

و يرحل العمود الاول لتلك الملفات في العمود الذي يحمل اسم الملف

جربه لكي تفهمه اكثر

Option Explicit


Sub Test()
Dim Url As String: Url = ThisWorkbook.Path
Dim Scr: Set Scr = CreateObject("Scripting.FileSystemObject")
Dim F: Set F = Scr.GetFolder(Url)
Dim Fil
Dim Cl As Integer: Cl = 2

For Each Fil In F.SubFolders
If Cl - 1 <= Sheets.Count Then
Sheets(Cl - 1).Activate
If Sheets(Cl - 1).Name <> Fil.Name Then Sheets(Cl - 1).Name = Fil.Name
Else
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Fil.Name
Sheets(Sheets.Count).Activate
End If
Call LoopFiles(Fil.Name)
Cl = Cl + 1
Next

    Set Scr = Nothing
    Set F = Nothing



End Sub

Sub LoopFiles(Folder As String)
    Dim Url As String: Url = ThisWorkbook.Path & "\" & Folder & "\"
    Dim StrFile As String: StrFile = Dir(Url & "\*csv*")
    Dim Clm As Long: Clm = 1
    Dim Rw As Long
    Dim A As String
Application.ScreenUpdating = False
    Do While Len(StrFile) > 0
        Rw = 2
        Cells(1, Clm) = "Nom Files " & StrFile
        Columns(Clm).AutoFit
        Open Url & StrFile For Input As #1
            While Not EOF(1)
            Line Input #1, A
            Cells(Rw, Clm) = A
            Rw = Rw + 1
            Wend
        Close #1
        Clm = Clm + 1
        StrFile = Dir
    Loop
Application.ScreenUpdating = True
End Sub

تحياتي

غفر الله  لك اخي شوقي    واسعدك

 

انا لا اغرف   اين توضع  هذه    الاكواد ....؟؟؟  

[يوسف شرف]

السلام عليكم 

 تفضل أخي الاجابة في الموضوع الآتي 

فورم بحث في عدة ملفات اكسل عن طريق ملف رئيسي 

 

http://www.officena.net/ib/?showtopic=29696

[ا بو سليمان]

السلام عليكم 

 تفضل أخي الاجابة في الموضوع الآتي 

فورم بحث في عدة ملفات اكسل عن طريق ملف رئيسي 

 

http://www.officena.net/ib/?showtopic=29696

حبيب قلبي يوسف    

 

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

 

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

[شوقي ربيع]

لسلام عليكم

ضع هذا الملف في المجلد الذي يحوي المجلدات التي تحوي على الملفات المراد جلب بياناتها لديك

افتح الملف واضغط على الزر انتظر قليلا لان الكود يأخذ شوية وقت لكثرة المجلدات والملفات لديك وسترى النتيجة

 

Test.rar

[ا بو سليمان]

لسلام عليكم

ضع هذا الملف في المجلد الذي يحوي المجلدات التي تحوي على الملفات المراد جلب بياناتها لديك

افتح الملف واضغط على الزر انتظر قليلا لان الكود يأخذ شوية وقت لكثرة المجلدات والملفات لديك وسترى النتيجة

 

حياك الله  اخي  ربيع  

 

هذا رابط الملفات التي ارغب التعامل معها 

 

http://www.wata.cc/u...-e2c30c352c.rar

[H_BioMed]

السلام عليكم، 

 

تفضل اخي زمزم حمل هذا الملف فك الظغط عنه

 

http://www.gulfup.com/?zEI43W

 

تلقى فيه مجلدات الملفات اللي فيها بيانات الاسهم

وفيه ملف اسمه [ index ] ملف اكسل

ادخل عليه تلقى زر اظغط عليه راح يجيب لك بيانات كل ملفات الاكسل اللي داخل المجلدات

راح يفتح لكل مجلد ورقة شيت خاصة به

وكل ملف داخل المجلد راح يخلي بياناته داخل عامود مستقل

مثلاً 

اسم المجلد : 2014-04-21

ملفات اكسل داخل المجلد: 1010 - 1020

راح يكون اسم الشيت [ 2014-04-21 ] و ملف [ 1010  ] كل بياناته تضاف داخل العامود الاول و [1020] العامود الثاني،، وهكذا الى نهاية المجلدات والملفات

 

اتمنى ان يكون هذا هو المطلوب هو اقتباس من عمل الاخوان ودمجه كما تحتاج كل الشكر لهم جميعاً ..

 

 

لكن اخي زمزم هذه البيانات من اين تحصل عليها ياليت تفيدني لأن مشكلتي بهذه البيانات من وين احصل عليها

 

 

 

بالتوفيق.

[ا بو سليمان]

السلام عليكم، 

 

تفضل اخي زمزم حمل هذا الملف فك الظغط عنه

 

http://www.gulfup.com/?zEI43W

 

تلقى فيه مجلدات الملفات اللي فيها بيانات الاسهم

وفيه ملف اسمه [ index ] ملف اكسل

ادخل عليه تلقى زر اظغط عليه راح يجيب لك بيانات كل ملفات الاكسل اللي داخل المجلدات

راح يفتح لكل مجلد ورقة شيت خاصة به

وكل ملف داخل المجلد راح يخلي بياناته داخل عامود مستقل

مثلاً 

اسم المجلد : 2014-04-21

ملفات اكسل داخل المجلد: 1010 - 1020

راح يكون اسم الشيت [ 2014-04-21 ] و ملف [ 1010  ] كل بياناته تضاف داخل العامود الاول و [1020] العامود الثاني،، وهكذا الى نهاية المجلدات والملفات

 

اتمنى ان يكون هذا هو المطلوب هو اقتباس من عمل الاخوان ودمجه كما تحتاج كل الشكر لهم جميعاً ..

 

 

لكن اخي زمزم هذه البيانات من اين تحصل عليها ياليت تفيدني لأن مشكلتي بهذه البيانات من وين احصل عليها

 

 

 

بالتوفيق.

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

 

اولا مجهوووووووووووووووود  رائع ومميز 

 

 

ثانيا    احصل على الملف عن طريق  دفع رسوم اشتراك   لمزودي لخدمة    تقريبا    تصل احيانا (  210  ريال     سعودي  شهريا )

 

 

ثالثا   نحتاج  الى عقد جلسة  طاااااااااااارئة   للتقدم الذي حصل  في  هذا الموضوع

تم تعديل يونيو 1, 2014 بواسطه زمزم

[H_BioMed]

وين تبي تكون الجلسة :D 

 

كنت تقدر تقول مباشر برو، لكن لن ولن أشترك بمباشر لو قدم ماقدم :

تم تعديل يونيو 3, 2014 بواسطه H_BioMed

[ا بو سليمان]

وين تبي تكون الجلسة :D 

 

كنت تقدر تقول مباشر برو، لكن لن ولن أشترك بمباشر لو قدم ماقدم :

السلام عليكم 

كل مزودي الخدمة لا بد من دفع رسوم لهم  

 

 

حدد موقعك   اذ  اقل من  1000كم  نززززززززززورك     واذا اكثر  عن طريق  الايميل او الهاتف