LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #6   Report Post  
Chaplain Doug
 
Posts: n/a
Default

Looking forward to the solution. Enjoy the coffee.

"Ron de Bruin" wrote:

Hi Chaplain Doug

I will make a example for you today (1-2 hours)
First I take a cup of coffee with my wife and children.



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


"Chaplain Doug" wrote in message ...
Dear Ron:

Beautiful! Just what I needed. Now another question:

I would love to produce a module that would bring up a dialog that would
allow the user to browse to a file of his choice, specify a destination of
his choice, and then run this code on the workbook so specified and save the
individual files in the location specified.

How could I creeate such a module such that it is independent of a
particular worksheet? (I placed your code in the worksheet I am currently
working on, but would like the code to be standalone for this more generic
application). Thanks for any suggestions, and God bless.

Chaplain Doug

"Ron de Bruin" wrote:

Hi

Try this one that save the files in "C:\" with the sheet name

Sub test()
Dim a As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For a = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(a).Copy
Set wb = ActiveWorkbook
wb.SaveAs "C:\" & wb.Sheets(1).Name & ".xls"
wb.Close False
Set wb = Nothing
Next a
Application.ScreenUpdating = True
End Sub



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


"Chaplain Doug" wrote in message
...
Excel 2003. I have multiple tabs (sheets?) in my workbook. I would like to
create an individual file for each sheet. How may I do this? I need to do
this regularly, so an automated procedure (versus manually cutting and
pasting) would be greatly appreciated. Thanks.






 
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
Creating GIFs in Excel 2003 for use in Dreamweaver Lou Crandall Charts and Charting in Excel 2 January 2nd 05 07:58 PM
How to open 123 files with excel Jeff B 813 Excel Discussion (Misc queries) 3 December 8th 04 09:11 PM
Why does Excel saves all my files as temporary files? Arija Excel Discussion (Misc queries) 2 December 7th 04 11:38 PM
Ignoring characters in excel sheets when creating a chart smintey Charts and Charting in Excel 2 December 7th 04 06:17 PM
Why does Excel in XP create new files? Lindy Excel Discussion (Misc queries) 3 December 2nd 04 12:56 AM


All times are GMT +1. The time now is 03:34 PM.

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

About Us

"It's about Microsoft Excel"