I have a file that automatically copies out specific tabs of my main workbook
to a new workbook and then I am using the following code to save the new
workbook to a intranet sharepoint with a name_date_time format for the file
name.

ActiveWorkbook.SaveAs "http://path/" & "PassCounts_" &
format(now,"mmddyy_hhmmss") & ".xls"

How can I have Excel verify the SaveAs function took place on the new
workbook, saving the file appropriately to the intranet sharepoint, with out
a prompt to accept or cancel? If the SaveAs function did not take place,
acctually saving the file, I want the SaveAs process to loop until it does
take place.

Any help is appreciated.
Stephen W

if the workbook was saved then the saved property will be true.

do
ActiveWorkbook.SaveAs "http://path/" & "PassCounts_" &
format(now,"mmddyy_hhmmss") & ".xls"

loop until activeworkbook.saved = true
--
HTH...

Jim Thomlinson


"SJW_OST" wrote:

> I have a file that automatically copies out specific tabs of my main workbook
> to a new workbook and then I am using the following code to save the new
> workbook to a intranet sharepoint with a name_date_time format for the file
> name.
>
> ActiveWorkbook.SaveAs "http://path/" & "PassCounts_" &
> format(now,"mmddyy_hhmmss") & ".xls"
>
> How can I have Excel verify the SaveAs function took place on the new
> workbook, saving the file appropriately to the intranet sharepoint, with out
> a prompt to accept or cancel? If the SaveAs function did not take place,
> acctually saving the file, I want the SaveAs process to loop until it does
> take place.
>
> Any help is appreciated.
> Stephen W

On Tue, 14 Oct 2008 19:22:01 -0700, SJW_OST
<(E-Mail Removed)> wrote:

>I have a file that automatically copies out specific tabs of my main workbook
>to a new workbook

Teach me how to save specific tabs. I think I might need this soon.

Thanks

PS - the response to your OP was useful also. This is a great group!



John Keith
(E-Mail Removed)

See
http://www.rondebruin.nl/copy6.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"John Keith" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> On Tue, 14 Oct 2008 19:22:01 -0700, SJW_OST
> <(E-Mail Removed)> wrote:
>
>>I have a file that automatically copies out specific tabs of my main workbook
>>to a new workbook
>
> Teach me how to save specific tabs. I think I might need this soon.
>
> Thanks
>
> PS - the response to your OP was useful also. This is a great group!
>
>
>
> John Keith
> (E-Mail Removed)

Oops(I press the send button to fast)

If you want to save a few sheets to a new workbook you can use this to copy them to a new workbook

Sheets(Array("Sheet1", "Sheet3")).Copy



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> See
> http://www.rondebruin.nl/copy6.htm
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "John Keith" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>> On Tue, 14 Oct 2008 19:22:01 -0700, SJW_OST
>> <(E-Mail Removed)> wrote:
>>
>>>I have a file that automatically copies out specific tabs of my main workbook
>>>to a new workbook
>>
>> Teach me how to save specific tabs. I think I might need this soon.
>>
>> Thanks
>>
>> PS - the response to your OP was useful also. This is a great group!
>>
>>
>>
>> John Keith
>> (E-Mail Removed)

This works great, thank you!

"Jim Thomlinson" wrote:

> if the workbook was saved then the saved property will be true.
>
> do
> ActiveWorkbook.SaveAs "http://path/" & "PassCounts_" &
> format(now,"mmddyy_hhmmss") & ".xls"
>
> loop until activeworkbook.saved = true
> --
> HTH...
>
> Jim Thomlinson
>
>
> "SJW_OST" wrote:
>
> > I have a file that automatically copies out specific tabs of my main workbook
> > to a new workbook and then I am using the following code to save the new
> > workbook to a intranet sharepoint with a name_date_time format for the file
> > name.
> >
> > ActiveWorkbook.SaveAs "http://path/" & "PassCounts_" &
> > format(now,"mmddyy_hhmmss") & ".xls"
> >
> > How can I have Excel verify the SaveAs function took place on the new
> > workbook, saving the file appropriately to the intranet sharepoint, with out
> > a prompt to accept or cancel? If the SaveAs function did not take place,
> > acctually saving the file, I want the SaveAs process to loop until it does
> > take place.
> >
> > Any help is appreciated.
> > Stephen W

On Wed, 15 Oct 2008 16:30:44 +0200, "Ron de Bruin"
<(E-Mail Removed)> wrote:

>Oops(I press the send button to fast)
>
>If you want to save a few sheets to a new workbook you can use this to copy them to a new workbook
>
>Sheets(Array("Sheet1", "Sheet3")).Copy

Thank you Ron, I think that will work great.



John Keith
(E-Mail Removed)