Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
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!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 2 months ago
    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 ?
  • To post as a guest, your comment is unpublished.
    Duong · 7 months ago
    Thank you. The code works well
  • To post as a guest, your comment is unpublished.
    Rohit · 2 years ago
    Thank you . Very handy
  • To post as a guest, your comment is unpublished.
    Amit · 2 years ago
    Thank you! The code was very useful
  • To post as a guest, your comment is unpublished.
    Andrew · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Mary · 5 years ago
    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?