Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Multiple Sheets (Need to create 500 individual sheets in one workbook, pulling DATA | Excel Worksheet Functions | |||
add new sheets in a workbook with new sheets being a variable | Excel Discussion (Misc queries) | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
1000+$K$5/1000 -what does $ indicate in formula | Excel Worksheet Functions | |||
Sheets select method fails when workbook is opened by another workbook | Excel Programming |