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

[ًعبد من عباد الله]

الأخوة الكرام في المنتدى سلام الله عليكم ورحمته وبركاته

أريد كما في عنوان الموضوع تجميع بيانات (نصوص) الموجودة داخل ملفات بصيغة . txt (المثال في المرفق) إلى ورقة اكسيل دفعة واحد دون فتحها فهل يمكن تحقيق هذا الأمر ولكم جزيل الشكر

New folder1.rar

[ًعبد من عباد الله]

أين الأخوة الكرام والأساتذة الأفاضل الخبراء عمالقة المنتدى أود مساعدتكم المعهودة عنكم يا جماعة الخير وجزاكم الله خير

للرفع

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

السلام عليكم أخي الكريم وائل ..امنحنى بعض الوقت وإن شاء الله أحاول العمل على طلبك ...

راعي أن لكل منا ما يشغله فالمنتدى نتواجد فيه قدر استطاعتنا

[ًعبد من عباد الله]

اخى الحبيب أبو البراء دائما تاتى في الموعد بارك الله فيك

5 دقائق مضت, ياسر خليل أبو البراء said:

راعي أن لكل منا ما يشغله فالمنتدى نتواجد فيه قدر استطاعتنا

أعلم أخى كان الله في عون الجميع ووفقكم لكل خير وتقبل منكم عموما سانتظر حتى العاشرة والنصف بإذن الله

 

تم تعديل أكتوبر 16, 2016 بواسطه وائل أبو عبد الرحمن

[أبو حنــــين]

السلام عليكم

قمت بوضع كود لكن الكتابة ظهرت غير سليمة جرب الكود عندك بوضع الملفات النصية في نفس مسار ملف الإكسيل

Sub Get_My_File()

    Dim i As Integer, M
    Set M = CreateObject("Scripting.FileSystemObject")
    Set iPath = M.GetFolder(ThisWorkbook.Path & "\")
    i = 1
Application.ScreenUpdating = False
    For Each iFile In iPath.Files
    If Right(iFile.Name, 3) = "txt" Then
        Open iFile For Input As #1
        Cells(i, 1) = Input$(LOF(1), 1)
        Close #1
        i = i + 1
    End If
Next
Application.ScreenUpdating = True

End Sub

 

[ًعبد من عباد الله]

مرحبا أخى الفاضل ابو حنين "اخوكم في الله" سابقا فكم لكم عندى من فضل نسأل الله أن يجزيكم عنا خيرا

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

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

بارك الله فيك أخي الغالي أبو حنين

الكود الخاص بك يظهر اللغة العربية بحروف غريبة ..

أخي الكريم وائل جرب الملف التالي ، وإن شاء الله يفي بالغرض .. سيظهر لك نافذة تحدد من خلالها المجلد الذي يحتوي الملفات النصية قم بتحديد المجلد لتظهر لك كل النتائج في العمود الأول ..

Copy All Text Files From Folder To Worksheet YasserKhalil Officena

 

[ًعبد من عباد الله]

حبيبنا في الله الغالى أبو البراء (( ربنا يخليك للغلابة أمثلنا فأنت بكرمك هذا تخفف عنا غلاء الأسعار. ابتسامة ))

سلمت يداك من كل أذى أخى الفاضل وبارك الله في علمك وحلمك النتيجة تمام ولكن ...

لتكتمل الفائدة أخى الكريم اسمح لى بإضافة طلبين أخرين ظهرا من خلال التجربة على عملك الطيب

1- جربت تحميل بيانات ملفات تكست ولكن ببيانات كثيرة في الملف الواحد فكانت النتيجة ان بيانات الملف الواحد تجمعت كلها في خلية واحدة كما بالصورة فإذا أمكن أن يتم نقل البيانات بنفس تنسيقها في الملف المنقوله منه أو بالأحرى أن يفرق الكود أثناء التحويل او النقل للبيانات بين كل معلومة (جملة) وأخرى من خلال الأنتر أو المسافة الفاصلة بين الأسطر بحيث يصبح كل بيان او معلومة أو جملة مستقلة في خلية منفصلة.

2- أود إذا امكن أن يفصل تجميع البيانات بين ملف وأخر من خلال إدراج اسم الملف المنقول منه البيانات قبل أول خلية لبياناته المجمعه منه.

بالمرفق ملفين بهما بيانات للتجربة عليهما 

- شغل الفوائد 3-1-2016.rar

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

أخي الكريم وائل الأمر ملتبس علي بعض الشيء ..هل تريد المخرجات بالنسبة للملف النصي الواحد في خلية واحدة فقط ؟ أم تريد المخرجات في عدة صفوف للملف النصي الواحد؟

جرب تشيل السطر التالي من الكود (ستجده موجود مرتين) ..احذف السطرين

NewText = Application.Clean(NewText)

تقبل تحياتي

 

[ًعبد من عباد الله]

أخى ياسر بارك الله فيك

ما تفضلت به في عملك السابق يجمع جميع البيانات من الملف أو الملفات النصىة كلها في خلية واحدة وهذا ما لا أريده كما ظهر في صورة مشاركتى السابقة

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

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

أخى انا لم أنتبه إلى إضافتك الأخيرة على مشاركتك إلا بعد الانتهاء من كتابة تعليقى

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

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

أخي الكريم وائل

جرب الملف التالي وإن شاء الله يفي بالغرض

Import All Text Files From Specific Folder To Worksheet YasserKhalil Officena

[ًعبد من عباد الله]

اخى الحبيب في الله

لا أعلم لما لا يعمل الملف عندى عند الضغط على زر تشغيل سواء كان ملف الاكسيل داخل المجلد Sample Folder أم خارجه أرجوا الإفادة منك شاكر لك مجهودك وتعبك معى جعله الله في ميزان حسناتك

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

هل قمت بتحميل المرفق الأخير وتجربته ؟

وضح الخطوة التي تعثرت فيها ..لأن الملف يعمل عندي 

اجعل ملف الإكسيل بخارج الفولدر وليس بداخله ثم قم بتنفيذ الكود .. 

[ًعبد من عباد الله]

بالطبع أخى تم تحميل الملف الأخير ووالله لا أعلم لماذا لم يعمل من البداية رغم قيامى بعدة محاولات

المهم بعد مشاركتك يبدو أن الملف خاف منك واشتغل الحمد لله بارك الله فيك النتيجة تمام لم أعد أجد في كلماتى ما يوفيك حقك فلقد استنفذت أخى أبو البراء كل كلمات الثناء فجزاك الله خيرا وبارك لك وتقبل منك وشكر لجميع الأخوة.

بالمناسبة أنا مش ناسى موضوع تفرقة الاكسيل بين الحروف والأرقام والرموز والمسافات ولكن أحاول أن أعد له مشاركة توضح ما أريد ومبدئيا سوف أحتاج لهذا الأمر كود مرن أو مطاط كلما استعملته في موضوع بشكل مختلف يأتينى بما أريد بناء على ما سوف اطرحه إن شاء الله أكرر شكرى 

تم تعديل أكتوبر 17, 2016 بواسطه وائل أبو عبد الرحمن

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

الحمد لله أن تم المطلوب على خير أخي الكريم وائل ..

الحمد لله الذي بنعمته تتم الصالحات

جزاكم الله خيراً على كلماتك الطيبة ودعائك الطيب ، ولك بمثله إن شاء الله

تقبل وافر تقديري واحترامي

[ًعبد من عباد الله]

سامحنى أخى أبو البراء على طلب تعديل أخر بسيط إن أمكن 

الملفات النصية بها (فقرات جمل مقاطع هل يمكن دمج البيانات المرتبطة بفقرة كاملة داخل الملفات النصية إذا كانت مكتوبة في عدة سطور بحيث تخرج بيانات الفقرة كلها في صف واحد بدلا من ان تكون موزعة على عدة سطور كما هو مثال شكل الصورة المرفقة (هذا المثال موجود داخل الملفات النصية المرفوعة) واكرر اعتذارى وشكرى فالتجربة هى ما تظهر الحاجة لأشياء لم نكن للننتبه لها من أول وهله

 

تم تعديل أكتوبر 17, 2016 بواسطه وائل أبو عبد الرحمن

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

حدد العمود الأول ثم كليك يمين واختر الأمر Format Cells ثم اذهب للتبويب Alignment وأزل أي علامة بجانب الخيار Wrap Text

.....

[ًعبد من عباد الله]

أخى الحبيب يبدو انى ارهقتك بما فيه الكفاية كالعادة ولكن للأسف ليس هذا ما أريده أعلم أن المشكلة ربما تكون فى عدم توضيحى الكافى لإيصال المعنى المراد

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

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

بصراحة الموضوع في هذه النقطة صعب إلى حدٍ ما ...

ما المنطق فيما طلبت ...؟

هل هناك سطر فارغ بين الكتل التي تتحدث عنها ؟ 

الملف الأول المرفق كان يلبي طلبك في أن يضع كل النص الموجود في الملف النصي  الواحد في خلية واحدة ..

ربما من الأفضل أن تضع ملف نصي مرفق موضحاً شكل المخرجات مرة أخرى فلربما توصلنا لفكرة ...

[ًعبد من عباد الله]

أخى العزيز 

المنطق واضح كما في الصورة المرفقة

المطلوب ليس صعب اريد تجميع البيانات من الملف النصى إلى الاكسيل أنظر هما ثم انظر هناك كما في الصورة ستجدها سهلة مش كده وليها منطق مش كده ...

هذه الأمثلة من الملفات المرفوعة سابقا وشكر لك أخى 

تم تعديل أكتوبر 17, 2016 بواسطه وائل أبو عبد الرحمن

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

أخي الكريم وائل

لابد من منطق يفهمه الإكسيل .. أعتقد أنه يوجد سطر فارغ بين النصوص يمكن الاعتماد عليها ، حيث أنه يمكن عمل محاولة لدمج النصوص التي يفضل بينها سطر فارغ

[ًعبد من عباد الله]

أخى الكريم

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

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

تفضل جرب الملف التالي عله يفي بالغرض 

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

[ًعبد من عباد الله]

أخى وحبيبى في الله

بس من غير ضرب قلى أيه اللى اتغير النتيجة كما هى كل سطر في الملف النص يأخذ سطر في الاكسيل

أكيد أنت تعبت استحملنى شوية لله والجزاء إن شاء الله على قدر المشقة وانت عارف اخوك بس أنا هاحاول اريحك منى ومن شرحى اللى مش مفهوم ده بالصورة دى المأخوذة من أخر ملف رفعتهولى من دقائق ولعل تلك الصورة تفى بالغرض

تم تعديل أكتوبر 17, 2016 بواسطه وائل أبو عبد الرحمن

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

بالفعل الصورة تفي بالغرض ..لأنك واقف في ورقة العمل الأولى 

انتقل لورقة العمل المسماة Final ..