Excel VBA modulo Convertire Separatore per CSV

Con questo articolo vi spiego come è semplice convertire un csv esistente in un file CSV con la virgola come separatore e utilizzando excel:

  • Alt+F11 per aprire l'editor di VBA
  • Alt+IM per inserire un nuovo modulo di codice

Nel nuovo modulo vuoto, incollare 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


Ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? INVIA UNA SEGNALAZIONE Grazie!

Tags cloud

1/2 QRX Gerusalemme altare Tiziana Lodato reattanza induttiva loran Documentario mod_rewrite.c bacino DNS capperi Oscar Maestrale fisica Ghiacciaio Turnstile saturno aristocratica Winsock Televisione tigullio Elio E Le Storie Tese Mauritshuis pericolosi spessore Persefone clic Perla Antliae SWR sandali ACARS spegnimento Sparidae gallina ricetrasmittente isotopica LaEffe greco-romana frequenze Dente del Gigante Alfonso XIII di Spagna Firenze deserto sfera onda gravitazionale sezione hPa manutenzione focus conversazione Sognefjord reset lavabo Aleksei Guskov GIALLO montecristo crono limone Astronomo motori di ricerca mameli Riccardo Milani JPG Jeff Bridges sandalo Astronomico nichel-cadmio 4/4 parabola alga Monaco onde Rifugio cyberspace Samantha Cristoforetti acquariofilia ctrl Quinzeina Pertini Betta splendens Grado azoto sport filo ferro LTE Frequency Modulation Alice Canale 16 Dakota Goyo prezzemolo nebulose anidride solforosa muratori ponti ripetitori Napoleone Bonaparte radioamatoriale alisei expo guarnizioni Cidatene OLP griglia vanillina Campeggiatore larva abitazione vegetazione autogrill significato LVOR documenti Bambuseae annunci bruschette luna calante anidride carbonica Psicologo punta analogici Bombardier Amplitude Modulation Giasone OGGETTI index Mac horror 137 MHz mela David Huddleston EME XVGA Awards rai 3 sling back Jacqueline Emerson italia 1 inclinazione comunicazioni gorgona Sirrah venere incrociato doppiaggio Lan Carla Gugino Tono bruschetta concessionario