Note: The other languages of the website are Google-translated. Back to English
English English
  • Dokumenty
  • vynikat
  • Jak kombinovat / importovat více souborů CSV do více listů?

Jak kombinovat / importovat více souborů CSV do více listů?

Pokud chcete importovat více souborů CSV ze složky jako samostatné listy v sešitu, jak byste mohli s touto úlohou pracovat v aplikaci Excel?

Importujte více souborů CSV do samostatných listů s kódem VBA

Importujte více souborů CSV do samostatných listů pomocí Kutools pro Excel

Rozdělte sešit na několik samostatných souborů csv / pdf / txt / excel


Chcete-li rychle importovat více souborů CSV do sešitu, následující kód VBA vám může udělat laskavost, postupujte takto:

1. Podržte ALT + F11 klávesy v aplikaci Excel k 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: Import více textových souborů do samostatných listů:

Sub CombineCsvFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu a vyskočí okno, přejděte do konkrétní složky a vyberte soubory CSV, které chcete importovat do aplikace Excel, viz screenshot:

import souboru CSV do listu 1

4. A pak klikněte na tlačítko OTEVŘENO tlačítko, vybrané soubory CSV byly importovány jako samostatné listy v novém sešitu.

5. Nakonec můžete nový sešit uložit podle potřeby.


Pokud máte Kutools pro Excel, se svým mocným nástrojemKombinovat, můžete rychle kombinovat nebo importovat více souborů CSV do jednoho listu nebo více samostatných listů podle potřeby.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. prosím klikněte Kutools Plus > Kombinovat, viz screenshot:

2. v Zkombinujte pracovní listy v dialogovém okně vyberte Zkombinujte více pracovních listů ze sešitů do jednoho sešitu, viz screenshot:

import souboru CSV do listu 6

3. V Krok 2 průvodce, klikněte na přidat > Soubor Chcete-li vybrat soubory CSV, které chcete kombinovat, viz snímek obrazovky:

import souboru CSV do listu 7

4. Ve vyskočené OTEVŘENO , vyberte (* .csv) z rozevíracího seznamu a poté zadejte soubory CSV, které chcete sloučit.

import souboru CSV do listu 8

5. Pak klikněte na tlačítko OTEVŘENO tlačítko a vybrané soubory CSV byly importovány do dialogového okna, viz screenshot:

import souboru CSV do listu 9

6. V Krok 3, proveďte následující operace:

(1.) Kontrola První řádek každého listu (komentáře) z Vložte informace o listu sekce, všechny informace o souborech csv budou vloženy do kombinovaných listů jako komentáře;

(2.) Soubory csv můžete přejmenovat podle potřeby;

(3.) můžete prázdné soubory CSV přeskočit, když narazíte na prázdný soubor CSV.

import souboru CSV do listu 10

7. Pak klikněte na tlačítko úprava Tlačítko a po dokončení kombinování můžete zadat název a umístění souboru pro nový kombinovaný sešit. Viz snímek obrazovky:

import souboru CSV do listu 11

8. Pak klikněte na tlačítko Uložit Tlačítko, ve vyskakovacím okně s výzvou můžete otevřít nový soubor kliknutím Anoa zavřete jej kliknutím Ne, viz screenshot:

import souboru CSV do listu 12

9. A pak můžete tento scénář uložit, nebo ne, jak chcete. Viz snímek obrazovky:

import souboru CSV do listu 13

10. Nakonec byly vybrané soubory CSV importovány do nového sešitu se samostatným listem, viz screenshot:

import souboru CSV do listu 14

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

V určitých případech možná budete chtít rozdělit sešit na samostatné soubory csv, nástroj Kutools for Excel's Split Workbook může tuto úlohu dokončit rychle a snadno.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools Plus > Cvičebnice > Rozdělit sešit, viz screenshot:

2. v Rozdělit sešit dialogové okno:

(1.) Zkontrolujte listy, které chcete rozdělit;

(2.) A zkontrolujte Určete uloženíformát, poté vyberte formát souboru, který chcete uložit;

(3.) Poté klikněte Rozdělit tlačítko a zadejte složku, kam se mají oddělené soubory umístit.

import souboru CSV do listu 3

3. A pak klikněte na tlačítko OK pro zahájení rozdělení bude sešit rozdělen na samostatné soubory csv, které potřebujete.

import souboru CSV do listu 4

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

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

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
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é funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkujeme za kód pro kombinování souborů. Chci však mít více souborů v sešitu, se kterým aktuálně pracuji, ne pro kód k vytvoření nového sešitu. Jak toho dosáhnout?
Tento komentář byl moderátorem webu minimalizován
Děkujeme za sdílení tohoto kódu. Je to přesně to, co jsem hledal. Bohužel to nefunguje tak dobře, jak jsem doufal. Při každém spuštění kódu dostávám chybovou zprávu. CHYBA: "Jméno je již obsazeno. Zkuste jiné." Poznámky: - Snažím se zkombinovat čtyři soubory csv - Všechny soubory csv mají stejný název "název_souboru.csv, název_souboru(1).csv atd..." Kód kombinuje první dva soubory csv do jednoho sešitu a třetí soubor do vlastního sešitu. Čtvrtý soubor nikdy neměl šanci kvůli chybě. Pokud má někdo nějaké nápady, jak tento problém vyřešit, velmi bych ocenil vaši zpětnou vazbu. Předem všem děkuji za váš čas. S pozdravem Andrew
Tento komentář byl moderátorem webu minimalizován
Děkuji! Kód byl velmi užitečný
Tento komentář byl moderátorem webu minimalizován
Děkuji . Velmi šikovný
Tento komentář byl moderátorem webu minimalizován
Děkuji. Kód funguje dobře
Tento komentář byl moderátorem webu minimalizován
Dobrý den, toto makro vba je skvělé, ale chci, aby se spustilo kliknutím na tlačítko v jiném sešitu, jak to mohu udělat?
Tento komentář byl moderátorem webu minimalizován
Ahoj!
Tento kód používám ke spojení hodnotících formulářů do jednoho excelového listu. Přečte však data v americkém formátu MM/DD/RRRR namísto evropského formátu, který používám, což je DD/MM/RRRR. Výsledkem je sloupec, který vypadá takto:

11-4-2021 17:13
22/10/2021 09:41:32 (Toto je 22. října, ale není rozpoznáno)
7-12-2022 14:55 (To se mylně čte jako 7. prosince, kdy by mělo být 12. července.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

Jak tomu mohu zabránit? Viděl jsem komentář na další příspěvek to navrhlo umístit někam 'Local=True', ale nebyl jsem schopen zjistit, kam to umístit, aby se soubory CSV načetly správně. Jakákoli pomoc je oceňována!
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL