Hur sparar jag kalkylbladsdata som csv-fil med / utan dubbla citat?
När du exporterar eller sparar ett intervall med data från Excel till csv-fil finns det normalt inte csv-data med dubbla citat, men om dina cellvärden är separerade med komma eller radbrytning kommer de exporterade csv-uppgifterna att finnas med dubbla citat. Och den här artikeln kommer jag att prata om hur man sparar kalkylbladsdata som csv-fil med eller utan dubbla citat som du behöver.
Spara kalkylbladsdata som csv-fil med dubbla citat
Spara kalkylbladsdata som csv-fil utan dubbla citat
Spara kalkylbladsdata som csv-fil med dubbla citat
För att spara normaldata som csv-fil med dubbla citat kan följande VBA-kod hjälpa dig, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Spara kalkylbladsdata som csv-fil med dubbla citat:
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. Och tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att påminna dig om att du väljer det dataområde som du vill spara som csv-fil med dubbla citat, se skärmdump:
4. Klicka sedan OK knappen och a Spara som fönstret visas, ange filnamn och plats och klicka sedan på Save knapp, se skärmdump:
5. Och a Kutools för Excelsnabbrutan visas för att påminna dig om att den nya csv-filen har sparats på din angivna plats, se skärmdump:
6. Klicka OK för att stänga dialogen, och nu, när du öppnar din nya csv-fil, omges all information av dubbla citat som följande skärmdump visas:
Spara kalkylbladsdata som csv-fil utan dubbla citat
Om dina data är separerade med komma, radbrytning i en cell, när du sparar data som csv-fil, kommer informationen att omges av de dubbla citaten enligt följande:
För att spara data som csv-fil utan dubbla citat, använd följande VBA-kod.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Spara kalkylbladsdata som csv-fil utan dubbla citat:
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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill spara som csv utan dubbla citat, se skärmdump:
4. Klicka OK knappen och a Spara som fönstret visas, ange ett filnamn och plats för din nya csv-fil, se skärmdump:
5. Och klicka sedan på Save knapp, a Kutools för Excelsnabbrutan visas för att berätta att den nya csv-filen har sparats på din angivna plats, se skärmdump:
6. Klicka OK för att stänga dialogrutan och när du öppnar din nya csv-fil tas de dubbla citaten som omges av data bort enligt följande skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
