La procedura indicata prima
pannello di controllo --> regional setting/Paese e lingua--> Impostazioni aggiuntive --> Separatore di elenco
deve cambiare il separatore, non c'è dubbio
Per quanto riguarda l'export con il double quote ("), excel non lo fa in automatico. Bisogna utilizzare una macro tipo quella sotto riportata oppure una valida alternativa è:
- importare il foglio excel in una tabella access
- fare l'export da access (tasto destro sulla tabella)
- scegliere il separatore di testo e di elenco
Ciao
Mik
codice:
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