Save to Different Directory

[longbow007]

Hello, could some one please help me modify the code below? The Kill function works OK but the ThisWorkbook.SaveAs part does not work for some reason.

Please note that there are 2-spaces between the words: P3 CATS

Any assistance would be greatly appreciated.

Kind regards,

Chris

Please Login or Register  to view this content.

[Leith Ross]

Hello longbow007,

I am still looking through my documentation, but I believe it is because you are attempting to save the workbook during the Workbook_BeforeClose event.

[jasoncw]

Well, the code as written appears fine. And it works for me after I created the appropriate directories. My guess is that you may have mistyped the directory. Although I did not test it in the Workbook_BeforeClose event.

You could turn off the error handling and see what type of error you get.

HTH,
Jason

[davegugg]

I tested the Workbook_BeforeClose event with a Thisworkbook.saveas and it worked fine for me.
Is there a reason why you use the kill command for a file you are about to save over anyway?
Why not use activeworkbook.saveas instead of thisworkbook.saveas?
Should you need those parentheses for the argument in your saveas function?

[JBeaucaire]

Maybe like this:

Please Login or Register  to view this content.

[shg]

Please Login or Register  to view this content.

You will hate yourself the day you make some disastrous mistake, plan to close the file without saving, and then it gets saved anyway.

[longbow007]

Hi JBeaucaire, thank you for your code - very much appreciated. It's probably me, but the active workbook for some strange reason does not get save in the directory:

C:\CAT\MEALS\CATS Litters\P3 CATS\Databases\Backup\

What I used to do is Kill the file in the above directory and then save the active workbook in it.

I have tried many things to get this to work such as turning off the error handling, checked the spelling of the directory and tried using activeworkbook.saveas

If you could please further assist - that would be terrific.

Cheers,

Chris.

[longbow007]

Hi JBeaucaire,

I tried to google my problem and came across the following website:

http://msdn.microsoft.com/en-us/library/h1e33e36.aspx

I tried using the:

Application.ActiveWorkbook.SaveCopyAs("C\Book1.xls")

and just changed the directory path and file name to suit.

This save method seems to work OK.

I am not sure why this method works but the SaveAs method does not.

I thought you may be interested in the final result.

Thanks again for your help.

Cheers,

Chris.

[longbow007]

Hi JBeaucaire,

I tried to google my problem and came across the following website:

http://msdn.microsoft.com/en-us/library/h1e33e36.aspx

I tried using the:

Application.ActiveWorkbook.SaveCopyAs("C\Book1.xls")

and just changed the directory path and file name to suit.

This save method seems to work OK.

I am not sure why this method works but the SaveAs method does not.

I thought you may be interested in the final result.

Thanks again for your help.

Cheers,

Chris.

[longbow007]

Thank you Leith Ross for your kind assistance - very much appreciated.

Cheers,

Chris.

[longbow007]

Thank you jasoncw for your help - I did previously disable error handling and checked my typing of the pathway and directory. I had no luck there. It's all fixed now.

Cheers,

Chris.

[longbow007]

Hi davegugg, thanks for your help, I used the kill method to delete the old backup copy of my workbook out of its folder. Seems to work very well. I did try the ActiveWorkbook.SaveAs method but had no luck with it. It is all fixed now.

Cheers,

Chris.

[longbow007]

thank you shg for your help. I was trying to save a copy of my active workbook into a separate directory. Appreciate your assistance.

Kind regards,

Chris.