Hoe sla je werkbladgegevens op als CSV-bestand met / zonder dubbele aanhalingstekens?

Wanneer je een bereik van gegevens uit Excel exporteert of opslaat als CSV-bestand, zijn de CSV-gegevens normaal gesproken niet omgeven door dubbele aanhalingstekens. Echter, als je celwaarden gescheiden zijn door komma's of een regeleinde, zullen de geëxporteerde CSV-gegevens wel omgeven zijn door dubbele aanhalingstekens. In dit artikel zal ik bespreken hoe je werkbladgegevens kunt opslaan als CSV-bestand met of zonder dubbele aanhalingstekens, zoals je nodig hebt.

Sla werkbladgegevens op als CSV-bestand met dubbele aanhalingstekens

Sla werkbladgegevens op als CSV-bestand zonder dubbele aanhalingstekens

Sla werkbladgegevens op als CSV-bestand met dubbele aanhalingstekens

Om normale gegevens op te slaan als CSV-bestand met dubbele aanhalingstekens, kan de volgende VBA-code je helpen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Sla werkbladgegevens op als CSV-bestand met dubbele aanhalingstekens:

Sub CSVFile()
'updateby Extendoffice
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xSep As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    xSep = Application.International(xlListSeparator)
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & """" & xCell.Value & """" & xSep
        Next
        While Right(xStr, 1) = xSep
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert het gegevensbereik te selecteren dat je wilt opslaan als CSV-bestand met dubbele aanhalingstekens, zie screenshot:

4. Klik vervolgens op de knop OK, en er verschijnt een Opslaan als-venster. Geef de bestandsnaam en locatie op en klik vervolgens op de knop Opslaan, zie screenshot:

5. Er verschijnt een pop-upvenster van Kutools voor Excel om je eraan te herinneren dat het nieuwe CSV-bestand is opgeslagen op de aangegeven locatie, zie screenshot:

6. Klik op OK om het dialoogvenster te sluiten, en wanneer je het nieuwe CSV-bestand opent, zijn alle gegevens omgeven door dubbele aanhalingstekens, zoals in de volgende afbeelding te zien is:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Sla werkbladgegevens op als CSV-bestand zonder dubbele aanhalingstekens

Als je gegevens gescheiden zijn door komma's of een regeleinde in een cel, wanneer je de gegevens opslaat als CSV-bestand, zullen de gegevens omgeven worden door dubbele aanhalingstekens zoals hieronder te zien is:

Om de gegevens op te slaan als CSV-bestand zonder dubbele aanhalingstekens, pas dan de volgende VBA-code toe.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Sla werkbladgegevens op als CSV-bestand zonder dubbele aanhalingstekens:

Sub Export()
'updateby Extendoffice
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & xCell.Value & Chr(9)
        Next
        While Right(xStr, 1) = Chr(9)
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert het gegevensbereik te selecteren dat je wilt opslaan als CSV zonder dubbele aanhalingstekens, zie screenshot:

4. Klik op de knop OK, en er verschijnt een Opslaan als-venster. Geef een bestandsnaam en locatie op voor je nieuwe CSV-bestand, zie screenshot:

5. Klik vervolgens op de knop Opslaan, en er verschijnt een pop-upvenster van Kutools voor Excel om je te laten weten dat het nieuwe CSV-bestand is opgeslagen op de aangegeven locatie, zie screenshot:

6. Klik op OK om het dialoogvenster te sluiten, en wanneer je het nieuwe CSV-bestand opent, zijn de dubbele aanhalingstekens rond de gegevens verwijderd, zoals in de volgende afbeelding te zien is: