Diego Rispoli

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

Stampa Email

Diego ti consiglia

  • Questo articolo non ha soddisfatto le tue aspettative? Fai una domanda o cerca risposte in Domande e Risposte
  • La lettura è stata noiosa? Rilassati guardando le webcam di tutto il mondo
  • La fotografia è una tua passione oppure ti servono foto per i tuoi scopi? Guarda cosa abbiamo per te su Pixel
  • Mentre stavi leggendo questo articolo è successo qualcosa nel mondo, informati con le Notizie in tempo reale
  • Ancora non sei felice? abbiamo film, libri, musica e tanti altri contenuti per te!

Cerchiamo di rendere questo sito il più piacevole e affidabile possibile e per farlo abbiamo bisogno anche del tuo aiuto. Se ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? invia una segnalazione oppure entra nella Live Chat. Grazie!

2006-2020 Powered by Diego Rispoli
Info | Help Desk | Live Chat | Privacy Policy | Cookie Policy