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

or

كيفية تقسيم مصنف لفصل ملفات إكسيل في إكسيل؟

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

  1. تقسيم مصنف لفصل ملفات إكسيل مع النسخ واللصق
  2. تقسيم مصنف لفصل ملفات Excel مع ميزة نقل أو نسخ
  3. تقسيم مصنف لفصل ملفات إكسيل مع التعليمات البرمجية فبا
  4. تقسيم مصنف لفصل ملفات إكسيل / بدف / كسف / تكست مع كوتولس ل إكسيل بسهولة

تقسيم مصنف بسرعة لفصل ملفات Excel / PDF / TXT / CSV في Excel

عادة ما يمكننا تقسيم مصنف إلى ملفات Excel الفردية باستخدام نقل أو نسخ ميزة في Excel. لكن Kutools ل Excel سبليت وركبوك يمكن أن تساعدك الأداة المساعدة على تقسيم مصنف بسهولة وحفظ كل ورقة عمل كملف أو مصنف منفصل بتنسيق PDF / TEXT / CSV في Excel. ميزة كاملة التجربة المجانية 30 يوم!
انقسام مصنف مصنف اكسل

كوتولس ل إكسيل - يتضمن أكثر من 300 أدوات يدوية لبرنامج Excel. تجربة كاملة مجانية 30 اليوم ، أي بطاقة الائتمان المطلوبة! احصل عليه الآن

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إرسال رسائل البريد الإلكتروني الشخصية إلى مستلمين متعددين بكميات كبيرة.
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

تقسيم مصنف لفصل ملفات إكسيل مع النسخ واللصق


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

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


تقسيم مصنف لفصل ملفات Excel مع ميزة نقل أو نسخ

ستقدم هذه الطريقة ميزة Move أو Copy لنقل أو نسخ الأوراق المحددة إلى مصنف جديد وحفظها كمصنف منفصل. يرجى القيام بما يلي:

1. حدد الأوراق في شريط علامة التبويب "ورقة" ، انقر بزر الماوس الأيمن ، وحدد نقل أو نسخ من قائمة السياق. انظر لقطة الشاشة:

ملاحظة:: تحتجز CTRL المفتاح ، يمكنك تحديد عدة أوراق غير متتالية بالنقر فوقها واحدة تلو الأخرى في شريط علامة التبويب "ورقة" ؛ تحتجز تغير ، ﻳﻤﻜﻨﻚ ﺗﺤﺪﻳﺪ ﻋﺪة ﺻﻔﺤﺎت ﻣﺘﺠﺎورة ﺑﺎﺳﺘﺨﺪام اﻟﻨﻘﺮ ﻋﻠﻰ اﻟﻤﻠﻒ اﻷول واﻵﺧﺮ ﻓﻲ ﺷﺮﻳﻂ ﻋﻼﻣﺔ اﻟﺼﻔﺤﺔ.

2. في مربع الحوار Move أو Copy ، حدد (كتاب جديد) من للحجز القائمة المنسدلة، والتحقق من إنشاء نسخة الخيار، وانقر فوق OK زر. انظر لقطة الشاشة:

3. الآن يتم نسخ كافة الأوراق المحددة إلى مصنف جديد. انقر قم بتقديم > حفظ لحفظ المصنف الجديد.


تقسيم مصنف لفصل ملفات إكسيل مع التعليمات البرمجية فبا

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

1. إنشاء مجلد جديد للمصنف الذي تريد تقسيمه، لأن ملفات إكسيل تقسيم ستبقى في نفس المجلد مثل هذا المصنف الرئيسي.

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

3. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

VBA: تقسيم مصنف إلى عدة مصنفات وحفظه في نفس المجلد

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. اضغط على F5 مفتاح تشغيل هذا الرمز. ويتم تقسيم المصنف إلى ملفات إكسيل منفصلة في نفس المجلد مع المصنف الأصلي. انظر لقطة الشاشة:

ملاحظة:: إذا كان أحد الأوراق يحمل نفس الاسم مع المصنف، فبا هذا لا يمكن أن تعمل.


تقسيم مصنف لفصل ملفات إكسيل / بدف / كسف / تكست مع كوتولس ل إكسيل بسهولة

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أدوات يدوية لبرنامج Excel. تجربة كاملة مجانية 30 اليوم ، أي بطاقة الائتمان المطلوبة! احصل عليه الآن

1. بعد التثبيت كوتولس ل إكسيل، اضغط هنا كوتولس بلاس > سبليت وركبوك ، انظر الصورة:

2. في سبليت وركبوك مربع الحوار، قم بالعمليات التالية:
(1) يتم فحص جميع أسماء أوراق العمل بشكل افتراضي. إذا كنت لا تريد تقسيم بعض أوراق العمل ، يمكنك إلغاء تحديدها ؛
(شنومك) تحقق من حفظ نوع الخيار.
(3) من حفظ كنوع المنسدلة، واختيار نوع ملف واحد تريد تقسيم وحفظ.
(شنومك) ثم انقر فوق الانقسام .

ملاحظة:: إذا كنت تريد تجنب تقسيم أوراق العمل الخفية أو الفارغة، يمكنك التحقق من تخطي أوراق العمل المخفية or تخطي أوراق العمل الفارغة مربع.

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

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

كوتولس ل إكسيل's سبليت وركبوك تجعل الأداة من السهل تقسيم المصنف النشط إلى ملفات Excel فردية (ملف واحد يحتوي على ورقة عمل واحدة) أو ملفات CSV أو ملفات TXT أو ملفات PDF حسب الحاجة. يمكنك ضبط لتخطي جميع أوراق العمل فارغة وخفية. احصل على تجربة مجانية!


عرض توضيحي: تقسيم أو حفظ كل ورقة عمل من مصنف واحد كملفات إكسيل / تكست / كسف / بدف منفصلة

كوتولس ل إكسيل يشتمل على أكثر من 300 من الأدوات المفيدة لبرنامج Excel ، ويمكن تجربتها مجانًا دون حصر في أيام 30. تحميل وتجربة مجانية الآن!

مقالات ذات صلة:


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.
    Gregory Dorvil · 1 months ago
    If I wanted to split the workbook's collection worksheets by fives into workbooks, is that possible? Meaning, If I have 100 worksheets in a workbook, I want to automate using 5 worksheets at a time to make a workbook, which will end with 20 workbooks being made. How do you tweak the code to do this?
  • To post as a guest, your comment is unpublished.
    Gborka · 1 months ago
    VBA works. If not - Probable errors root cause: This VBA cannot handle HIDDEN SHEETS or if one of the sheets has the same name with the workbook.
    • To post as a guest, your comment is unpublished.
      kellytte · 1 months ago
      Hi Gborka,
      You can use the Split Workbook feature of Kutools for Excel, which can export hidden worksheets, and export all worksheets no matter what sheet names are.
  • To post as a guest, your comment is unpublished.
    Влад · 4 months ago
    Спасибо большое, всё работает.
  • To post as a guest, your comment is unpublished.
    Denise · 6 months ago
    Will this VBA work for Mac? It works perfectly for my PC but my manager uses a Mac.
    • To post as a guest, your comment is unpublished.
      Salim · 5 months ago
      Yes!! I just used it on Mac. However you will need to change some thing. The back slash into front slash /. I have already done it. Copy paste it. It will work. Let me know if it doesn't.

      Sub Splitbook()
      'Updateby20140612
      Dim xPath As String
      xPath = Application.ActiveWorkbook.Path
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      For Each xWs In ThisWorkbook.Sheets
      xWs.Copy
      Application.ActiveWorkbook.SaveAs Filename:=xPath & "/" & xWs.Name & ".xlsx"
      Application.ActiveWorkbook.Close False
      Next
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Ambarella · 7 months ago
    The version vba code is not working right, I have a "macros" file where I keep all my macros and have it open when I'm going to use them, and I'm running this one in the file that I need to be splitted but it splits the macros file.
  • To post as a guest, your comment is unpublished.
    User1 · 8 months ago
    Thank you!
  • To post as a guest, your comment is unpublished.
    M. Rameez · 10 months ago
    I found this really help full. Thanks! :)
  • To post as a guest, your comment is unpublished.
    alfonso · 11 months ago
    getting runtime error 1004
    • To post as a guest, your comment is unpublished.
      Christopher Lacey · 5 months ago
      I am as well, I have used this several times in the past but it is not working now
      • To post as a guest, your comment is unpublished.
        Gborka · 1 months ago
        1004 error root cause: This VBA cannot handle hidden sheets or if one of the sheets has the same name with the workbook.
  • To post as a guest, your comment is unpublished.
    Web7 · 1 years ago
    Does anyone know how to make this code work for a mac?
    It is showing an error when trying to locate the document.
  • To post as a guest, your comment is unpublished.
    Ronnie · 1 years ago
    Amazing script and instructions. Just saved me from splitting 30+Worksheets to separate files
    • To post as a guest, your comment is unpublished.
      Kim · 11 months ago
      Same! This worked perfectly for me. Saved me a lot of effort. Thank you!
  • To post as a guest, your comment is unpublished.
    Judy Smith · 1 years ago
    Please disregard my previous post. I have resolved my issue.
  • To post as a guest, your comment is unpublished.
    Judy Smith · 1 years ago
    I am using the split data into worksheets based on a column with 27 items in that column. The results are 54 worksheets 2 for each item. The only difference I can see is based on one of the columns in the range. For example:

    Once the split has occured, John Doe has 2 worksheets, one named John Doe and another named Sheet32. Each sheet has information for John Doe, but based on a column "Status" (Billed, Open Order, Salesforce), the information is split. The named worksheet has Billed & Open Order information and the Sheet32 has Salesforce information.


    Any idea what I am doing wrong?


  • To post as a guest, your comment is unpublished.
    Sreejith · 1 years ago
    That really helped. Thank you.
  • To post as a guest, your comment is unpublished.
    Gabriel · 1 years ago
    With the addition of code from comment below it works realy nice.
  • To post as a guest, your comment is unpublished.
    Paulo Corcino · 1 years ago
    Sub Splitbook()
    'Updateby20140612
    Dim xPath As String
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim xWs As Worksheet


    xPath = Application.ActiveWorkbook.Path
    Set Sourcewb = ActiveWorkbook

    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    End With


    ' For Each xWs In ThisWorkbook.Sheets
    For Each xWs In Sourcewb.Worksheets

    If xWs.Visible = -1 Then
    xWs.Copy
    Set Destwb = ActiveWorkbook
    If Destwb.Sheets(1).ProtectContents = False Then
    With Destwb.Sheets(1).UsedRange
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
    .Cells(1).Select
    End With
    Application.CutCopyMode = False
    End If
    With Destwb
    .SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    .Close False
    End With
    End If
    Next

    With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    End With

    MsgBox "You can find the files in " & xPath

    End Sub
  • To post as a guest, your comment is unpublished.
    Emmanuel · 2 years ago
    Hi, can I add or modify the filename?
  • To post as a guest, your comment is unpublished.
    CMG · 2 years ago
    Hi, can I get VBA to split a file with multiple tabs into separate files and save in their respective folders? i.e. If I have a report with 189 tabs each tab for different clients; can I separate those tabs and save each file in a folder specific to that client? The report varies with the number of tabs through out the month.
  • To post as a guest, your comment is unpublished.
    MAB · 2 years ago
    Hi - Can I get VBA to split a file with multiple tabs into files with multiple tabs? i.e. if I have a file with 2 tabs and data in both tabs with a field called customer -100 customers-, can I get VBA to create one file per customer -100 files- with two tabs each?
  • To post as a guest, your comment is unpublished.
    pippa hatt · 2 years ago
    help ive done this loads of times however today its saying an error on the Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" what am i doing wrong
    • To post as a guest, your comment is unpublished.
      LR · 2 years ago
      You may need to change ".xlsx" on line 9 to ".xls" instead
      • To post as a guest, your comment is unpublished.
        Eben · 2 years ago
        It does that because of the spaces for indentation on lines 8 - 10. Also kept me busy a while to figure out why it's doing that now.
        • To post as a guest, your comment is unpublished.
          Mrs Phillipa L Hatt · 9 months ago
          been using this for a while and now having a run time error 1004 then highlighting in yellow line 8 xWs.copy any ideas please
  • To post as a guest, your comment is unpublished.
    Kelley · 2 years ago
    Hi - instead of splitting each worksheet into a new workbook, is there a way to split groups of worksheets into new workbooks? Ex. Sheet1, Sheet2, Sheet3 go into a workbook, and Sheet4, Sheet5, and Sheet6 go to a second workbook, rather than six new workbooks?
  • To post as a guest, your comment is unpublished.
    tony bones · 2 years ago
    need a vba code to copy an entire workbook (all tabs) and have files saved based on cell range name by state?
  • To post as a guest, your comment is unpublished.
    imran ch · 2 years ago
    thank you very much www.extendoffice.com . very simple and well define post
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    Hi, I have a document of 10 sheets, but I only want the same 8 sheets to copy out each time I hit the command button. What changes can I make to the code (bearing in mind I am a complete amateur in Excel) to get each sheet to adopt the name of the main file, then add the sheet name at the end?

    So as an example the file is called "TESTING" and it has a sheet called "EUROPE". When the macro runs, I want the Europe sheet to be copied out and called "TESTING - EUROPE.xls".
  • To post as a guest, your comment is unpublished.
    adnan · 2 years ago
    Hi
    The coding works well but I want the header also to come on each and every sheet. As it's skipped the header in all data...
  • To post as a guest, your comment is unpublished.
    Karissa Brandhagen · 2 years ago
    How can I get this .xlsx file to save as .csv when split?
  • To post as a guest, your comment is unpublished.
    Nikk · 2 years ago
    Thank you so much! It worked after I unhid the rest of the workbook. This is awesome!
  • To post as a guest, your comment is unpublished.
    Tomm · 2 years ago
    2 questions.

    1. How can you adjust the code the choose the file path of where it is saved? As opposed to just saving wherever the original file is.

    2. How do you change the code to choose what column it creates the tabs from (i.e. in this code it is reading out of column A). I want to be able to choose which column it reads off if. Thanks!
  • To post as a guest, your comment is unpublished.
    Jessica P. · 2 years ago
    Thank you very much for this.Saved me weeks of sweat...
     
    Regards:Jessica
    Active consumer on customerso
  • To post as a guest, your comment is unpublished.
    Anjali · 3 years ago
    Hi, i have one quarry i.e. i have 15000 lines of data in one excel sheet and i want to split that data into multiple excel files where as each file contains 99 lines of data. Anyone can help me. Please share your thoughts.....
  • To post as a guest, your comment is unpublished.
    DS · 3 years ago
    This VBA code worked perfectly. Thank you for sharing your wealth of knowledge.
  • To post as a guest, your comment is unpublished.
    Brad · 3 years ago
    The macro should be updated to include an unhide-all-worksheets piece (including the very-hidden worksheets):

    Sub UnhideAllSheets()
    'Unhide all sheets in workbook.
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    ws.Visible = xlSheetVisible
    Next ws
    End Sub

    Sub Splitbook()
    'Updateby20140612
    Dim xPath As String
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Brad · 3 years ago
    IT SHOULD BE NOTED THAT THE VBA MACRO ABOVE WON'T WORK IF YOU HAVE A HIDDEN EXCEL SHEET, OR A "VERY-HIDDEN" EXCEL SHEET.

    YOU MAY NOT BE AWARE THAT YOU HAVE A "VERY-HIDDEN" EXCEL SHEET. TO CHECK, HIT ALT+F11 TO OPEN MICROSOFT VISUAL BASIC (MACRO EDITOR). CLICK ON EACH WORKSHEET UNDER THE MICROSOFT EXCEL OBJECTS AND MAKE SURE THAT THE "Visible" ATTRIBUTE IN THE "Properties" SECTION SHOWS "-1 = xlSheetVisible". IF YOU SPIT AN EXCEL FILE OUT OF ORACLE, FOR EXAMPLE, YOU'LL SEE A WORKSHEET NAMED "BneLog" with visibility = "2 - xlSheetVeryHidden". This took me forever to figure out, lol. Hope it helps!
    • To post as a guest, your comment is unpublished.
      David · 2 years ago
      Great tip! I was beating my head against a wall until this occurred to me. I saw previous comments about hidden sheets but until I realized an existing macro was "very hidden", it didn't make sense to me. On to the next project!
  • To post as a guest, your comment is unpublished.
    sunil · 3 years ago
    Used this and it worked. Just what I needed. Thanks
  • To post as a guest, your comment is unpublished.
    Jignesh S Thakrar · 3 years ago
    Hi

    I'm have master file were data consist for multiple city would like know is their any macros or any formula which keeps this orignal file and also create & update new workbook city area wise
  • To post as a guest, your comment is unpublished.
    Snehalata Gupta · 3 years ago
    Hello all,

    I need to reciprocate the same thing.

    there are lots of excel sheets and i want it te 1st sheet of it in single work book,
    Please Help!!!!
  • To post as a guest, your comment is unpublished.
    Bakhty · 3 years ago
    VBA script worked like a charm, got my 80+ new excel files
  • To post as a guest, your comment is unpublished.
    shanojirao · 3 years ago
    Hi All,

    I need a help from you all,

    I've to share the reports to multiple team depending on the brands they work for.

    Eg: brand name:
    Apple
    Samsung
    and many more around 60 brands.

    there will be a sales dump.

    If I want to run a macro, and spilt into multiple excel files what would be the procedure.

    Kindly help me.

    Thanks in Advance.

    Regards,
    Shan
  • To post as a guest, your comment is unpublished.
    Rogier van Meggelen · 3 years ago
    The code works great. Can you also use this to save the tabs as pdf files.
    It can't figure this out :)
  • To post as a guest, your comment is unpublished.
    Rogier van Meggelen · 3 years ago
    The code works great! is it also possible to save the different tabs as a pdf? I tried but the i can't get it to work :)
  • To post as a guest, your comment is unpublished.
    Anandaraj.M · 3 years ago
    Thanks for your valuable support
  • To post as a guest, your comment is unpublished.
    Stephanie · 3 years ago
    The VBA code worked beautifully! It saved me so much time. Thank you for sharing!
  • To post as a guest, your comment is unpublished.
    Adrian Rees · 3 years ago
    Thanks, vba code worked perfectly! Saved me a lot of time splitting a spreadsheet with 25 tabs into different files.

    Only thing i picked up is in the 6th last line i changed the file format to new Excel "xlsx"

    " & xWs.Name & ".xls" becomes >>>>> " & xWs.Name & ".xlsx"
  • To post as a guest, your comment is unpublished.
    Herb · 3 years ago
    Thanks for the VBA code!!. It worked perfectly. Saved me much work!!
  • To post as a guest, your comment is unpublished.
    NG · 3 years ago
    Hi there,

    Thank you so much for the code, however may how you would add to the code if you wanted the following to happen?
    1. What if you wanted Sheet 1 to be copied as well for each additional sheets?

    For example, the newly created
    1. "Sheet 2" would have "Sheet 1 and Sheet 2"
    2. "Sheet 3" would have "Sheet 1 and Sheet 3"

    and so on and so forth.

    Appreciate if you could provide any help with this. Thank you.
  • To post as a guest, your comment is unpublished.
    zirokl · 4 years ago
    Thank you so much for this! It is amazing, works perfectly.

    But is it possible to modify it so it saves each worksheet to the same directory(without creating a new folder) based on original file name or particular Cell Value? Just by adding (1), (2) ets at the end of each exported file.

    Greatly appreciate your help.
  • To post as a guest, your comment is unpublished.
    NG · 4 years ago
    you saved my day with this code!!
  • To post as a guest, your comment is unpublished.
    Ovi · 4 years ago
    Is there a way I can apply the split to many excel files at once? The files have the same 2 sheets (as format and name).
    Thank you!
  • To post as a guest, your comment is unpublished.
    Brian · 4 years ago
    Hello, Thank you; super helpful. I was curious how to edit the save directory. When I run this code, it saves one directory up from the directory the original file is saved. Can someone please tell me how to make it save to the source file's directory?
  • To post as a guest, your comment is unpublished.
    Sam · 4 years ago
    I am having data for all the 365 days for 14 year in one excel sheet.

    Now we want to separate the data year wise (Ex. one excel file for year 2002 in that 12 Sheet ie for 12 month and another excel file for year 2003 in that 12 Sheet ie for 12 month).

    We are able to separate month wise data (by using Excel Kutools - Split Data) and it will create excel sheet for each month (ie it will create totally 24 sheets) and then we should Split to Workbook and it will be 24 excel file and again we should combine 12 file for each year. This is taking lot of time.

    Now our problem is while splitting the date we want Excel to create Year wise Excel files and in each excel file 12 sheets for 12 months. Can we do this in same time.

    Please tell us because we are having lots of data and it is taking lot of time.
  • To post as a guest, your comment is unpublished.
    Caroline · 4 years ago
    Hi - I have a work sheet with a lot of data that I need to split into separate sheets so I can attach and email to various people. Do you know how I would go about this? I have a TOTAL cell for each batch of data that I need to split, not all the batches contain the same number of lines. Any help you can give would be greatly appreciated. Thank you.