Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DateTime format
I have the following code to open a csv file for writing. To make a unique
name for the file I make use of the Now() function. E.g. I get the file name : C:\HF\Excel\Work\Naam_20090320_130144.csv However, when run on another machine with different date time setting it could result in : C:\HF\Excel\Work\Naam_-200Ma_1:0:4:3.csv Which result in an error. How can I make sure that I will always get the first result? Code : Dim ThisDirectory As String ThisDirectory = ActiveWorkbook.Path Dim TimeStamp As String TimeStamp = Mid(Now(), 7, 4) & Mid(Now(), 4, 2) & Mid(Now(), 1, 2) & "_" & Mid(Now(), 12, 2) & Mid(Now(), 15, 2) & Mid(Now(), 18, 2) Dim csvFileName As String csvFileName = ThisDirectory & "\Naam_" & TimeStamp & ".csv" Dim ReadyText As String Set csvObject = CreateObject("Scripting.FileSystemObject") Set csvFile = csvObject.CreateTextFile(csvFileName, True) |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Datetime CSV format | Excel Discussion (Misc queries) | |||
DateTime datatype in VBA | Excel Programming | |||
Custom DateTime Format | Excel Programming | |||
datetime format issues when linking access to excel | Excel Discussion (Misc queries) | |||
DateTime Format | Excel Programming |