How to export and save sheets and worksheets as 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:
Classic Menu for Office: brings back classic menus to Office 2010 and 2013 (includes Office 365).
Office Tab: brings tabbed interface to Office as the use of web browser Chrome, Firefox and Internet Explorer.
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.
Step 3: In Move or Copy dialog box, select the (new book) item from the drop down list of Move selected sheets to book.
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.
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:
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim sh As Worksheet
Dim DateString As String
Dim FolderName As String
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
Set Sourcewb = ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = Sourcewb.Path & "\" & Sourcewb.Name & " " & DateString
For Each sh In Sourcewb.Worksheets
If sh.Visible = -1 Then
Set Destwb = ActiveWorkbook
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
If Sourcewb.Name = .Name Then
MsgBox "Your answer is NO in the security dialog"
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
FileExtStr = ".xlsx": FileFormatNum = 51
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
If Destwb.Sheets(1).ProtectContents = False Then
Application.CutCopyMode = False
.SaveAs FolderName _
& "\" & Destwb.Sheets(1).Name & FileExtStr, _
MsgBox "You can find the files in " & FolderName
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
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:
The Kutools for Excel's Split Workbook can save each worksheet separately to multiple workbooks.
Kutools for Excel includes more than 120 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.
Step 1: Click Enterprise > Split Workbook…. See screenshot:
Step 2: In the Split Workbook dialog box, 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. (If you want to avoid splitting the hidden or blank worksheets, you can check the Skip hidden worksheets or Skip blank worksheets.) See screenshot:
Step 3: Then click Split button, and choose the folder that you want to put the new workbooks to. See screenshot:
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:
- Combine multiple workbooks to single workbook
- Save a selection as individual file
- Split a workbook to separate Excel files