نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تصدير أعمدة متعددة إلى ملفات نصية فردية في Excel؟

عادة ، يمكنك تصدير ورقة عمل إلى ملف txt في Excel بسرعة وسهولة باستخدام وظيفة "حفظ باسم". ولكن ، هل حاولت حفظ كل بيانات العمود في ملف نصي بشكل فردي من ورقة عمل Excel؟ هذه المقالة ، سأتحدث عن كيفية حل هذه المهمة في أسرع وقت ممكن.

تصدير أعمدة متعددة إلى ملفات نصية فردية باستخدام رمز VBA

تصدير أوراق عمل متعددة إلى ملفات نصية / pdf / csv فردية باستخدام Kutools for Excel


تصدير أوراق عمل متعددة إلى ملفات نصية / pdf / csv فردية:

لتقسيم كل ورقة عمل لفصل النص ، المصنف ، ملفات Pdf أو Csv ، كوتولس ل إكسيل's سبليت وركبوك يمكن أن تساعدك على حل هذه المهمة بسهولة قدر الإمكان.

تصدير أعمدة التصدير إلى txts 6

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


تصدير أعمدة متعددة إلى ملفات نصية فردية باستخدام رمز VBA


يمكن أن يساعدك رمز VBA التالي في حفظ كل بيانات عمود إلى ملف نصي بشكل فردي في Excel ، الرجاء القيام بما يلي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في وحدة نافذة او شباك.

رمز VBA: تصدير أعمدة متعددة إلى ملفات نصية فردية:

Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
        Else
            Exit Sub
        End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
    Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
        For xFRNum = 1 To xMaxR
            Print #1, Cells(xFRNum, xFCNum).Value
        Next xFRNum
    Close #1
Next
End Sub

3. بعد لصق الشفرة، يرجى الضغط F5 مفتاح تشغيل هذا الرمز، و المتصفح يظهر مربع الحوار ، ثم اختر مجلدًا لوضع الملفات النصية التي تم تصديرها ، راجع لقطة الشاشة:

تصدير أعمدة التصدير إلى txts 1

4. ثم اضغط OK زر ، وتم تصدير كل بيانات العمود في ورقة العمل النشطة إلى ملف نصي بشكل فردي ، انظر قطة:

تصدير أعمدة التصدير إلى txts 2


تصدير أوراق عمل متعددة إلى ملفات نصية / pdf / csv فردية باستخدام Kutools for Excel

إذا كنت بحاجة إلى تصدير أوراق عمل متعددة إلى ملفات نصية فردية أو pdf أو csv ، فإن كوتولس ل إكسيلالصورة سبليت وركبوك ميزة يمكن أن تفعل لك صالح.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بالخطوات التالية:

1. انقر كوتولس بلاس > مصنف > سبليت وركبوك، انظر الصورة:

تصدير أعمدة التصدير إلى txts 3

2. في سبليت وركبوك في مربع الحوار ، تحقق من أوراق العمل التي تريد حفظها كملفات txt و pdf و csv ، ثم تحقق من ذلك حفظ كنوع الخيار ، ثم حدد نوع الملف الذي تريد حفظه ، ثم انقر فوق الانقسام زر ، في العرض تصفح للحافظة في مربع الحوار ، اختر مجلدًا لوضع الملفات التي تم تصديرها ، راجع لقطة الشاشة:

تصدير أعمدة التصدير إلى txts 4

3. ثم اضغط OK زر ، وتم تصدير أوراق العمل الخاصة بك إلى تنسيق ملف معين على حدة ما تحتاج إليه ، انظر لقطة للشاشة:

تصدير أعمدة التصدير إلى txts 5


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nicolas · 3 months ago
    Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
  • To post as a guest, your comment is unpublished.
    Gianluca · 10 months ago
    Great, you made my day with the code to export multiple columns into individual text files! Many thanks!