VBA：从 excel 文件 xlsm/xlsx 创建一个 csv

Question

I'm using a code below to change an xlsm file into a csv. The goal is to concatenate the columns cells in the first column for each row: So it works in a certain way but for some rows, the final csv doesn't concatenate all the cells for the same row, I have 2 columns filled instead of only the first. Does anybody have another algo that concatenate each cells for the same row into the first cell and separate them by a ";"even if there is some text with comma into certain cells at first?

example of a cell:

ID   Provider          Rationale
4    mister provider   the rationale describe an id, and there is some comma in it.  

Example of expected output:

id;Provider;Rationale
4;mister provider;therationale describe an id; and there is some comma in it

    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim Tbl() As String
    Dim Ligne As String
    Dim Dossier As String
    Dim Chemin As String
    Dim Fichier As String
    Dim i As Long
    Dim j As Long

    Dossier = "C:\my_path"

    Fichier = "My_Name " & Format(Now, "dd-mm-yyyy") & ".csv"

    'full path
    Chemin = Dossier & Fichier

    Set Fe = Worksheets("Upload")

    Set Plage = DefPlage(Fe, 1, 1)

    For i = 1 To Plage.Rows.Count

        For j = 1 To Plage.Columns.Count: Ligne = Ligne & Plage(i, j).Value & ",": Next j

        'delete the ; at the end
        Ligne = Left(Ligne, Len(Ligne) - 1)

        'store in a table
        ReDim Preserve Tbl(1 To i)
        Tbl(i) = Ligne

        'For the next on
        Ligne = ""

    Next i

    'create .csv file
    Open Chemin For Output As #1

        For i = 1 To UBound(Tbl): Print #1, Tbl(i): Next i

    Close #1

Function DefPlage(Fe As Worksheet, L As Long, C As Long) As Range

    On Error GoTo Fin

    With Fe

        Set DefPlage = .Range(.Cells(L, C), _
                       .Cells(.Cells.Find("*", .[A1], -4123, , _
                       1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                       2, 2).Column))

    End With

    Exit Function

Fin:

    Set DefPlage = Nothing

End Function

Answer 1

The problem is that the text has a separator, in this case is the “,”. You must put some escape char to not count as a separator. If the csv will be open with excel, put all text between quotation marks (“).

Example, change the line that concatenates the string:

For j = 1 To Plage.Columns.Count: Ligne = Ligne & """" & Plage(i, j).Value & """;": Next j