Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe werkbladgegevens op te slaan als csv-bestand met / zonder dubbele aanhalingstekens?

Wanneer u een gegevensbereik van Excel naar een CSV-bestand exporteert of opslaat, zijn de csv-gegevens normaal gesproken niet in de buurt van dubbele aanhalingstekens, maar als uw celwaarden worden gescheiden door een komma of regelafbreking, zullen de geëxporteerde csv-gegevens rond zijn met dubbele citaten. En in dit artikel zal ik het hebben over hoe u werkbladgegevens kunt opslaan als csv-bestand met of zonder dubbele aanhalingstekens als u dat wilt.

Sla werkbladgegevens op als csv-bestand met dubbele aanhalingstekens

Bewaar werkbladgegevens als csv-bestand zonder dubbele aanhalingstekens


pijl blauwe rechterbel Sla werkbladgegevens op als csv-bestand met dubbele aanhalingstekens


Om de normale gegevens als csv-bestand met dubbele aanhalingstekens op te slaan, kan de volgende VBA-code u helpen, doe dan als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: sla werkbladgegevens op als csv-bestand met dubbele aanhalingstekens:

Sub CSVFile()
'updateby Extendoffice 20160530
    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. En druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een prompt om u eraan te herinneren het datumbereik dat u wilt opslaan te selecteren als csv-bestand met dubbele aanhalingstekens, zie screenshot:

doc save csv met citaten 1

4. Dan klikken OK knop en a Opslaan als venster verschijnt, geef de bestandsnaam en locatie op en klik vervolgens op Bespaar knop, zie screenshot:

doc save csv met citaten 2

5. En een Kutools for Excel's prompt-vak wordt uitgeklapt om u eraan te herinneren dat het nieuwe csv-bestand is opgeslagen op de door u opgegeven locatie, zie screenshot:

doc save csv met citaten 3

6. Klikken OK om het dialoogvenster te sluiten, en nu, wanneer u uw nieuwe csv-bestand opent, worden alle gegevens omringd door de dubbele aanhalingstekens zoals weergegeven in het volgende screenshot:

doc save csv met citaten 4


pijl blauwe rechterbel Bewaar werkbladgegevens als csv-bestand zonder dubbele aanhalingstekens

Als uw gegevens gescheiden zijn door een komma, regeleinde in een cel, wanneer u de gegevens opslaat als csv-bestand, worden de gegevens omringd door de dubbele aanhalingstekens zoals hieronder wordt weergegeven:

doc save csv met citaten 5

Als u de gegevens wilt opslaan als csv-bestand zonder de dubbele aanhalingstekens, moet u de volgende VBA-code toepassen.

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: sla werkbladgegevens op als csv-bestand zonder dubbele aanhalingstekens:

Sub Export()
'updateby Extendoffice 20160530
    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 F5 toets om deze code uit te voeren, en een promptvakje wordt uitgeknipt om u eraan te herinneren selecteer het gegevensbereik dat u wilt opslaan als csv zonder dubbele aanhalingstekens, zie screenshot:

doc save csv met citaten 6

4. Klikken OK knop en a Opslaan als venster wordt weergegeven, geef een bestandsnaam en locatie op voor uw nieuwe csv-bestand, zie screenshot:

doc save csv met citaten 7

5. En klik vervolgens op Bespaar knop, a Kutools for Excel's prompt-vak wordt uitgeklapt om u te vertellen dat het nieuwe csv-bestand is opgeslagen op de door u opgegeven locatie, zie screenshot:

doc save csv met citaten 8

6. Klik op OK om het dialoogvenster te sluiten en, wanneer u uw nieuwe csv-bestand opent, worden de dubbele aanhalingstekens die zijn omgeven met gegevens verwijderd als volgt:

doc save csv met citaten 9


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Magnus Levsonn · 4 days ago
    not unicode
  • To post as a guest, your comment is unpublished.
    Bárbara · 5 months ago
    Sério eu te amo rsrsrsr
    Me ajudou demais, muito obrigada!
  • To post as a guest, your comment is unpublished.
    Rodrigo · 5 months ago
    Olá!
    Muito obrigado! O conteúdo me ajudou muito. Precisava gerar um arquivo txt eliminando as aspas duplas no início e no final de cada linha e não estava conseguindo resolver. Agora consegui.