Excel Save as CSV file

[marylin123]

I need to save a copy of the worksheet I'm using as a CSV file. I the save name to be the date and users name, I've set up variables to get this information however i keep getting a Run-time error '1004'; Application-defined or object-defined error message and it will not work.

Code I'm using is:

Sub SaveCSV()
rundate = DateTime.Now
runname = Application.UserName
savename = rundate & runname
sfilename = ActiveWorkbook.Path & "\" & savename & ".csv"

ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:=sfilename, FileFormat:=xlCSV
Application.DisplayAlerts = True
End Sub

Can anyone point me in the right direction as to what the problem is and how to fix it please?

[CK76]

Likely issue is caused by rundate format. In most cases, datetime format contains illegal character for a file name.

Try something like below.

Please Login or Register  to view this content.

[Sintek]

Perhaps add

Please Login or Register  to view this content.

at beginning