XLS to CSV with a Date on the filename - using VB

**simonias** · 02-16-2013, 07:17 PM

Hello.

I have done a fair amount of searching across the various forums and I don't seem to find an answer that directly answers this question:

I am trying to convert a XLS file to CSV after I complete a simple script that formats numbers correctly in the document (this is so this file can be accessed via "Data Merge" in Adobe InDesign).

I would like it to be automated that when I run the Macro this automatically spits out the file name as a CSV with a date on the end of the filename. I am running this on various different XLS files so the script would need to be somehow (I really don't know if this is possible) generic so that even if the file is in a different directory it will place the CSV in that directory with that same filename except changed to ".CSV" and having today's date. Example:

C:\test\text.xls = C:\test\test 1-15-2013.csv

or
C:\default\charts\flower.xls = C:\default\charts\flower 1-15-2013.csv

Thanks for any help or even a nice tap in the right diretion.

Best,
Simon

**JBeaucaire** · 02-17-2013, 03:41 AM

'Files in a folder to CSVs
Here's a macro for creating a CSV version of all sheets in all Excel files in a chosen folder.

Files to CSVs

**simonias** · 02-17-2013, 06:54 PM

Thank you very much.

This is very close to what I needed and EXCELLENT!

Is there some way to alter that to macro so that a date can be appended to the back of the filename. I have been doing a lot of different tests but seems no doable.

This may just be outside the limits of what VB can do, but it's worth a shot.

Thanks!

**JBeaucaire** · 02-17-2013, 07:45 PM

Maybe:

                    ActiveWorkbook.SaveAs Filename:=fName & "-" & shCnt _
                        & Format(Date, "(MM-DD-YY)" & ".csv", FileFormat:=xlCSV, CreateBackup:=False