Hi Guys, I have a piece of VBA which is exporting a sheet to a CSV file. I want this CSV to be comma separated with double qoutes around every column. At this moment I get comma's as separator, but I don't know how to get the double qoutes around the text in the columns. This is what I have so far: Sub Export() dt = Format(CStr(Now), "yyyyMMdd_hhmmss") Worksheets("Output").Activate ThisWorkbook.Sheets("Output").Copy ActiveCell.Value = ActiveCell.Value ActiveWorkbook.SaveAs Filename:=Worksheets("Open").Range("B6") & "/Test" & dt & ".csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True ActiveWorkbook.Close End Sub Can you guys help me out?

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA: Double quotes in export CSV

Thread starter Laurens1
Start date Aug 2, 2017
Tags

activecell.value csv double qoutes vba

Laurens1

New Member

Aug 2, 2017

Hi Guys,

I have a piece of VBA which is exporting a sheet to a CSV file. I want this CSV to be comma separated with double qoutes around every column.

At this moment I get comma's as separator, but I don't know how to get the double qoutes around the text in the columns. This is what I have so far:

Code:

Sub Export()
dt = Format(CStr(Now), "yyyyMMdd_hhmmss")

Worksheets("Output").Activate
ThisWorkbook.Sheets("Output").Copy
ActiveCell.Value = ActiveCell.Value


ActiveWorkbook.SaveAs Filename:=Worksheets("Open").Range("B6") & "/Test" & dt & ".csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
ActiveWorkbook.Close


End Sub

Can you guys help me out?