Попробуйте макрос  
 
Sub SaveAsCSVinQuotes()  
Dim r As Range, c As Range, s As String  
s = Application.GetSaveAsFilename(, "CSV Files (*.csv),*.csv,All Files (*.*),*.*", , "Сохранение в формате CSV в кавычках")  
If s = "False" Then Exit Sub  
Open s For Output As #1  
For Each r In ActiveSheet.UsedRange.Rows  
   s = ""  
   For Each c In r.Cells  
       s = s & ";" & """" & c & """"  
   Next  
   Print #1, Mid$(s, 2)  
Next  
Close #1  
End Sub