convert date to string of numbers
 

How would I write a line of code to change the date, such as 02/09/07, to a
string of numbers '020907'

I'm trying to write a line that will "save as" an excel file with a
specific name concatenated with the date at the end. Note: the date will
always change depending on the date the file is saved.

Here's a sample of the line of code I am working with

ActiveWorkbook.SaveAs Filename:= _
' "C:\Temp\SaveAsTest_" & <INSERT DATE CODE HERE & ".xls",
FileFormat _
' :=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
' False, CreateBackup:=False


ds

convert date to string of numbers
 

One way:

Format(Date, "mmddyy")

In article ,
"D.S." wrote:

How would I write a line of code to change the date, such as 02/09/07, to a
string of numbers '020907'

I'm trying to write a line that will "save as" an excel file with a
specific name concatenated with the date at the end. Note: the date will
always change depending on the date the file is saved.

Here's a sample of the line of code I am working with

ActiveWorkbook.SaveAs Filename:= _
' "C:\Temp\SaveAsTest_" & <INSERT DATE CODE HERE & ".xls",
FileFormat _
' :=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
' False, CreateBackup:=False


ds

convert date to string of numbers
 

I suggest writing the date backwards, helps sorting

ActiveWorkbook.SaveAs Filename:= _
' "C:\Temp\SaveAsTest_" & Format(date,"yy,mmdd") & ".xls",
FileFormat _
' :=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
' False, CreateBackup:=False



--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"D.S." wrote in message
...
How would I write a line of code to change the date, such as 02/09/07, to
a string of numbers '020907'

I'm trying to write a line that will "save as" an excel file with a
specific name concatenated with the date at the end. Note: the date will
always change depending on the date the file is saved.

Here's a sample of the line of code I am working with

ActiveWorkbook.SaveAs Filename:= _
' "C:\Temp\SaveAsTest_" & <INSERT DATE CODE HERE & ".xls",
FileFormat _
' :=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
' False, CreateBackup:=False


ds

convert date to string of numbers
 

Thanks. While both suggestions will work, < Format(Date,"mmddyy") will work
better for my situation. I'm using a variable for the Date because it's not
actually the current date, rather it's always a date in the past.

ds

"JE McGimpsey" wrote in message
...
One way:

Format(Date, "mmddyy")

In article ,
"D.S." wrote:

How would I write a line of code to change the date, such as 02/09/07, to
a
string of numbers '020907'

I'm trying to write a line that will "save as" an excel file with a
specific name concatenated with the date at the end. Note: the date will
always change depending on the date the file is saved.

Here's a sample of the line of code I am working with

ActiveWorkbook.SaveAs Filename:= _
' "C:\Temp\SaveAsTest_" & <INSERT DATE CODE HERE & ".xls",
FileFormat _
' :=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
' False, CreateBackup:=False


ds