Jak uložit data listu jako soubor CSV s / bez uvozovek?
Když exportujete nebo uložíte rozsah dat z aplikace Excel do souboru CSV, data CSV se obvykle nenacházejí v uvozovkách, ale pokud jsou hodnoty buněk odděleny čárkou nebo zalomením řádku, exportovaná data CSV budou v okolí s dvojitými uvozovkami citáty. A v tomto článku budu hovořit o tom, jak ukládat data listu jako soubor CSV s dvojitými uvozovkami nebo bez nich, jak potřebujete.
Uložte data listu jako soubor CSV s uvozovkami
Uložte data listu jako soubor CSV bez uvozovek
Uložte data listu jako soubor CSV s uvozovkami
Chcete-li uložit normální data jako soubor CSV s uvozovkami, může vám pomoci následující kód VBA, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Uložte data listu jako soubor CSV s uvozovkami:
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se výzva k připomenutí, abyste vybrali rozsah dat, který chcete uložit jako soubor CSV s uvozovkami, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko a a Uložit jako Zobrazí se okno, zadejte název a umístění souboru a klikněte na Uložit tlačítko, viz screenshot:
5. A a Kutools pro ExcelZobrazí se okno s výzvou, které vám připomene, že nový soubor CSV byl uložen do zadaného umístění, viz screenshot:
6, klikněte OK zavřete dialogové okno a nyní, když otevřete nový soubor CSV, jsou všechna data obklopena uvozovkami, jak ukazuje následující snímek obrazovky:
Uložte data listu jako soubor CSV bez uvozovek
Pokud jsou vaše data oddělena čárkou, zalomením řádku v buňce, při uložení dat jako souboru CSV budou data obklopena uvozovkami, jak je znázorněno níže:
Chcete-li uložit data jako soubor CSV bez uvozovek, použijte následující kód VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Uložte data listu jako soubor CSV bez uvozovek:
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr rozsahu dat, který chcete uložit jako csv bez uvozovek, viz screenshot:
4, klikněte OK tlačítko a a Uložit jako Zobrazí se okno, zadejte název souboru a umístění nového souboru CSV, viz screenshot:
5. A pak klikněte na tlačítko Uložit tlačítko, a Kutools pro ExcelZobrazí se okno s výzvou, které vám řekne, že nový soubor CSV byl uložen do zadaného umístění, viz screenshot:
6. klikněte OK zavřete dialogové okno a při otevření nového souboru CSV se dvojité uvozovky obklopené daty odstraní, jak ukazuje následující snímek obrazovky:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!