Save As Workbook to current Directory 1

[vestax22]

Hi, I want to have a button that will contain code to save the active workbook to the current directory with a new name (A Save AS) Does anybody know what function would return the current directory?


Thx, Lots of questions today I know and I appreciate a lot

P.S. Using Excel 2000

 

[Jooky68]

activeworkbook.path

 

[TonyJollans]

Hi vestax22,

Try CurDir

Enjoy,
Tony

 

[vestax22]

Hey, none of these answers give me the path of the avtive workbook.


Application.path gives the default save path
curdir() gives the directory for Excel

Any other Ideas?

 

[Jooky68]

activeworkbook.path returns the directory of where the program is run from, not the default save path.

 

[Jooky68]

applicatin.path will give yout he directory where you are running the main excel exe. But activeworkbook.path will return the path of where you are running the excel file from(the active workbook).

That should work Vestax22

 

[vestax22]

Thx Jooky68 but I had found the solution before reading this post. Since you led me to the answer ...

 

[VBOnly]

The right reference is the path property of the workbook from which the program is running. This workbook is called ThisWorkbook, probably after the key work "this" in C++. Similarly, in Word, use ThisDocument.

ThisWorkBook.path + "yourfilename.xls"

It took me quit a while to figure this out. Before that, I have to use a global variable set in the Document_Open event.

 

[TonyJollans]

Hi VBOnly,

Only vestax22 can say what the right reference is. In the original question (s)he asked for the current directory but it seems that what was wanted was the path of the active workbook. The workbook about to be saved may be, but is not necessarily, ThisWorkbook and, indeed, it quite probably is and was in this case, but again is not necessarily, the Active Workbook. It seems a solution to the problem in hand was found anyway.

Enjoy,
Tony