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

How to export and save each worksheet as separate new workbook in Excel?

Let's say you want to export and save one or several worksheets as a new workbook, how will you deal with it? Normally you may copy each worksheet and paste to new workbook. But here we bring you some handy tricks to deal with it:

Export and save worksheets as new workbook with Move or Copy command

Export and save worksheets as new workbook with VBA code

Export and save worksheets as new workbook with Kutools for Excel good idea3


arrow blue right bubble Export and save worksheets as new workbook with Move or Copy command

Using the Move or Copy command will help you export or copy one or several worksheets to a new workbook quickly.

Step 1: Select the worksheet names in tab bar. You can select multiple with holding down Ctrl key or shift key.

Step 2: Right click the worksheet name, and click the Move or Copy from context menu.
doc export sheets 1

Step 3: In Move or Copy dialog box, select the (new book) item from the drop down list of Move selected sheets to book.

doc export sheets 2

Step 4: Then click OK, now you have switched to the new workbook with exported or copied worksheets, click File > Save to save the new workbook.

Note: In the Move or Copy dialog box, there is a Create a copy option. If you do not check it, it will move the selected worksheets out of original workbook; if check it, it will copy selected worksheets.


Quickly split multiple worksheets into separate workbook in Excel

In Microsoft Excel, you can save or split a worksheet from one workbook as a new Excel file by copying and pasting this worksheet into a new workbook. It seems troublesome, if you want to split each sheet / worksheet of a large workbook as separate Excel, txt, csv, pdf files. But with Kutools for Excel’s Split Workbook utility, you can quickly deal with it.  Click for 30 days free trial with full features!
doc split workbook 1
 
Kutools for Excel: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days.

arrow blue right bubble Export and save worksheets as new workbook with VBA code

This following code will export every visible worksheet in a new workbook and save the workbook with the name of the original sheet in a newly created folder in the same path as the active workbook. Please do as following steps:

Step 1: Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

Step 2: Click Insert > Module, and paste the following macro in the Module Window:

VBA : Export and save worksheets as new workbook in a new folder.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Step 3: Press the F5 key to run this code. And a prompt box will pop up to tell you the location of the new exported workbooks, and all of the worksheets of the original workbook have been exported to some new separate workbooks which named original sheets in a new specific folder. See screenshots:

doc export sheets 7

arrow blue right bubble Export and save worksheets as new workbook with Kutools for Excel

If you have multiple worksheets needed to be saved as separate workbook, the first method cannot be a good choice. And the VBA code maybe a little complicated for Excel beginners. Here you can use the Split Workbook utility of Kutools for Excel to quickly and easily export and save each worksheet of one workbook to separate new workbook.

Kutools for Excel, with more than 300 handy functions, makes your jobs more easier. 

After free installing Kutools for Excel, please do as below:

Step 1: Click Kutools Plus > Workbook > Split Workbook…. See screenshot:
doc export sheets 3

Step 2: In the Split Workbook dialog box, do as below:

doc export sheets 4
1: all of the worksheet names have been checked by default, if you don’t want to split some of the worksheets, you can uncheck them;


2: If you want to avoid splitting the hidden or blank worksheets, you can check the Skip hidden worksheets or Skip blank worksheets.);


3: and also you can check Specify save format, and to select split the sheets then save as text file, pdf file, or csv file, in defualt, if you do not check this option, it will split sheets and save as workbook.

Step 3: Then click Split button, and choose the folder that you want to put the new workbooks to. See screenshot:
doc export sheets 6

Step 4: And then click OK, then each checked worksheet in the Split Workbook dialog box is exported and saved as individual workbook. Each new workbook is named with the original worksheet name. See screenshot:
doc export sheets 5

Click to know more information about this Split Workbook tool.

arrow blue right bubble Export and save each sheet as new workbook


Quickly split data into multiple worksheets based on column or fixed rows in Excel

Supposing you have a worksheet that has data in columns A to G, the salesman’s name is in column A and you need to automatically split this data into multiple worksheets based on the column A in the same workbook and each salesman will be splitted into a new worksheet. Kutools for Excel’s Split Date utility can help you to quickly split data into multiple worksheets based on selected column as below screenshot shown in Excel.  Click for full-featured 30 days free trial!
doc split data 2
 
Kutools for Excel: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days.

Related articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (62)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks alot, works very well and easy.
Nasser
This comment was minimized by the moderator on the site
Hello I like the code Is it possible to just save the new workbook without the date information That is so when I resave the sheets in the previous workbook I will have the option to overwrite the changes rather than create another dated folder? Also but not so important how could I use another name and destination for the destination folder Regards Sean
Sean
This comment was minimized by the moderator on the site
Thanks a lot. Good Job!.
Rajesh Jayagopi
This comment was minimized by the moderator on the site
Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line. Thanks! Keith
Keith
This comment was minimized by the moderator on the site
Hi All, Can someone help me on below. I need VBA code that can copy only all visible sheets to new workbook and it should not copy macro code to new workbook, save new workbook on desktop with two different cell values in sheet and sheet name as a file name and close the master workbook without saving.
Phani
This comment was minimized by the moderator on the site
Thank you. This is esactly what I needed.
Votefor Pedro
This comment was minimized by the moderator on the site
The code is failing at sh.Copy and I cannot figure out why. Any Ideas?
Sam
This comment was minimized by the moderator on the site
this code is perfect for what i need, but could you show code for the exact same process for one sheet rather than the entire workbook?
Chris
This comment was minimized by the moderator on the site
The VBA codes works like magic, but is there a way for this to be done using VBScript? I'm going nuts trying to meet the requirement from my supervisor.
farfan
This comment was minimized by the moderator on the site
thank. terimakasih. ini code yang saya butuhkan
fauzan
This comment was minimized by the moderator on the site
Very Useful thanks! Loved the VBA Code
AC
This comment was minimized by the moderator on the site
Muy buena la aplicacion. Es una pena no existir tambien en Español. Gracias
JoaoM
This comment was minimized by the moderator on the site
Unfortunately the VBA code didn't work for me. I had to debug and the issue is with the line: Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Any ideas why it didn't work for me?
Charlie Clarke
This comment was minimized by the moderator on the site
Great article - VBA worked first time - perfect
Louise
This comment was minimized by the moderator on the site
xWs.Copy -it is an error in my part what does it mean?
Beth G
This comment was minimized by the moderator on the site
Run time error Method 'Copy of Object' worksheet' failed
Beth G
This comment was minimized by the moderator on the site
Out of the above three methods, I found the first method to be quite good having regard to the fact that I am a beginner & my work is not at all of the same magnitude like professionals. My sincere thanks for explaining the steps in simple and lucid manner.
Madhav Mehendale
This comment was minimized by the moderator on the site
Can we also export ALL (300+) sheets to html, this will help me a lot, the export to unified text is already helping but I need them in html, or no table borders for the cell differences
Richard
This comment was minimized by the moderator on the site
Your code worked for me... Thanks much!!!
DAS
This comment was minimized by the moderator on the site
Hi. I received an error code that says "Compile error: Invalid outside procedure"...help!
Rae
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0  Characters
Suggested Locations