Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
I have a wookbook with about 30 tabs (worksheets). Is there a way I can
automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Sub Make_New_Books()
Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Thank you, thank you, thank you!!!!! This will save me so much time.
"Gord Dibben" wrote: Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Thanks for the feedback.
Note: you can always change the path to another folder if you wished. ActiveWorkbook.SaveAs FileName:="C:\myfolder" & "\" & w.Name Gord On Thu, 4 Oct 2007 21:12:00 -0700, JKR wrote: Thank you, thank you, thank you!!!!! This will save me so much time. "Gord Dibben" wrote: Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Gord,
Again, thank you so much for your help. I am wondering if you can help me take this another step. I have a worksheet with multiple columns. After the data has been sorted (say by customer), is there a macro that can be run that would automatically save a sheet named for each customer and have just the rows for that customer, saving as many sheets as there are unique customer names? "Gord Dibben" wrote: Thanks for the feedback. Note: you can always change the path to another folder if you wished. ActiveWorkbook.SaveAs FileName:="C:\myfolder" & "\" & w.Name Gord On Thu, 4 Oct 2007 21:12:00 -0700, JKR wrote: Thank you, thank you, thank you!!!!! This will save me so much time. "Gord Dibben" wrote: Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Have a look at Ron de Bruin's site for copying filtered or unique values in a
column to a new workbook. http://www.rondebruin.nl/copy5.htm Gord On Mon, 8 Oct 2007 12:24:00 -0700, JKR wrote: Gord, Again, thank you so much for your help. I am wondering if you can help me take this another step. I have a worksheet with multiple columns. After the data has been sorted (say by customer), is there a macro that can be run that would automatically save a sheet named for each customer and have just the rows for that customer, saving as many sheets as there are unique customer names? "Gord Dibben" wrote: Thanks for the feedback. Note: you can always change the path to another folder if you wished. ActiveWorkbook.SaveAs FileName:="C:\myfolder" & "\" & w.Name Gord On Thu, 4 Oct 2007 21:12:00 -0700, JKR wrote: Thank you, thank you, thank you!!!!! This will save me so much time. "Gord Dibben" wrote: Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to save each tab as a new workbook
Gord,
Thanks again for all of your help. This was right on target and was extremely helpful. "Gord Dibben" wrote: Have a look at Ron de Bruin's site for copying filtered or unique values in a column to a new workbook. http://www.rondebruin.nl/copy5.htm Gord On Mon, 8 Oct 2007 12:24:00 -0700, JKR wrote: Gord, Again, thank you so much for your help. I am wondering if you can help me take this another step. I have a worksheet with multiple columns. After the data has been sorted (say by customer), is there a macro that can be run that would automatically save a sheet named for each customer and have just the rows for that customer, saving as many sheets as there are unique customer names? "Gord Dibben" wrote: Thanks for the feedback. Note: you can always change the path to another folder if you wished. ActiveWorkbook.SaveAs FileName:="C:\myfolder" & "\" & w.Name Gord On Thu, 4 Oct 2007 21:12:00 -0700, JKR wrote: Thank you, thank you, thank you!!!!! This will save me so much time. "Gord Dibben" wrote: Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote: I have a wookbook with about 30 tabs (worksheets). Is there a way I can automatically save each worksheet in the workbook as a new workbook, saving as the tab name.xls? Thanks for your help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Save an embedded workbook in PPT | Excel Discussion (Misc queries) | |||
Shared workbook - to save or not to save | Excel Discussion (Misc queries) | |||
Automatic save workbook | Excel Worksheet Functions | |||
Select sheet tabs in workbook & save to separate workbook files | Excel Worksheet Functions | |||
How do I save a workbook as a new workbook by using macros? | Excel Discussion (Misc queries) |