PC Review


Reply
Thread Tools Rate Thread

Consolidated Workbook

 
 
Richard
Guest
Posts: n/a
 
      7th Apr 2008
Good morning Excel people!

I have a workbook with 40 seperate worksheets. I would like to break this
up into 40 seperate workbooks. Is there a simple way to do this other than
having to move each ss one at a time.

Thanks for your help.
Rich
 
Reply With Quote
 
 
 
 
Joel
Guest
Posts: n/a
 
      7th Apr 2008
the following code allows you to select a Folder and then saves each
worksheet in the folder using the sheetname as the new workbook name.


Sub split_book()

Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, "Select Folder ", &H1&)
If Not objFolder Is Nothing Then
Set oFolderItem = objFolder.Items.Item
Folder = oFolderItem.Path

For Each sht In ThisWorkbook.Sheets

sht.Copy
ActiveWorkbook.SaveAs Filename:=Folder & "\" & sht.Name
ActiveWorkbook.Close
Next sht
End If
End Sub

"Richard" wrote:

> Good morning Excel people!
>
> I have a workbook with 40 seperate worksheets. I would like to break this
> up into 40 seperate workbooks. Is there a simple way to do this other than
> having to move each ss one at a time.
>
> Thanks for your help.
> Rich

 
Reply With Quote
 
Ron de Bruin
Guest
Posts: n/a
 
      7th Apr 2008
See also
http://www.rondebruin.nl/copy6.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Richard" <(E-Mail Removed)> wrote in message news:E3265EE0-B540-4DA3-9104-(E-Mail Removed)...
> Good morning Excel people!
>
> I have a workbook with 40 seperate worksheets. I would like to break this
> up into 40 seperate workbooks. Is there a simple way to do this other than
> having to move each ss one at a time.
>
> Thanks for your help.
> Rich

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

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

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Consolidated array jxbeeman Microsoft Excel Misc 3 5th May 2009 09:34 PM
consolidated updates? Vic Windows XP General 2 14th Mar 2007 03:36 AM
VBA for Consolidated Worsheet tahir Microsoft Excel Programming 0 17th Mar 2006 08:35 PM
Consolidated Report =?Utf-8?B?U3RldmU=?= Microsoft Access Reports 1 8th Nov 2004 08:11 PM
Consolidated Updates =?Utf-8?B?VmVua3k=?= Windows XP Help 1 31st May 2004 11:43 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 10:37 AM.