Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 18
Default Over 1000 Sheets in a workbook

I was given a workbook with over 1000 worksheets. How can I convert all
these to their own workbook? I really don't want to do it manually!
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default Over 1000 Sheets in a workbook

Sub Savetime()
dim sh as Worksheet
for each sh in workbooks("BigBook.xls").worksheets
sh.copy
Activeworkbook.SaveAs "C:\MyFolder\" & sh.name & ".xls"
ActiveWorkbook.close Savechanges:=False
Next
end Sub

--
Regards,
Tom Ogilvy

"TEB2" wrote in message
...
I was given a workbook with over 1000 worksheets. How can I convert all
these to their own workbook? I really don't want to do it manually!



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,123
Default Over 1000 Sheets in a workbook

Another one that create a folder for the files
http://www.rondebruin.nl/copy6.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Tom Ogilvy" wrote in message ...
Sub Savetime()
dim sh as Worksheet
for each sh in workbooks("BigBook.xls").worksheets
sh.copy
Activeworkbook.SaveAs "C:\MyFolder\" & sh.name & ".xls"
ActiveWorkbook.close Savechanges:=False
Next
end Sub

--
Regards,
Tom Ogilvy

"TEB2" wrote in message
...
I was given a workbook with over 1000 worksheets. How can I convert all
these to their own workbook? I really don't want to do it manually!





Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

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


Similar Threads
Thread Thread Starter Forum Replies Last Post
Multiple Sheets (Need to create 500 individual sheets in one workbook, pulling DATA Amaxwell Excel Worksheet Functions 4 August 17th 06 06:23 AM
add new sheets in a workbook with new sheets being a variable [email protected] Excel Discussion (Misc queries) 1 April 11th 06 08:38 PM
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? Dmitry Excel Worksheet Functions 6 March 29th 06 12:43 PM
1000+$K$5/1000 -what does $ indicate in formula Coolbhims Excel Worksheet Functions 1 March 16th 06 11:51 AM
Sheets select method fails when workbook is opened by another workbook Mike Excel Programming 2 June 8th 04 04:17 AM


All times are GMT +1. The time now is 01:43 PM.

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

About Us

"It's about Microsoft Excel"