Comment convertir un fichier CSV en fichier Excel / Blogs / Perficient

La conversion de CSV en Excel rationalise la manipulation et l’analyse des données, en reliant la simplicité de la structure de texte brut du CSV aux puissantes fonctionnalités de feuille de calcul d’Excel. Cette conversion garantit une transition transparente des enregistrements séparés par des virgules vers des lignes et des colonnes organisées, améliorant ainsi l’accessibilité et l’interprétation des données. Que ce soit pour l’analyse de données, la visualisation ou la collaboration, le format polyvalent d’Excel répond à divers besoins, offrant des fonctionnalités telles que des formules, des graphiques et une mise en forme conditionnelle.

• Conversion du fichier CSV avec les zéros non significatifs lorsqu’il est modifié en fichier Excel.
• Plusieurs fichiers CSV sont automatiquement convertis en fichiers Excel à l’aide d’un code construit en boucle.

En convertissant plusieurs fichiers CSV en fichier Excel à l’aide du code VBA.

CODE VBA :

Sub Csv_to_Excel()
'
' Csv_to_Excel
Dim Pathname As String
Dim Filename As String
Dim WOextn As String
Dim Nam As String

Pathname = "<Specify the Souce Path>"
Filename = Dir(Pathname)

Do While Filename <> ""
    WOextn = Left(Filename, InStr(1, Filename, ".") - 1)
    Nam = Pathname & "" & Filename
    Debug.Print Nam
    Workbooks.Add
    ActiveWorkbook.Queries.Add Name:=WOextn, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(" & Chr(34) & Nam & Chr(34) & "),[Delimiter="","", Columns=25, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Promoted Headers"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Promoted Headers"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & WOextn & ";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [" & WOextn & "]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        Debug.Print WOextn
        .ListObject.DisplayName = WOextn
        .Refresh BackgroundQuery:=False
    End With
    Application.CommandBars("Queries and Connections").Visible = False
    Range("C8").Select
    ActiveSheet.Name = WOextn
    ActiveWorkbook.SaveAs Filename:="<Specify the target path>" & WOextn & ".xlsx"
    ActiveWorkbook.Close
    Filename = Dir()
Loop
End Sub

Procédure étape par étape pour exécuter le code VBA :

Étape 1 : Ouvrez une nouvelle feuille Excel.

Étape 2 : Accédez à l’option du ruban de l’onglet Développeur.

Étape 3 : sélectionnez l’option Visual Basic dans l’onglet Développeur.

Étape 4 : La sélection de l’option Visual Basic ouvre une nouvelle fenêtre.

Étape 5 : Dans l’onglet Projet, cliquez avec le bouton droit sur le projet VBA. Cliquez sur Module après avoir choisi l’option Insérer.

Étape 6 : L’option de module s’affichera dans l’onglet Projet sous le projet VBA et l’espace de code de droite s’ouvrira.

Étape 7 : Collez le code VBA dans l’espace de code.

Étape 8 : Sélectionnez Exécuter ou appuyez sur F5 pour exécuter le code à partir d’ici manuellement.

Tous les fichiers CSV qui se trouvent dans le dossier désigné ont été convertis avec succès en fichiers Excel et chargés dans le dossier cible une fois le code VBA exécuté.