If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
saving worksheets as individual files
I have a workbook with over 250 worksheets. I would like to separate
the workbook into individual worksheets. What I mean is that I would each worksheet to be its own excel file, with only itself in the excel sheet. I need some help doing this, and in the past way possible. Thank you! |
#2
|
|||
|
|||
saving worksheets as individual files
Right click each sheet tab and select move or copy, then check copy and new
book. Or you could run a macro that will do it for you and maybe name the workbook after the sheet name? -- Regards, Peo Sjoblom (No private emails please, for everyone's benefit keep the discussion in the newsgroup/forum) "Paul Mendez" wrote in message om... I have a workbook with over 250 worksheets. I would like to separate the workbook into individual worksheets. What I mean is that I would each worksheet to be its own excel file, with only itself in the excel sheet. I need some help doing this, and in the past way possible. Thank you! |
#3
|
|||
|
|||
saving worksheets as individual files
Paul
Copy/paste this code to a general module in your workbook then run it. 250 new one-sheet workbooks each named after their worksheet name will be placed in the same folder as the original 250-sheet 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 Excel MVP On 29 Jun 2004 11:54:10 -0700, (Paul Mendez) wrote: I have a workbook with over 250 worksheets. I would like to separate the workbook into individual worksheets. What I mean is that I would each worksheet to be its own excel file, with only itself in the excel sheet. I need some help doing this, and in the past way possible. Thank you! |
#4
|
|||
|
|||
saving worksheets as individual files
Thanks Mr. Dibben
It worked great!!!! Paul Gord Dibben gorddibbATshawDOTca wrote in message . .. Paul Copy/paste this code to a general module in your workbook then run it. 250 new one-sheet workbooks each named after their worksheet name will be placed in the same folder as the original 250-sheet 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 Excel MVP On 29 Jun 2004 11:54:10 -0700, (Paul Mendez) wrote: I have a workbook with over 250 worksheets. I would like to separate the workbook into individual worksheets. What I mean is that I would each worksheet to be its own excel file, with only itself in the excel sheet. I need some help doing this, and in the past way possible. Thank you! |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Saving files to a usb2 drive. | Peacekeeper | Powerpoint | 9 | June 23rd, 2004 02:46 AM |
Product Key for Office XP | P.G.Indiana | Setup, Installing & Configuration | 1 | June 7th, 2004 03:22 AM |
Saving Page Margins with RTF files | Karen Spann | Page Layout | 0 | May 17th, 2004 11:33 AM |
Saving Excel files as PDFs or vector files | Chuck | Charts and Charting | 1 | December 19th, 2003 01:41 PM |