Worksheet to be saved in current directory
 

At the end of a macro I save the worksheet. The following statement works for
me, but how should the code be to make this work on another users computer
with another directory structure? (I copied this statement from another
answer - my knowledge of VBA is very limited!)
I save with:
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\VvEAH\Finance\2007\Bookdoc " & Format(Now, "yyyy-mm") & ".xls"
The question is actually: how do I get the path of the worksheet in use and
use that in the save statement?
Thanks,
Paul
P.S. I asked this question earlier, but cannot find it back.....!

Worksheet to be saved in current directory
 

Give this a whirl...

ActiveWorkbook.SaveAs Filename:=Thisworkbook.Path & "\Bookdoc " &
Format(Now, "yyyy-mm") & ".xls"

--
HTH...

Jim Thomlinson


"Pepestru" wrote:

At the end of a macro I save the worksheet. The following statement works for
me, but how should the code be to make this work on another users computer
with another directory structure? (I copied this statement from another
answer - my knowledge of VBA is very limited!)
I save with:
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\VvEAH\Finance\2007\Bookdoc " & Format(Now, "yyyy-mm") & ".xls"
The question is actually: how do I get the path of the worksheet in use and
use that in the save statement?
Thanks,
Paul
P.S. I asked this question earlier, but cannot find it back.....!

Worksheet to be saved in current directory
 

If you want to save the workbook in the same path as the active workbook,
this should work:

ActiveWorkbook.SaveAs Filename= activeworkbook.path & "\Bookdoc " &
Format(Now, "yyyy-mm") & ".xls"

James

"Pepestru" wrote in message
...
At the end of a macro I save the worksheet. The following statement works
for
me, but how should the code be to make this work on another users computer
with another directory structure? (I copied this statement from another
answer - my knowledge of VBA is very limited!)
I save with:
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\VvEAH\Finance\2007\Bookdoc " & Format(Now, "yyyy-mm") & ".xls"
The question is actually: how do I get the path of the worksheet in use
and
use that in the save statement?
Thanks,
Paul
P.S. I asked this question earlier, but cannot find it back.....!

Worksheet to be saved in current directory
 

Jim, that's fast!
And it works for me. I will sent it to another user to test it. I am
confident it will.
Many thanks,
Paul

"Jim Thomlinson" wrote:

Give this a whirl...

ActiveWorkbook.SaveAs Filename:=Thisworkbook.Path & "\Bookdoc " &
Format(Now, "yyyy-mm") & ".xls"

--
HTH...

Jim Thomlinson


"Pepestru" wrote:

At the end of a macro I save the worksheet. The following statement works for
me, but how should the code be to make this work on another users computer
with another directory structure? (I copied this statement from another
answer - my knowledge of VBA is very limited!)
I save with:
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\VvEAH\Finance\2007\Bookdoc " & Format(Now, "yyyy-mm") & ".xls"
The question is actually: how do I get the path of the worksheet in use and
use that in the save statement?
Thanks,
Paul
P.S. I asked this question earlier, but cannot find it back.....!