export as csv file enclosed quotes?

I got this code off of the msdn website a few years ago. Should do what you are looing for.

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")

If FName <> False Then
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 & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End If
End Sub

HTH
Cal

I stumbled on this solution. Thank you for posting it, works great, I LOVE it.
I use it to prepare the input file to upload data in my MySql DB.

Thanks!!

Darrab

Sorry for resurrecting an old thread but this is not working for me. I have date-fields that i have formattet so that mariadb (mysql) will accept them.
When i export from Excel i get the correct format. Using the macro i get the quotes right but the dates are messed up
Any solutions to this?

Welcome to MrExcel.

Try using CurrCell.Text instead of CurrCell.Value.