Re: Creating Individual Excel Files from Sheets

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Ron de Bruin (rondebruin_at_kabelfoon.nl)
Date: 12/16/04 

Date: Thu, 16 Dec 2004 20:14:35 +0100

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" <ChaplainDoug@discussions.microsoft.com> wrote in message news:59139268-1BA8-426E-A4FF-01DF361E2C5B@microsoft.com...
> 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" <ChaplainDoug@discussions.microsoft.com> wrote in message 
>> news:966C5A71-A1B1-4F0E-9C7F-51CCA749E466@microsoft.com...
>> > 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.
>>
>>
>>

Relevant Pages

  • Re: Creating Individual Excel Files from Sheets
    ... allow the user to browse to a file of his choice, specify a destination of ... individual files in the location specified. ... > Sub test() ... > Dim wb As Workbook ...
    (microsoft.public.excel.misc)
  • Re: Problem with downloading/copying files from wss site
    ... If they have Office 2003 installed on their client they should be able to ... with Net Use specify a local drive for a WSS document library. ... For individual files they ought to be able to Right-Click and select ... > Users with reader access have to open the file and then save it locally. ...
    (microsoft.public.sharepoint.windowsservices)
  • Re: E-Mail from Excel at a Certain Specified Time
    ... Ron many thanks for your interest ... Ron de Bruin wrote: ... .DeferredDeliveryTime = DateAdd ... however is the feature available whereby I can specify within ...
    (microsoft.public.excel.programming)
  • Re: E-Mail from Excel at a Certain Specified Time
    ... Ron, just popped it on to the address on your web site. ... Ron de Bruin wrote: ... The Address I want to populate the To field is in AH2. ... however is the feature available whereby I can specify within ...
    (microsoft.public.excel.programming)
  • Re: E-Mail from Excel at a Certain Specified Time
    ... Ron de Bruin wrote: ... The Address I want to populate the To field is in AH2. ... however is the feature available whereby I can specify within ...
    (microsoft.public.excel.programming)