separatore di elenco csv

Question

Non riesco ad ottenere il separatore di elenco da punto e virgola a virgola  passando da un file excel a un file CSV. Quindi questo non viene interpretato come separatore di  campo  quando trasferisco i dati in Outlook per creare degli elenchi di nomi. Mi risulta un campo unico.

Giuseppe

Answer 1

Ciao Giuseppe,

grazie per la risposta. La macro  l’ho trovata anche in altre risposte. Ho provato ad applicarla, ma già alla prima istruzione

Dim srcRng As Range

La macro si blocca e non prosegue.

Può darsi che abbia sbagliato ad adottarla?

grazie

Giuseppe Zaffarano Hotmail.it

Prova a scaricare il mio file di prova Giuseppe20201021.xlsm

===

Regards,

Norman

Answer 2

Caro Noman,

grazie per la risposta. La macro  l’ho trovata anche in altre risposte. Ho provato ad applicarla, ma già alla prima istruzione

Dim srcRng As Range

La macro si blocca e non prosegue.

Può darsi che abbia sbagliato ad adottarla?

grazie

Giuseppe Zaffarano Hotmail.it

Answer 3

Come fare per rendere il progetto VBA utilizzabile per altri files?

Giuseppe

Answer 4

Grazie Norman

ma come posso creare una macro? in Excel?  in windows 10?

Per creare un VBA con ALT+F11 non riesco, C'è qualche altro modo?

Giuseppe

Answer 5

Ciao Giuseppe,

Non riesco ad ottenere il separatore di elenco da punto e virgola a virgola  passando da un file excel a un file CSV. Quindi questo non viene interpretato come separatore di  campo  quando trasferisco i dati in Outlook per creare degli elenchi di nomi. Mi risulta un campo unico.

Per ottenere 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 = ","             

    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