A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

saving worksheets as individual files



 
 
Thread Tools Display Modes
  #1  
Old June 29th, 2004, 07:54 PM
Paul Mendez
external usenet poster
 
Posts: n/a
Default 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  
Old June 29th, 2004, 08:05 PM
Peo Sjoblom
external usenet poster
 
Posts: n/a
Default 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  
Old June 29th, 2004, 10:25 PM
Gord Dibben
external usenet poster
 
Posts: n/a
Default 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  
Old June 30th, 2004, 04:06 PM
Paul Mendez
external usenet poster
 
Posts: n/a
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

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 02:41 PM


All times are GMT +1. The time now is 03:07 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.