Export designated sheet as CSV comma delimited

Hi y'all,

I'm trying to export an excel sheet as CSV comma delimited. I've put this code together but I do not get the comma delimitation. Furthermore, some figures contained in the sheet turn into dates in the CSV file. Any ideas? thanks :-)

Sub saveSheetToCSV()

    Dim myCSVFileName As String
    Dim tempWB As Workbook

    Application.DisplayAlerts = False
    On Error GoTo err

    myCSVFileName = ThisWorkbook.Path & "\" & "CSV-PRAP-" & VBA.Format(VBA.Now, "dd-MMM-yyyy hh-mm") & ".csv"

    ThisWorkbook.Sheets("Upload PRAP eNVenta").Activate
    ActiveSheet.Copy
    Set tempWB = ActiveWorkbook

    With tempWB
    Columns("AF").Delete
    Columns("AE").Delete
    Rows(1).EntireRow.Delete
    .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close
    End With
err:
    Application.DisplayAlerts = True
    MsgBox ("Done!")
End Sub

Unfortunately not. Sadly the "attach file" is disabled in this forum.

I also assume you have opened the file in notepad to see the format? It is possible it is ok, but if you reopen it in excel it convers certain cell to dates. is this the case?

Yes, when I reopen it in excel and comma delimitate the content it converts certain cell to dates.

Originally Posted by vio.coman

Yes, when I reopen it in excel and comma delimitate the content it converts certain cell to dates.

Don't open it from Excel.
Right click on CSV file and open from other program like Notepad.
CSV is just a Comma Separated Values Text File and when you open it from Exel, it automatically assign to cells.

Thanks, but I need to upload the csv file from excel into a system. There is no way around it but to open it in excel

Just export csv file.
Other system shold be able to read it.
Again, Excel can create csv file, also read it, but not how text editor does.