Tutorial on how to Export to a Quoted CSV
This guide is tailored towards Microsoft Office 2007, but with a little intuition it should work on the other distributions.
1. If the developer tab is not shown at the top
- Click File
- Options
- Customize Ribbon
- Select the Developer checkbox
2. On Developer tab, Code Group, Click Macro Security
3. On the Developer tab, in Code Group click Visual Basic
4. Right click the spreadsheet, Insert, Module
5. Paste the following:
Sub CSVFile()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ","
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub
7. Click Run
8. Type name and Select Destination of the File