ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   automatic choose of dir path (https://www.excelbanter.com/excel-programming/368110-automatic-choose-dir-path.html)

bratek

automatic choose of dir path
 
hello

I've got one problem.. I backup some files in excel and I want them to
be in different directories:

if its may 2007
then the file is saved:
C:\backup\2007\may\*.txt

I can write them in chosen directories but I want it to be automatic:
DatePart("yyyy", Date)
and if yyyy = 2007 macro is choosing c:\backup\2007

any help would be helpfull!!
thx


Bob Phillips

automatic choose of dir path
 
With ActiveWorkbook
.SaveAs "C:\backup\" & DatePart("yyyy", Date) & "\" & .name"
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"bratek" wrote in message
ups.com...
hello

I've got one problem.. I backup some files in excel and I want them to
be in different directories:

if its may 2007
then the file is saved:
C:\backup\2007\may\*.txt

I can write them in chosen directories but I want it to be automatic:
DatePart("yyyy", Date)
and if yyyy = 2007 macro is choosing c:\backup\2007

any help would be helpfull!!
thx




Ron de Bruin

automatic choose of dir path
 
Hi bratek

You can creat the save path like this

MsgBox "C:\backup\" & Format(Date, "yyyy") & "\" & Format(Date, "mmm") & "\"


--
Regards Ron de Bruin
http://www.rondebruin.nl



"bratek" wrote in message ups.com...
hello

I've got one problem.. I backup some files in excel and I want them to
be in different directories:

if its may 2007
then the file is saved:
C:\backup\2007\may\*.txt

I can write them in chosen directories but I want it to be automatic:
DatePart("yyyy", Date)
and if yyyy = 2007 macro is choosing c:\backup\2007

any help would be helpfull!!
thx




bratek

automatic choose of dir path
 
thx!!! works perfectly!! maybe except the second option "mmm" I used
"m" and it works :)



All times are GMT +1. The time now is 01:12 AM.

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