Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti podatke delovnega lista kot csv datoteko z / brez dvojnih narekovanj?

Ko izvozite ali shranite vrsto podatkov iz Excel-a v datoteko csv, običajno ni podatkov o csv-u z dvojnimi narekovaji, ampak če so vaše vrednosti celic ločene z vejico ali prelomom linije, bodo izvoženi podatki o csv-ju dvakratni citate. In ta članek, bom govoril o tem, kako shraniti podatke delovnega lista kot csv datoteko z ali brez dvojnih narekov, kot jih potrebujete.

Shrani podatke delovnega lista kot csv datoteko z dvojnimi narekovaji

Shrani podatke delovnega lista kot csv datoteko brez dvojnih narekov


puščica modra desno mehurček Shrani podatke delovnega lista kot csv datoteko z dvojnimi narekovaji


Če želite običajne podatke shraniti kot datoteko csv z dvojnimi narekovaji, vam lahko pomagajo naslednja koda VBA, naredite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: shrani podatke delovnega lista kot csv datoteko z dvojnimi narekovaji:

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. In nato pritisnite F5 ključ za zagon te kode in odpre se okno za hitro klicanje, ki vas opomni, da izberete obseg podatkov, ki ga želite shraniti kot datoteko csv z dvojnimi narekovaji, glejte sliko zaslona:

doc shranite csv s citati 1

4. Nato kliknite OK gumb in a Shrani kot se prikaže okno, navedite ime datoteke in lokacijo ter kliknite Shrani gumb, si oglejte posnetek zaslona:

doc shranite csv s citati 2

5. In a Kutools za Excelje izpisano promptno polje, ki vas opomni, da je nova csv datoteka shranjena na določeno lokacijo, glejte sliko zaslona:

doc shranite csv s citati 3

6. Kliknite OK da zaprete pogovorno okno, in zdaj, ko odprete novo datoteko csv, so vsi podatki obkroženi z dvojnimi narekovaji, kot je prikazano spodaj prikazano sliko:

doc shranite csv s citati 4


puščica modra desno mehurček Shrani podatke delovnega lista kot csv datoteko brez dvojnih narekov

Če so vaši podatki ločeni z vejico, prelom linije v celico, ko shranite podatke kot datoteko csv, bodo podatki obkroženi z dvojnimi narekovaji, kot je prikazano spodaj:

doc shranite csv s citati 5

Če želite shraniti podatke kot csv datoteko brez dvojnih narekov, uporabite naslednjo kodo VBA.

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: shranite podatke delovnega lista kot csv datoteko brez dvojnih narekov:

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. Nato pritisnite F5 ključ za zagon te kode, in izpisano je polje za hitro klicanje, ki vas opomni, da izberete obseg podatkov, ki ga želite shraniti kot csv brez dvojnih narekov, glejte sliko zaslona:

doc shranite csv s citati 6

4. Kliknite OK gumb in a Shrani kot prikaže se okno, navedite ime datoteke in lokacijo za novo datoteko csv, glejte sliko zaslona:

doc shranite csv s citati 7

5. In nato kliknite Shrani gumb, a Kutools za ExcelPozivno okno je izpuščeno, da vam pove, da je nova csv datoteka shranjena na vašo določeno lokacijo, glejte sliko zaslona:

doc shranite csv s citati 8

6. klik OK da zaprete pogovorno okno, in ko odprete novo csv datoteko, se dvojni nareki, ki so obdani s podatki, odstranijo, kot je prikazano spodaj prikazano sliko:

doc shranite csv s citati 9


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.
    Bárbara · 2 months ago
    Sério eu te amo rsrsrsr
    Me ajudou demais, muito obrigada!
  • To post as a guest, your comment is unpublished.
    Rodrigo · 2 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.