Need to insert " when exported to CSV file i have some code but cant find how to add the " for each fields in CSV

[augustus]

augustus
Moderator question:
Why did You duplicate Your thread after You've opened this?
This thread could move to correct Forum.

>>> use code - tags <<<

Public Sub SaveAsCSV()
    Dim fn As String
    fn = "_" & Format(Now, "yyyymmddhhmmss")
    ThisWorkbook.Worksheets("Data").Copy
    With ActiveWorkbook
        Application.DisplayAlerts = False
        .SaveAs Filename:="C:\TMU-Export\TMU_Sales" & fn, FileFormat:=xlCSVUTF8
        Application.DisplayAlerts = True
        .Close savechanges:=False
    End With
End Sub

 

[Marc L]

Hi, as a csv file does not need any double quote so the SaveAs method with csv file type is not the way to go …​

​

See samples in this thread (in particular Demo2) :​

Procedure to export a text file with both comma and quote delimiters in Excel

Hello Friends, I have a file which has fixed 101 columns and variant 2lakh rows which has to be exported to a text file with both comma and quote delimiters. I am using https://support.microsoft.com/en-us/kb/291296/en-us I takes around 4 - 5 hours to complete the export process and my half a...

chandoo.org