Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
Hello.
How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
mkDir "C:\Datefile\" & format(sheets("MainPage").range("C22").Value, _
"yyyy-mm-dd") Off the top of my head that should be close. -- HTH... Jim Thomlinson "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
Francis,
you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
Sebastien brings up an interesting point. If the value in C22 is a text
string then use his code to replace the slashes with dashes. If however, as I had assumed, the value is a date then the replace will not work and my code will... Depend on what you have... -- HTH... Jim Thomlinson "sebastienm" wrote: Francis, you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
Jim,
The text property of a range object is a text string, even if the value is a date. It returns the cell as formatted. Your way is better though IMO as it formats the date year first, which is better for sorting. Bob "Jim Thomlinson" wrote in message ... Sebastien brings up an interesting point. If the value in C22 is a text string then use his code to replace the slashes with dashes. If however, as I had assumed, the value is a date then the replace will not work and my code will... Depend on what you have... -- HTH... Jim Thomlinson "sebastienm" wrote: Francis, you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
I didn't notice that Sebastien had used Text... I just assumed Value (which I
always use). I never use text for stuff like that because my end users like to change formats and such on me. I guess that my end users are a little more fiendish and clever than I would like... I will have to be more careful in the future... Nice catch Bob -- HTH... Jim Thomlinson "Bob Phillips" wrote: Jim, The text property of a range object is a text string, even if the value is a date. It returns the cell as formatted. Your way is better though IMO as it formats the date year first, which is better for sorting. Bob "Jim Thomlinson" wrote in message ... Sebastien brings up an interesting point. If the value in C22 is a text string then use his code to replace the slashes with dashes. If however, as I had assumed, the value is a date then the replace will not work and my code will... Depend on what you have... -- HTH... Jim Thomlinson "sebastienm" wrote: Francis, you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
This Method worked.
Regards and Thanks. Francis. "Jim Thomlinson" wrote: mkDir "C:\Datefile\" & format(sheets("MainPage").range("C22").Value, _ "yyyy-mm-dd") Off the top of my head that should be close. -- HTH... Jim Thomlinson "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
It is quite a useful property to have up your sleeve Jim.
I still prefer your method :-)) Bob "Jim Thomlinson" wrote in message ... I didn't notice that Sebastien had used Text... I just assumed Value (which I always use). I never use text for stuff like that because my end users like to change formats and such on me. I guess that my end users are a little more fiendish and clever than I would like... I will have to be more careful in the future... Nice catch Bob -- HTH... Jim Thomlinson "Bob Phillips" wrote: Jim, The text property of a range object is a text string, even if the value is a date. It returns the cell as formatted. Your way is better though IMO as it formats the date year first, which is better for sorting. Bob "Jim Thomlinson" wrote in message ... Sebastien brings up an interesting point. If the value in C22 is a text string then use his code to replace the slashes with dashes. If however, as I had assumed, the value is a date then the replace will not work and my code will... Depend on what you have... -- HTH... Jim Thomlinson "sebastienm" wrote: Francis, you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new directory
Sebastienm;
I wonder if you can help me to setup this macro. I want to create a directory when I save as my file. My macro (see below) save as the file under specific directory. However, I want to create a directory with the same filename which is the description typed in the cell "C1" on the the sheet "Test" and put my file under this new directory. Could you please help me with this matter. Thanks in advance. Maperalia '*** START MACRO ***** Sub SaveAs() Dim WO As String Set swApp = Application.SldWorks Set swApp = GetObject("SldWorks.Application") Set Part = swApp.ActiveDoc WO = Worksheets("Test").Range("C1") longstatus = Part.SaveAs3("C:\Table\Top\ " & WO & ".sldprt", 0, 2) End Sub '*** END MACRO ***** "sebastienm" wrote: Francis, you can use the mkdir statement. SOmething like (no tested): '----------------------------------- Dim s as string, path as string path= "C:/Datefile/" s=ThisWorksbook.sheets("MainPage").Range("C22").Te xt s = replace(s, "/", "-") ' replace / with dash - path= path & s ' <------ path string makdir path '------------------------------ Regards, Sébastien <http://www.ondemandanalysis.com "Francis Brown" wrote: Hello. How to you create a directory named the same as a date stored in a cell. say sheet MainPage has a date 25/10/2005 in cell C22. How do you take this and make a Direcotry 22-10-2005 in C:/Datefile folder. Thanks in advance. Francis. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Create Directory Structure from Cell Value. | Excel Discussion (Misc queries) | |||
Create a Backup in Different Directory | Excel Discussion (Misc queries) | |||
Pemission to create a directory | Excel Programming | |||
Save to directory and create if not exist | Excel Programming | |||
Create directory | Excel Programming |