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

Tags cloud

fondatore ricezione KeepVid anidride carbonica astroblema DIGIPEATER Zermatt fulmini Onde Stazionare isotopica diesel cappelle sogno Malika Ayane Cretaceo Delta Aquaridi Giocasta Cidatene fiordi Supermercato Oliver Reed fotocamera reflex OM neve expo PERSONAGGIO lavabo Umberto Guidoni Lucrezia Borgia Psichiatra Jerry Seinfeld comunicare umidità stazione Awekas moquette cartoni chat tv TV2000 radice Onde Sismiche Elica Paola Bianchi meteorici protocollo fiocchi HD Paolo Calabresi Dentifricio Piante di primo piano Hyginus pneumatico Simulator Aristofane Oscar 2016 Lenny Kravitz vendere vietati Keplero ecologico 800 900 800 Sam Claflin site michela palmieri Sanremo 2016 iframe Charm bar vasca Venti sistema operativo Centro Notifiche Martin Scorsese sale tebe sud 101 acquariofilia MPG industriali asparagi verdi lampadina remoto pressione documentari alisei impression Perielio NOVE Mare Imbrium MP4 Android Clover punto gamma Simone Tonini Casey Affleck Samuel Morse atmosfera Tiziana Lodato Fatima Trotta GSM Gianmarco Banzi registrazione argon Diluvio universale index articolazioni INPS vino Valtournenche comunità europea Timocharis osservare tester adattatore Mezzo Respiro Ennio Fantastichini Camgirl limone Gestione attività Zoo Radio Deejay WMV dermocromia palinsesto Onde Stazionarie Brachydanio giglio candido screenshot Morris Worm nibali Azzorre classi di fuoco WXtoImg Rai Scuola Vieste segnale patate carbonacee Paracheirodon axelrodi Valpolicella lambda rai 2 Diretta linea sbilanciata Noi Siamo Infinito dipolo carreggiata Un Giorno Mi Dirai Cassiopea