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

serpente Tannino Eli Roth Maestrale Elevazione Compagnie Telefoniche orti Jacqueline Emerson Allen Grant Metalli idrofluorocarburi SETI stella cyber leggenda benessere michela palmieri Servizio Elettrico forno Rodeus amarus Raicho Vasilev Api aeromobili peep toe iphone giglio di Sant'Antonio MAC Address flat Campeggiatore fiume Trasponder antifurto aperto cavolfiore simboli seminano resistenza elettrica Campobasso QSO GEO ITU piselli esposizione Continuous Wave Xbox 360 carta prepagata apple screenshot PSD crateri marini Satellite sedano gomma URL webcam ip snow geoparco teleferica poste Mugnaia WMV Camperista atmosferica Johann Bayer PageRank Turnstile ipconfig cioccolato canapa Johnny Depp luoghi CMS carbonacee barca Vymarna Napoli Luigi Proietti accordare Marco Bocci Jennifer Lawrence Peter Boyle frequenze Assassin's Creed ricetta SOLDI Re jeans nucleo terrestre LT898UV Laio Isabelle Fuhrman SpeedTest Hyginus Straordinario email Levante agricoltura conferma eliminazione mangiare DIGIPEATER phishing Call of Duty carabinieri Blu fagiolini Dent du Géant WII cipolle system cina Vini italiani Malika Ayane Zero Assoluto noci barrato decoupage Egidio Veronesi riscaldamento David Hemmings orientare Conto Online OM adattatore Customer Center vietati Corydoras radioamatoriale bambù puntare brutta figura C4FM VMC M4A Jeff Hephner Adam Sandler pizzette Geminidi Erg documenti pipistrelli Jonathan Pryce acquario Sbloccabili Scorpione ontario Lazio secondario Hyphessobrycon Rank gioielleria