ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   save worksheet as new workbook (https://www.excelbanter.com/excel-programming/291855-save-worksheet-new-workbook.html)

dreamer[_12_]

save worksheet as new workbook
 
Is there a way to save just one worksheet as a new workbook

--
Message posted from http://www.ExcelForum.com


Bob Phillips[_6_]

save worksheet as new workbook
 
Not directly. You could loop round and delete all the others except, and the
SaveAs.

Application.DisplayAlerts = False
For Each sh In Activeworkbook
If sh.name < "mySheet" Then
sh.Delete
End If
Next Sh
Application.DisplayAlerts = True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"dreamer " wrote in message
...
Is there a way to save just one worksheet as a new workbook?


---
Message posted from http://www.ExcelForum.com/




Nick Cranham

save worksheet as new workbook
 
dreamer,
Right click on that sheet's tab, select "Move or Copy", select "New Book",
check "Create a copy" if desired. Voila.
If you run the macro recorder whilst you do that, you'll have a good idea of
the code required.

(Assuming you're not trying to do this with a file from a mixed language
network: See the thread ""Path/File Access Error" on Sheets.Copy" below.)

NickHK

"dreamer " wrote in message
...
Is there a way to save just one worksheet as a new workbook?


---
Message posted from http://www.ExcelForum.com/




srgggf

save worksheet as new workbook
 

"Bob Phillips" wrote in message
...
Not directly. You could loop round and delete all the others except, and

the
SaveAs.


Activesheet.copy would appear a pretty direct means of generating a new
workbook containing (only) the desired sheet.

---
Regards
Norman



Bob Phillips[_6_]

save worksheet as new workbook
 
But that is still not directly

Bob

"srgggf" <jbkjkbjn wrote in message
...

"Bob Phillips" wrote in message
...
Not directly. You could loop round and delete all the others except, and

the
SaveAs.


Activesheet.copy would appear a pretty direct means of generating a

new
workbook containing (only) the desired sheet.

---
Regards
Norman





srgggf

save worksheet as new workbook
 
Hi Bob,

Indeed the Activesheet.Copy command directly creates a new single-sheet
workbook.

I suspect that you have confused this direct creation with a subsequent
(optional) save.

In any event, the looping deletion of other sheets method which you suggest
seems inappropiately lengthy in operation and overly verbose code.
Certainly, were I dealing with (say) a 100-sheet primary workbook, I know
which approach I would adopt.

Just my opinion of course.

---
Regards,
Norman.


"Bob Phillips" wrote in message
...
But that is still not directly

Bob

"srgggf" <jbkjkbjn wrote in message
...

"Bob Phillips" wrote in message
...
Not directly. You could loop round and delete all the others except,

and
the
SaveAs.


Activesheet.copy would appear a pretty direct means of generating a

new
workbook containing (only) the desired sheet.

---
Regards
Norman







Bob Phillips[_6_]

save worksheet as new workbook
 
I know what Activesheet.Copy does, but direct in my parlance would be
something like

SaveSheetAs filename

which doesn't exist. Deleting may be more lengthy, but both methods have to
create the target before saving. Hence, neither is direct, so guess what, I
am not confusion direct with a subsequent save.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"srgggf" <jbkjkbjn wrote in message
...
Hi Bob,

Indeed the Activesheet.Copy command directly creates a new single-sheet
workbook.

I suspect that you have confused this direct creation with a subsequent
(optional) save.

In any event, the looping deletion of other sheets method which you

suggest
seems inappropiately lengthy in operation and overly verbose code.
Certainly, were I dealing with (say) a 100-sheet primary workbook, I know
which approach I would adopt.

Just my opinion of course.

---
Regards,
Norman.


"Bob Phillips" wrote in message
...
But that is still not directly

Bob

"srgggf" <jbkjkbjn wrote in message
...

"Bob Phillips" wrote in message
...
Not directly. You could loop round and delete all the others except,

and
the
SaveAs.

Activesheet.copy would appear a pretty direct means of generating

a
new
workbook containing (only) the desired sheet.

---
Regards
Norman










All times are GMT +1. The time now is 11:17 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com