كيف يمكن تصدير كل عمود في Excel إلى ملف نصي منفصل؟
في Excel، يُعد تصدير ورقة العمل بأكملها إلى ملف نصي أمرًا بسيطًا باستخدام ميزة «حفظ باسم». ولكن إذا كنت بحاجة إلى حفظ كل عمود كملف نصي منفصل، فستتطلب العملية بعض الخطوات الإضافية. سيوضح لك هذا الدليل كيفية تصدير كل عمود على حدة بكفاءة باستخدام رمز VBA، أو – كبديل أسرع وأسهل – كيفية حفظ أوراق عمل متعددة كملفات نصية أو PDF أو CSV منفصلة بمساعدة Kutools لـ Excel.
تصدير كل عمود إلى ملفات ملف نصي منفصلة باستخدام رمز VBA
تصدير أوراق عمل متعددة إلى ملفات نصية / PDF / CSV منفصلة باستخدام Kutools لـ Excel
تصدير كل عمود إلى ملفات ملف نصي منفصلة باستخدام رمز VBA
يمكنك استخدام رمز VBA التالي لحفظ بيانات كل عمود كملف نصي منفصل في Excel. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
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 لتشغيله، وستظهر نافذة مربع حوارالمستعرض. بعد ذلك، اختر مجلدًا لحفظ ملفات النصوص التي تم تصديرها. انظر لقطة الشاشة:
4. ثم انقر فوق زرموافق، وسيتم تصدير بيانات كل عمود في ورقة العمل النشطة إلى ملفات نصية منفصلة. انظر لقطة الشاشة:
تصدير أوراق عمل متعددة إلى ملفات نصية / PDF / CSV منفصلة باستخدام Kutools لـ Excel
إذا كنت بحاجة إلى تصدير أوراق عمل متعددة إلى ملفات نصية أو PDF أو CSV منفصلة، فإن ميزةKutools لـ Excel’s فصل المصنفيمكنها مساعدتك.
بعد تثبيتKutools لـ Excel،يُرجى اتباع الخطوات التالية:
1. انقر فوقKUTOOLS PLUS > مصنف > فصل المصنف، انظر لقطة الشاشة:
2. في مربع حوارفصل المصنف، حدد أوراق العمل التي تريد حفظها كملفات بتنسيق TXT أو PDF أو CSV، ثم اختر خيارتحديد تنسيق الحفظ، وحدد نوع الملف الذي ترغب في حفظه به، ثم انقر فوق زرتقسيم. بعد ذلك، في مربع حواراستعراض المجلداتالذي يظهر، اختر المجلد الذي تريد حفظ الملفات المصدرة فيه. انظر لقطة الشاشة:
3. ثم انقر فوق زرموافق، وستُصدَّر أوراقك المحددة تلقائيًا إلى ملفات منفصلة حسب نوع الملف الذي اخترته. راجع لقطة الشاشة التالية:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل