Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
Hi,
The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
Hi
no code :-) -- Regards Frank Kabel Frankfurt, Germany Martyn wrote: Hi, The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
Hi,
This is one of the mistakes not "many" people can do....8-))) I was so tired list night that I forgot to paste it completely. Sorry Frank. Here goes ============================= Private Sub Workbook_Open() ' Can we add Application.DisplayAlerts = False here? Set shOrig = ActiveSheet For Each sh In ActiveWorkbook.Worksheets sh.Copy ActiveWorkbook.SaveAs Filename:="C:\" & sh.Name & ".xls" ActiveWorkbook.Close Next sh shOrig.Activate End Sub ============================= Martyn "Frank Kabel" wrote in message ... Hi no code :-) -- Regards Frank Kabel Frankfurt, Germany Martyn wrote: Hi, The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
See one reply at your other thread.
Martyn wrote: Hi, This is one of the mistakes not "many" people can do....8-))) I was so tired list night that I forgot to paste it completely. Sorry Frank. Here goes ============================= Private Sub Workbook_Open() ' Can we add Application.DisplayAlerts = False here? Set shOrig = ActiveSheet For Each sh In ActiveWorkbook.Worksheets sh.Copy ActiveWorkbook.SaveAs Filename:="C:\" & sh.Name & ".xls" ActiveWorkbook.Close Next sh shOrig.Activate End Sub ============================= Martyn "Frank Kabel" wrote in message ... Hi no code :-) -- Regards Frank Kabel Frankfurt, Germany Martyn wrote: Hi, The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
Hi
Dave provided already a solution for this in your other thread -- Regards Frank Kabel Frankfurt, Germany "Martyn" schrieb im Newsbeitrag ... Hi, This is one of the mistakes not "many" people can do....8-))) I was so tired list night that I forgot to paste it completely. Sorry Frank. Here goes ============================= Private Sub Workbook_Open() ' Can we add Application.DisplayAlerts = False here? Set shOrig = ActiveSheet For Each sh In ActiveWorkbook.Worksheets sh.Copy ActiveWorkbook.SaveAs Filename:="C:\" & sh.Name & ".xls" ActiveWorkbook.Close Next sh shOrig.Activate End Sub ============================= Martyn "Frank Kabel" wrote in message ... Hi no code :-) -- Regards Frank Kabel Frankfurt, Germany Martyn wrote: Hi, The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
can we copy the sheetnames too?
Sorry Frank & Dave,
I guess you are right. I think there was a problem with the test file I was working on. Now I've used the macro on another file and it works OK!. Martyn "Frank Kabel" wrote in message ... Hi Dave provided already a solution for this in your other thread -- Regards Frank Kabel Frankfurt, Germany "Martyn" schrieb im Newsbeitrag ... Hi, This is one of the mistakes not "many" people can do....8-))) I was so tired list night that I forgot to paste it completely. Sorry Frank. Here goes ============================= Private Sub Workbook_Open() ' Can we add Application.DisplayAlerts = False here? Set shOrig = ActiveSheet For Each sh In ActiveWorkbook.Worksheets sh.Copy ActiveWorkbook.SaveAs Filename:="C:\" & sh.Name & ".xls" ActiveWorkbook.Close Next sh shOrig.Activate End Sub ============================= Martyn "Frank Kabel" wrote in message ... Hi no code :-) -- Regards Frank Kabel Frankfurt, Germany Martyn wrote: Hi, The below code copies the content of our workbook sheets seperately as new workbooks, but saves the sheets with default "Sheet1", "Sheet2" name format. Can we also copy the used sheet names while copying? TIA |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sort Sheetnames when names are Months | Excel Discussion (Misc queries) | |||
Copy and paste versus copy and insert copied cells | New Users to Excel | |||
Allow relative referencing for imbedded sheetnames in formulas | Excel Worksheet Functions | |||
Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
EXCEL FILE a copy/a copy/a copy ....filename | New Users to Excel |