Hoe werkbladgegevens opslaan 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 tussen dubbele aanhalingstekens, maar als uw celwaarden worden gescheiden door een komma of regeleinde, zullen de ge毛xporteerde csv-gegevens ongeveer dubbel zijn. citaten. En in dit artikel zal ik het hebben over het opslaan van werkbladgegevens als csv-bestand met of zonder dubbele aanhalingstekens als 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 de normale gegevens op te slaan als csv-bestand met dubbele aanhalingstekens, kan de volgende VBA-code u helpen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: werkbladgegevens opslaan 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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt opslaan als csv-bestand met dubbele aanhalingstekens, zie screenshot:
4. Dan klikken OK knop, en een Opslaan als venster verschijnt, geef de bestandsnaam en locatie op en klik op Bespaar knop, zie screenshot:
5. En een Kutools for ExcelHet promptvenster wordt weergegeven om u eraan te herinneren dat het nieuwe csv-bestand is opgeslagen op de door u opgegeven locatie, zie screenshot:
6. Klikken OK om het dialoogvenster te sluiten, en nu, wanneer u uw nieuwe csv-bestand opent, worden alle gegevens omgeven door dubbele aanhalingstekens zoals in de volgende schermafbeelding:
Sla werkbladgegevens op als csv-bestand zonder dubbele aanhalingstekens
Als uw gegevens worden gescheiden door een komma, regeleinde in een cel en u de gegevens opslaat als csv-bestand, worden de gegevens omgeven door dubbele aanhalingstekens, zoals hieronder weergegeven:
Om de gegevens op te slaan als csv-bestand zonder de dubbele aanhalingstekens, past u de volgende VBA-code toe.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: werkbladgegevens opslaan 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 F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u als csv wilt opslaan zonder dubbele aanhalingstekens, zie screenshot:
4. Klikken OK knop, en een Opslaan als venster wordt weergegeven, geef dan een bestandsnaam en locatie op voor uw nieuwe csv-bestand, zie screenshot:
5. En klik vervolgens op Bespaar knop, een Kutools for ExcelHet promptvenster wordt weergegeven om u te vertellen dat het nieuwe csv-bestand is opgeslagen op de door u opgegeven locatie, zie screenshot:
6. Klik OK om het dialoogvenster te sluiten, en wanneer u uw nieuwe csv-bestand opent, worden de dubbele aanhalingstekens omgeven door gegevens verwijderd zoals in het volgende screenshot wordt getoond:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!