Přejít k hlavnímu obsahu

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řená 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řená , 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řená 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ší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

Popis


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
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

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations