Separatore di elenco per csv in Excel

Question

Ho Excel di Office 365 e non c'è verso di salvare un file csv con la virgola come separatore. Non serve a nulla cambiare il separatore di elenco nell'Area geografica come ha già suggerito qualcuno. Io mi chiedo se sia mai possibile che una persona debba perdere un sacco di tempo per fare una cosa così stupida. Anche cercare quale versione del programma stai usando è una cosa che, in qualsiasi altro programma è immediata, nei pacchetti Office è un mistero da risolvere!

Answer 1

Certo, che scrivendo un programmino in VBA lo rendesse possibile ci ero arrivato ... è che mi sembra veramente ASSURDAMENTE MICROSOFT. E poi, permettete, a questo punto faccio sostituire in un normale blocco notes il separatore esistente con la virgola (senza necessità di scrivere codice), ma resta che lo trovo assurdo!

Answer 2

Ciao Ciro Chiaiese,

Ho Excel di Office 365 e non c'è verso di salvare un file csv con la virgola come separatore. Non serve a nulla cambiare il separatore di elenco nell'Area geografica come ha già suggerito qualcuno. Io mi chiedo se sia mai possibile che una persona debba perdere un sacco di tempo per fare una cosa così stupida. Anche cercare quale versione del programma stai usando è una cosa che, in qualsiasi altro programma è immediata, nei pacchetti Office è un mistero da risolvere!

Per convertire un csv esistente in un file CSV con la virgola come separatore, prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub ConvertireSeparatorePerCSV()

    Dim srcRng As Range

    Dim rRow As Range

    Dim rCell As Range

    Dim sStr As String

    Dim FName As Variant

    Const sSeparatoreVoluto As String = ","              '<<=== Modifica

    FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

    If FName <> False Then

        If Selection.Cells.Count > 1 Then

            Set srcRng = Selection

        Else

            Set srcRng = ActiveSheet.UsedRange

        End If

        Open FName For Output As #1

        For Each rRow In srcRng.Rows

            sStr = ""

            For Each rCell In rRow.Cells

                sStr = sStr & """" & rCell.Value & """" & sSeparatoreVoluto

            Next

            While Right(sStr, 1) = sSeparatoreVoluto

                sStr = Left(sStr, Len(sStr) - 1)

            Wend

            Print #1, sStr

        Next

        Close #1

    End If

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona ConvertireSeparatorePerCSV | Esegui

===

Regards,

Norman