ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using a cell reference in a filepath (https://www.excelbanter.com/excel-programming/316235-using-cell-reference-filepath.html)

Pinda[_2_]

Using a cell reference in a filepath
 
Hello,

The following code saves the active workbook in c:/files

ActiveWorkbook.SaveAs "C:\files\" & ActiveWorkbook.Name

However, I have two sub folders in c:\files,

c:\files\new\ and c:\files\old\

Is it possible to add a cell reference to the end of

ActiveWorkbook.SaveAs "C:\files\"

so I can type, for example, "old" or "new" in cell A1, and when I save using
the above code, excel will save in the appropriate sub folder?

I have tried along the lines of:

ActiveWorkbook.SaveAs "C:\files\Range("A1")" & ActiveWorkbook.Name

but I cannot get it to work.

Thanks in advance.

Pinda.



Bob Phillips[_6_]

Using a cell reference in a filepath
 
Close !

ActiveWorkbook.SaveAs "C:\files\Range" & Range("A1").Value &
ActiveWorkbook.Name


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pinda" wrote in message
...
Hello,

The following code saves the active workbook in c:/files

ActiveWorkbook.SaveAs "C:\files\" & ActiveWorkbook.Name

However, I have two sub folders in c:\files,

c:\files\new\ and c:\files\old\

Is it possible to add a cell reference to the end of

ActiveWorkbook.SaveAs "C:\files\"

so I can type, for example, "old" or "new" in cell A1, and when I save

using
the above code, excel will save in the appropriate sub folder?

I have tried along the lines of:

ActiveWorkbook.SaveAs "C:\files\Range("A1")" & ActiveWorkbook.Name

but I cannot get it to work.

Thanks in advance.

Pinda.





Sean[_11_]

Using a cell reference in a filepath
 
The code you entered was almost right, this should work

ActiveWorkbook.SaveAs "C:\files\" & Range("A1") & "\" &
ActiveWorkbook.Name

----
Sean
"Just press the off switch, and go to sleep!"

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Pinda[_2_]

Using a cell reference in a filepath
 
Bob,

Thanks again for the help, but the code you've given does not save the file
in the subfolder (old), it just adds "rangeold" to the front of the filename
and saves it in c:\files.


So if the file is called test.xls, it will now be called rangeoldtest.xls.

I want the file to be saved in the subfolder "old" if cell A1 contains the
text "old", or the file to be saved in the subfolder "new" if cell A1
contains the text "new"


Thanks again,

Pinda.

"Bob Phillips" wrote:

Close !

ActiveWorkbook.SaveAs "C:\files\Range" & Range("A1").Value &
ActiveWorkbook.Name


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pinda" wrote in message
...
Hello,

The following code saves the active workbook in c:/files

ActiveWorkbook.SaveAs "C:\files\" & ActiveWorkbook.Name

However, I have two sub folders in c:\files,

c:\files\new\ and c:\files\old\

Is it possible to add a cell reference to the end of

ActiveWorkbook.SaveAs "C:\files\"

so I can type, for example, "old" or "new" in cell A1, and when I save

using
the above code, excel will save in the appropriate sub folder?

I have tried along the lines of:

ActiveWorkbook.SaveAs "C:\files\Range("A1")" & ActiveWorkbook.Name

but I cannot get it to work.

Thanks in advance.

Pinda.






Bob Phillips[_6_]

Using a cell reference in a filepath
 
Sorry, I wasn't careful enough, didn't see you hade the Range as well

ActiveWorkbook.SaveAs "C:\files\" & Range("A1").Value & "\" & _
ActiveWorkbook.Name

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pinda" wrote in message
...
Bob,

Thanks again for the help, but the code you've given does not save the

file
in the subfolder (old), it just adds "rangeold" to the front of the

filename
and saves it in c:\files.


So if the file is called test.xls, it will now be called rangeoldtest.xls.

I want the file to be saved in the subfolder "old" if cell A1 contains the
text "old", or the file to be saved in the subfolder "new" if cell A1
contains the text "new"


Thanks again,

Pinda.

"Bob Phillips" wrote:

Close !

ActiveWorkbook.SaveAs "C:\files\Range" & Range("A1").Value &
ActiveWorkbook.Name


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pinda" wrote in message
...
Hello,

The following code saves the active workbook in c:/files

ActiveWorkbook.SaveAs "C:\files\" & ActiveWorkbook.Name

However, I have two sub folders in c:\files,

c:\files\new\ and c:\files\old\

Is it possible to add a cell reference to the end of

ActiveWorkbook.SaveAs "C:\files\"

so I can type, for example, "old" or "new" in cell A1, and when I save

using
the above code, excel will save in the appropriate sub folder?

I have tried along the lines of:

ActiveWorkbook.SaveAs "C:\files\Range("A1")" & ActiveWorkbook.Name

but I cannot get it to work.

Thanks in advance.

Pinda.








Pinda[_2_]

Using a cell reference in a filepath
 
Bob/Sean,

Bob u the man, thanks, I'm learning slowly but surely!

Thanks to Sean as wel,

In a bit,

Pinda

"Sean" wrote:

The code you entered was almost right, this should work

ActiveWorkbook.SaveAs "C:\files\" & Range("A1") & "\" &
ActiveWorkbook.Name

----
Sean
"Just press the off switch, and go to sleep!"

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!



All times are GMT +1. The time now is 08:07 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com