Kako shraniti podatke delovnega lista kot datoteko CSV z / brez dvojnih narekovajev?
Ko izvozite ali shranite obseg podatkov iz Excela v datoteko CSV, se podatki CSV običajno ne nahajajo z dvojnimi narekovaji, če pa so vrednosti celic ločene z vejico ali prelomom vrstice, bodo izvoženi podatki CSV okrog dvojni narekovaji. V tem članku bom govoril o tem, kako shraniti podatke delovnega lista kot datoteko CSV z dvojnimi narekovaji ali brez, kot jih potrebujete.
Podatke delovnega lista shranite kot datoteko CSV z dvojnimi narekovaji
Podatke delovnega lista shranite kot datoteko CSV brez dvojnih narekovajev
Podatke delovnega lista shranite kot datoteko CSV z dvojnimi narekovaji
Če želite običajne podatke shraniti kot datoteko CSV z dvojnimi narekovaji, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Shranite podatke delovnega lista kot datoteko CSV z dvojnimi narekovaji:
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. In nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vas opomni, da izberete obseg podatkov, ki ga želite shraniti kot datoteko CSV z dvojnimi narekovaji, glejte posnetek zaslona:
4. Nato kliknite OK in a Shrani kot okno se prikaže, navedite ime datoteke in lokacijo ter kliknite Shrani gumb, glej posnetek zaslona:
5. In a Kutools za ExcelOdpre se pozivno okno, da vas opomni, da je bila nova datoteka CSV shranjena na določeno mesto, glejte posnetek zaslona:
6. Kliknite OK , da zaprete pogovorno okno in zdaj, ko odprete novo datoteko csv, so vsi podatki obdani z dvojnimi narekovaji, kot je prikazano na sliki spodaj:
Podatke delovnega lista shranite kot datoteko CSV brez dvojnih narekovajev
Če so vaši podatki ločeni z vejico, prelom vrstice v celici, bodo podatki, ko jih shranite kot datoteko CSV, obdani z dvojnimi narekovaji, kot je prikazano spodaj:
Če želite podatke shraniti kot datoteko CSV brez dvojnih narekovajev, uporabite naslednjo kodo VBA.
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Shranite podatke delovnega lista kot datoteko CSV brez dvojnih narekovajev:
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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vas opomni, da izberete obseg podatkov, ki ga želite shraniti kot CSV brez dvojnih narekovajev, glejte sliko zaslona:
4. Kliknite OK in a Shrani kot prikaže se okno, navedite ime in lokacijo nove datoteke csv, glejte posnetek zaslona:
5. In nato kliknite Shrani gumb, a Kutools za ExcelPojavi se pozivno okno, da je nova datoteka CSV shranjena na določeno lokacijo, glejte posnetek zaslona:
6. klik OK , da zaprete pogovorno okno in ko odprete novo datoteko csv, se dvojni narekovaji, obdani s podatki, odstranijo, kot je prikazano na sliki spodaj:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!