Note: The other languages of the website are Google-translated. Back to English
English English

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


šipka modrá pravá bublina 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:

doc save csv s uvozovkami 1

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:

doc save csv s uvozovkami 2

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:

doc save csv s uvozovkami 3

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:

doc save csv s uvozovkami 4


šipka modrá pravá bublina 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:

doc save csv s uvozovkami 5

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:

doc save csv s uvozovkami 6

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:

doc save csv s uvozovkami 7

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:

doc save csv s uvozovkami 8

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:

doc save csv s uvozovkami 9


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dobrý den!
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.
Tento komentář byl moderátorem webu minimalizován
Sério eu te amo rsrsrsr
Me ajudou demais, muito obrigada!
Tento komentář byl moderátorem webu minimalizován
ne unicode
Tento komentář byl moderátorem webu minimalizován
Moc vám za to děkuji. Už 3 dny se snažím přijít na to, jak vložit do souboru dvojité uvozovky!
Tento komentář byl moderátorem webu minimalizován
Sub Exportar_TXT()



Application.ScreenUpdating = False



„Seleciona a guia Extract to Excel depois a célula A1
Sheets("Extract").Vyberte
Rozsah("A1").Vyberte

'Iniciar exportação txt via Print com texto exato mostrado em tela sem erro das aspas

Ztlumit cestu jako řetězec
Dim FileNumber As Integer
Dim LR As Integer
Dim LC As Integer

Dim k As Integer
Dim i As Integer

LR = Worksheets("Extract").Cells(Rows.Count, 1).End(xlUp).Row
LC = Worksheets("Extract").Cells(1, Columns.Count).End(xlToLeft).Column

Cesta = ThisWorkbook.Path & "\Extract" & Format(Now(), "ddmmyyyy-hhmmss") & ".csv"
FileNumber = FreeFile

Otevřete cestu pro výstup jako FileNumber

Pro k = 1 do LR

Pro i = 1 k LC

Pokud jsem <> LC Pak
Tisk #FileNumber, Cells(k, i),
Jiný
Tisk #FileNumber, Cells(k, i)
End If

Příště já

Další k

Zavřete FileNumber


' Caso deseja abrir o notepad imediatamente para conferir nebo txt gerado só retirary and linha commentada abaixo:


'Shell "notepad.exe" a cesta, vbNormalFocus



Application.ScreenUpdating = True

MsgBox "Extract*.txt salvo na pasta onde abriu este Excel!"

End Sub
Tento komentář byl moderátorem webu minimalizován
Caso deseje apenas salva todo o Excel em csv *sem aspas* conforme eu, segue sugestão:

Sub Exportar_CSV()

Application.ScreenUpdating = False

„Seleciona a guia Extract to Excel depois a célula A1
Sheets("Extract").Vyberte
Rozsah("A1").Vyberte

'Iniciar exportação txt via Print com texto exato mostrado em tela sem erro das aspas

Ztlumit cestu jako řetězec
Dim FileNumber As Integer
Dim LR As Integer
Dim LC As Integer

Dim k As Integer
Dim i As Integer

LR = Worksheets("Extract").Cells(Rows.Count, 1).End(xlUp).Row
LC = Worksheets("Extract").Cells(1, Columns.Count).End(xlToLeft).Column

Cesta = ThisWorkbook.Path & "\Extract" & Format(Now(), "ddmmyyyy-hhmmss") & ".csv"
FileNumber = FreeFile

Otevřete cestu pro výstup jako FileNumber

Pro k = 1 do LR

Pro i = 1 k LC

Pokud jsem <> LC Pak
Tisk #FileNumber, Cells(k, i),
Jiný
Tisk #FileNumber, Cells(k, i)
End If

Příště já

Další k

Zavřete FileNumber


' Caso deseja abrir o notepad imediatamente para conferir nebo txt gerado só retirary and linha commentada abaixo:


'Shell "notepad.exe" a cesta, vbNormalFocus



Application.ScreenUpdating = True

MsgBox "Extract*.txt salvo na pasta onde abriu este Excel!"

End Sub
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění