Preskoči na glavno vsebino

Kako združiti / uvoziti več datotek CSV v več delovnih listov?

Če želite iz mape uvoziti več datotek csv kot ločene delovne liste v delovnem zvezku, kako bi lahko to opravilo opravili v Excelu?

Uvozite več datotek CSV v ločene delovne liste s kodo VBA

Uvozite več datotek CSV v ločene delovne liste s programom Kutools za Excel

Delovni zvezek razdelite na več ločenih datotek csv / pdf / txt / excel


Če želite v delovni zvezek hitro uvoziti več datotek CSV, vam bo morda v korist naslednja koda VBA, storite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Uvozi več besedilnih datotek na ločene delovne liste:

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. Nato pritisnite F5 za zagon te kode in odprlo se bo okno, pojdite v določeno mapo in izberite datoteke csv, ki jih želite uvoziti v Excel, glejte posnetek zaslona:

doc uvoz csv na delovni list 1

4. In nato kliknite Odprto Izbrane datoteke CSV so bile uvožene kot ločeni delovni listi v novi delovni zvezek.

5. Na koncu lahko shranite nov delovni zvezek, kot ga potrebujete.


Če imate Kutools za Excel, s svojim močnim orodjemZdružite, lahko hitro združite ali uvozite več datotek csv v en sam delovni list ali več ločenih delovnih listov, kot jih potrebujete.

Po namestitvi Kutools za Excel, naredite tako:

1. Prosimo, kliknite Kutools Plus > Združite, glej posnetek zaslona:

2. v Združite delovne liste pogovorno okno, izberite Več delovnih listov iz delovnih zvezkov združite v en delovni zvezek, glej posnetek zaslona:

doc uvoz csv na delovni list 6

3. v korak 2 čarovnika kliknite Dodaj > file če želite izbrati datoteke CSV, ki jih želite združiti, si oglejte posnetek zaslona:

doc uvoz csv na delovni list 7

4. V izskočil Odprto dialog, izberite (* .csv) s spustnega seznama in nato določite datoteke csv, ki jih želite združiti.

doc uvoz csv na delovni list 8

5. Nato kliknite Odprto in izbrane datoteke CSV so bile uvožene v pogovorno okno, glejte posnetek zaslona:

doc uvoz csv na delovni list 9

6. v korak 3, naredite naslednje:

(1.) Preverjanje Prva vrstica vsakega delovnega lista (komentarji) Iz Vstavite informacije o delovnem listu v razdelku bodo vse informacije o datotekah CSV vstavljene v kombinirane liste kot komentarji;

(2.) Datoteke CSV lahko preimenujete po potrebi;

(3.) prazne datoteke CSV lahko preskočite, ko štejete prazno datoteko CSV.

doc uvoz csv na delovni list 10

7. Nato kliknite Konec in po končanem kombiniranju lahko določite ime in lokacijo novega kombiniranega delovnega zvezka. Oglejte si posnetek zaslona:

doc uvoz csv na delovni list 11

8. Nato kliknite Shrani gumb, v izpuščenem promt polju lahko odprete novo datoteko s klikom Dain ga zaprite s klikom Ne, glej posnetek zaslona:

doc uvoz csv na delovni list 12

9. In potem lahko shranite ta scenarij ali ne, kot želite. Oglejte si posnetek zaslona:

doc uvoz csv na delovni list 13

10. Končno so bile vaše izbrane datoteke CSV uvožene v nov delovni zvezek z ločenim delovnim listom, glejte sliko zaslona:

doc uvoz csv na delovni list 14

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

V nekaterih primerih boste morda želeli razdeliti delovni zvezek na ločene datoteke csv, pripomoček Kutools for Excel z razdeljenim delovnim zvezkom pa lahko to delo konča hitro in enostavno.

Po namestitvi Kutools za Excel, naredite tako:

1. Kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek, glej posnetek zaslona:

2. v Razdeljeni delovni zvezek pogovorno okno:

(1.) Označite delovne liste, ki jih želite razdeliti;

(2.) In preverite Določite shraniformat, nato izberite obliko datoteke, ki jo želite shraniti;

(3.) Nato kliknite Split in določite mapo, v katero želite shraniti ločene datoteke.

doc uvoz csv na delovni list 3

3. In nato kliknite OK če želite začeti deliti, bo delovni zvezek razdeljen na ločene datoteke CSV, ki jih potrebujete.

doc uvoz csv na delovni list 4

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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