Note: The other languages of the website are Google-translated. Back to English

كيفية حفظ وتصدير متعددة / كل الأوراق لفصل ملفات CSV أو ملفات نصية في Excel؟

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

قم بحفظ أو تصدير أو تحويل جميع الأوراق إلى ملف csv أو ملف نصي برمز VBA
قم بحفظ أو تصدير أو تحويل أوراق متعددة / جميع الأوراق إلى ملف CSV أو ملف نصي باستخدام Kutools for Excel


قم بحفظ أو تصدير أو تحويل جميع الأوراق إلى ملف csv أو ملف نصي برمز VBA

باستخدام رموز VBA أدناه ، يمكنك حفظ جميع أوراق العمل في مصنف إلى ملفات csv أو ملفات نصية منفصلة. الرجاء القيام بما يلي.

تصدير أو تحويل كل الأوراق إلى ملفات csv

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح تطبيق Microsoft Visual Basic نافذة.

2. في ال تطبيق Microsoft Visual Basic الإطار، انقر فوق إدراج > وحدة. ثم انسخ الكود التالي والصقه في ملف وحدة نافذة.

كود فبا: تصدير كل الأوراق إلى ملفات CSV منفصلة

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود. سترى جميع ملفات csv التي تم تصديرها موجودة في ملف وثائق مجلد. انظر لقطة الشاشة:

تصدير أو تحويل كل الأوراق إلى ملفات نصية

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

كود فبا: تصدير كل الأوراق إلى ملفات نصية منفصلة

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

توجد الملفات النصية التي تم تصديرها أيضًا في ملف وثائق مجلد. انظر لقطة الشاشة:


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

Yيمكنك تصدير أو تحويل أوراق متعددة أو كلها بسرعة إلى ملفات CSV فردية أو ملفات نصية أو تنسيق ملفات xls في Excel باستخدام انقسام وركبوك فائدة كوتولس ل إكسيل.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

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

2. في ال انقسام وركبوك صندوق المحادثة:

  • 1). إذا كنت تريد تحويل جميع الأوراق إلى ملفات csv أو ملفات نصية ، فما عليك سوى الاحتفاظ بكل أسماء الأوراق محددة في ملف اسم ورقة العمل صندوق؛ إذا كنت ترغب فقط في تحويل أوراق متعددة ، فاستمر في التحقق منها وقم بإلغاء تحديد الأوراق الأخرى التي لا تريد تحويلها.
  • 2). في ال العلاج القسم، تحقق من حفظ كنوع مربع ثم حدد نص Unicode (*. txt) or CSV (Macintosh) (*. csv) من القائمة المنسدلة.
  • 3). انقر على الانقسام .

3. في ال تصفح بحثًا عن مجلد في مربع الحوار ، حدد مجلدًا لحفظ الملفات التي تم تصديرها ، ثم انقر فوق ملف OK .

الآن يتم تحويل جميع الأوراق أو الأوراق المحددة إلى ملفات csv أو ملفات نصية منفصلة ، وتحديد موقعها في المجلد كما حددت أعلاه.

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


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


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (37)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أي طريقة لحفظ ملفات CSV في مجلد آخر غير مجلد "المستندات"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] هل هناك أي طريقة لحفظ ملفات CSV في مجلد آخر غير مجلد "المستندات"؟بواسطة Alex K123456789[/ quote] لم أختبرها ، لكنني جميلة "\" في هذا السطر تعني دليل العمل: xcsvFile = CurDir & "\" & xWs.Name & ".csv" إذا كنت تريد التغيير دليل العمل ، سيكون عليك إضافة أمر آخر. إذا كنت تريد حفظه في مجلد داخل دليل العمل ، قل في مجلد يسمى "جديد" ، فقط استبدل "\" بـ "\ جديد \". شيء على هذا المنوال.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك بول. لقد انتهيت من اكتشاف الأمر لفترة وجيزة ، لكن حلك هو بالضبط ما فعلته.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لطيف! شكرًا على الرد ، فهذا يعني أيضًا الكثير بالنسبة لي أن أعرف أن الحل الخاص بي هو الحل الصحيح. هتافات!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً أليكس ، هل يمكن أن تريني سطر الكود الذي أدخلته بدلاً من "\" من فضلك؟ أحتاج إلى أن أكون قادرًا على حفظ ملفات .csv هذه في موقع على شبكتنا بدلاً من مكتبة WS المحلية الخاصة بي. نحتاج إلى السماح لموظفي خدمة العملاء لدينا بالوصول إلى الملف وإعادة تسمية الموقع في كل مرة يتم استخدامه. واجهت مشكلة في تغيير "\" إلى "\ جديد \" ببساطة (يعمل رمز VBA كما هو متوقع عند نسخه مباشرة من المعلومات أعلاه). أنا لست رمزًا قويًا ، لكن يمكنني اتباع التعليمات جيدًا ، لذا فإن أي مساعدة هي موضع تقدير!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا أليكس ، هل يمكنك أن تريني سطر الرمز الذي أدخلته بدلاً من "\" من فضلك؟ أحتاج إلى أن أكون قادرًا على حفظ ملفات .csv هذه في موقع على شبكتنا بدلاً من مكتبة WS المحلية الخاصة بي. نحتاج إلى السماح لموظفي خدمة العملاء لدينا بالوصول إلى الملف وإعادة تسمية الموقع في كل مرة يتم استخدامه. واجهت مشكلة في تغيير "\" إلى "\ جديد \" ببساطة (يعمل رمز VBA كما هو متوقع عند نسخه مباشرة من المعلومات أعلاه). أنا لست رمزًا قويًا ، لكن يمكنني اتباع التعليمات جيدًا ، لذا فإن أي مساعدة هي موضع تقدير!بواسطة Dawn[/ quote] مرحبًا داون ، انتهيت من إعادة كتابة الأجزاء وكما اقترح بول ، استخدمت أمرًا مختلفًا قليلاً. يوجد أدناه الأمر الذي كتبته لتحديث البيانات في المصنف الخاص بي من مستودع البيانات ، ثم تحديث الجداول المحورية وحفظ إحدى الأوراق في النهاية كملف PDF إلى محرك الأقراص الخاص بي: ActiveWorkbook.RefreshAll Sheets ("Karth"). حدد النطاق (" B22 "). حدد ActiveSheet.PivotTables (" Karth_Appd_Wkly "). PivotCache.Refresh Sheets (" Start "). حدد Sheets (" Karth "). ExportAsFixedFormat Type: = xlTypePDF ، اسم الملف: = _" K: \ K \ Analytics \ Reports \ Sales \ SM Reports \ SM Summary_Karth.pdf "_، Quality: = xlQualityStandard، IncludeDocProperties: = True، IgnorePrintAreas _: = False، OpenAfterPublish: = False End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا لك على الرمز ، هل من الممكن تخطي بعض الأوراق وحفظ القليل فقط؟ ليس لدي أي فكرة كيف يجب أن أبدأ. هل يمكنك مساعدتي؟ نيكولاس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على وحدات الماكرو ، لقد كانت فقط ما احتاجه. ومع ذلك ، فإن استخدام "CurDir" لإنشاء مسار ملف الإخراج يعد أمرًا خطيرًا للغاية لأنه ليس بالضرورة مجلد ملف Excel الذي تم فتحه - إنه بشكل عام المجلد الحالي في المستكشف ، لذا يمكن أن ينتهي الأمر بكتابة ملفاتك عمليًا في أي مكان. يجب عليك استخدام Application.Workbook.Path بدلاً من ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أكتب لتحديد ما إذا كان التطبيق الخاص بك يمكنه تحويل أوراق xls متعددة إلى ملف نصي واحد وكيف سيرتب الصفوف. أحتاج إلى خيار لطلب الصفوف بترتيب الظهور ، سطر واحد في كل مرة ورقة واحدة في كل مرة. الورقة 1 ، الصف 1 ؛ الورقة 2 ، الصف 1 ، الورقة 3 ، الصف 1 ، إلخ. إنني أتطلع إلى تلقي ملاحظاتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على الرمز ، لدي فقط توضيح بسيط. حاليًا عند إنشاء ملف CSV ، يتم تحديده بفاصلة "،". على الرغم من أن إعداد النظام الخاص بي مخصص لـ CSV ، يجب أن يكون المحدد هو الأنبوب "|". لست متأكدًا من سبب إنشاء ملف CSV باستخدام محدد الفاصلة مع الكود أعلاه. هل هناك طريقة يمكنني من خلالها تحديد محدد لملف CSV بشكل صريح. أبحث عن ردك في أقرب وقت ممكن. شكر. تحياتي ، أميت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أليكس ، هل يمكنك عرض الكود لحفظ الملفات بتنسيق csv باستثناء مجلد المستندات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحتاج إلى ماكرو يقوم بتحويل الأنبوب "|" فصل csv إلى xlsx يطلب اسم مجلد وليس ملفًا واحدًا. أحتاجه بشكل عاجل.


التحيات،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف لا يمكن حل هذه المشكلة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى ماكرو لتحويل جميع علامات التبويب في ملف Excel إلى مجموعة مختلفة من الملفات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
ما هي الملفات التي تريد تضمينها في "مجموعة الملفات المختلفة"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
1) لدي كتاب عمل به أوراق متعددة.
2) هذه الأوراق المتعددة لها أعمدة متعددة.
3) لدي عمود واحد في كل ورقة وهو عبارة عن سلسلة من جميع الأعمدة الأخرى.
4) الآن ، أريد استخراج هذا العمود المتسلسل إلى ملف نصي يحمل نفس اسم اسم الورقة.
5) الطريقة التي أريدها هي الضغط على زر واحد فقط ويجب أن يبحث عن جميع علامات التبويب ، واستخراج هذا العمود (على سبيل المثال العمود المتسلسل هو AA) من كل ورقة ، ووضع ذلك في ملف نصي ، وتسمية الملف النصي بنفس اسم الورقة وتخزينها في بعض الدليل على سطح المكتب ، قل محرك الأقراص H.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
معذرة لا تستطيع المساعدة في هذا ، يمكنك نشر سؤالك في منتدانا: https://www.extendoffice.com/forum.html للحصول على المزيد من دعم Excel من المحترفين لدينا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أ ، أرى الآن أنه لا ينبغي نسخ السطر "كود فبا: تصدير كل الأوراق إلى ملفات CSV منفصلة" في منطقة الكود. ربما يكون ذلك أكثر وضوحًا للمبتدئين ، وللأشخاص الذين يتبعون التعليمات بشكل صريح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كين،
هذا هو سطر وصف الكود. يجب أن يكون السطر "Sub ExportSheetsToCSV ()" هو السطر الأول من التعليمات البرمجية.
انا اسف على الازعاج.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا - السيناريو مفيد جدا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حل رائع ..... حفظ وقتي ..... شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت ترغب فقط في تحويل أوراق متعددة ، فاستمر في التحقق منها وقم بإلغاء تحديد الأوراق الأخرى التي لا تريد تحويلها
سيدي لخطوة thuis هل لديك ماكرو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
لا يمكن أن تساعد في التعليمات البرمجية لـ VBA لهذا الغرض. لماذا لا تجرب الأداة المساعدة Split Workbook التي نقدمها في المنشور؟ سيوفر وقتك وستحبه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرًا جزيلاً لك على الماكرو الرائع ، إنه يعمل مثل السحر! لكن لدي سؤال ، ماذا لو كنت أرغب في حفظ هذا الماكرو (إصدار CSV) على PERSONAL.xlsb لإتاحته في أي مثيل Excel؟

عندما أحاول ، يأخذ CurDir الدليل الشخصي ، بدلاً من ورقة العمل النشطة الأولى ...

شكرا لك على أي مساعدة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ميركو ،
الطريقة في هذه المقالة يمكن أن تقدم لك معروفًا: https://trumpexcel.com/personal-macro-workbook/.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لاستخدام هذا الرمز لتصدير نطاق معين فقط إلى ملف .csv لكل ورقة في كتاب؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
قد يقدم لك رمز VBA في هذه المقالة معروفًا: https://www.extendoffice.com/documents/excel/2897-excel-export-range-to-csv.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لذا ، هذا شيء عظيم! ولكن ، ماذا لو كنت بحاجة إلى تقسيم مصنف إلى .csv ولكن للكمبيوتر الشخصي ، وليس MAC؟ إذا كان لدى أي شخص طريقة للقيام بذلك ، الرجاء مساعدتي. ساكون ممتنا جدا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يمكن أن يقدم لك رمز VBA الأول في هذا المنشور معروفًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير الرمز لحفظه بتنسيق ملف مختلف مثل xlsx؟ أو ASCII.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا! لقد استخدمت هذا لحفظ جميع أوراق ملف .xlsx الخاص بي في مختلف. xlsx
Sub ExportSheetsToXLSX ()
خافت xWs كورقة عمل
خافت xcsv الملف كسلسلة
لكل xWs في Application.ActiveWorkbook.Worksheets
xWs. نسخة
xlsxFile = CurDir & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.SaveAs Filename: = xlsxFile، _
FileFormat: = xlOpenXMLWorkbook، CreateBackup: = False
Application.ActiveWorkbook.Saved = صحيح
Application.ActiveWorkbook.Close
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على الكود الرائع ، إنه رائع (تصدير جميع الأوراق إلى ملفات نصية منفصلة)! استخدمه في مناسبات عديدة لكنه واجه ملفًا حيث لا يعمل ، يقول المصحح إن خطأ وقت التشغيل 1004 وأن نسخة الطريقة هذه من ورقة العمل فشلت وتمييز سطر xWs.Copy. هل هناك أي قاعدة تتعلق باسم ورقة العمل لا تسمح بتشغيل التعليمات البرمجية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على الرمز الرائع (تصدير جميع الأوراق إلى ملفات نصية منفصلة) ، استخدمه كثيرًا. ركضت للتو في مصنف حيث لا يعمل ، كما يقول المصحح سطر xW. النسخ هو مشكلة ، تقول النافذة المنبثقة أن طريقة نسخ المصنف فشلت. هل هناك أي قيود تتعلق باسم ورقة العمل أو شيء مشابه ، مثل عدم وجود خلايا مدمجة وما إلى ذلك ..؟

شكرا على الرد :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا BI ،
هل تحتوي ورقة العمل الخاصة بك على جدول محوري؟ هل يمكنك تزويدنا ببياناتك من أجل الاختبار؟ إذا كنت لا تمانع ، قم بتحميل ملف العينة الخاص بك هنا.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL