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

squadre SMS Billy Connolly 105 Pierfrancesco Favino Tiles offerta piane trasmissione Adesso E Qui RINGO Trieste Vincenzo Salemme Detail Gary Ross kiwi disturbo Vallis Alpes AMateur Teletype Over Radio Julie Dreyfus I Miss You Dick Van Dyke aglio meta tag Alice Sogni Infranti mandorle Band Plan scala Richter 5895 Wunderground Buran Gamba Mickey Rooney doppiatori Licenza Shawn Levy medicina Aidan Turner Estero METEOSAT percorso Negozio HD 1080 inno nazionale Ostia primo punto di Ariete Jacqueline Emerson John Adams PWS wide Neurologia macchine 5G Roberto Mattioli Willow Shields TV2000 elettrotecniche tdma zecca Shanghai-Pudong RG 213 /U Stabilimenti Balneari GTA stabilizzatori Quadrantidi Voice Cecina 3/4 Marco Aurelio Norman Matlock Valerio Mastandrea melanzane Proprietà analisi spettroscopica costellazioni batteria Richard Armitage Gore Verbinski Lello Arena Ethernet effetto Joule pisello tumefazione Zero Assoluto autolivellanti Buisson prenotazioni Torino Grammo larva AMBIENTE CubeSat fisica stufa elettrica 1952 riscaldamento Aircraft jeans legghins plug Daniel PeacockSti piante LTE avocado Polpo Anelli Blu digitale terrestre Pietro Badoglio Montreal NOAA guadagna online bolide Paolo Nespoli gufo Paolo Calabresi astroblema Capitanerie termostato Sovietico pianosa ossigeno AdSense Noa Zatta multiplayer Gressoney Sognefjord start orzaiolo verifica Feedback TNT Adam Sandler caravan guadagnare online ERA gassosa Mosca Tse Tse apertura UPS Sahara acqua calzature spaziale Ben Stiller Bartolini boiler campeggio XHTML SXGA sismografi