Ugrás a tartalomra

Hogyan lehet több csv fájlt egyesíteni / importálni több munkalapba?

Ha több csv fájlt szeretne importálni egy mappából külön munkalapként egy munkafüzeten belül, hogyan kezelheti ezt a feladatot az Excel programban?

Több csv fájl importálása külön VBA kóddal ellátott munkalapokra

Importáljon több csv fájlt külön munkalapokra a Kutools for Excel segítségével

Feloszt egy munkafüzetet több különálló csv / pdf / txt / excel fájlra


Ha több csv fájlt szeretne gyorsan importálni egy munkafüzetbe, a következő VBA-kód kedvezhet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excel programban a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Több szövegfájl importálása külön munkalapokra:

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. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, és egy ablak jelenik meg, lépjen a megadott mappába, és válassza ki az Excelbe importálni kívánt csv fájlokat, lásd a képernyőképet:

doc import csv az 1. munkalapra

4. Kattintson a gombra Nyisd ki gombra kattintva a kiválasztott csv fájlokat külön munkalapokként importálták egy új munkafüzetbe.

5. Végül szükség szerint elmentheti az új munkafüzetet.


Ha van Kutools az Excel számára, erőteljes eszköz-Kombájn, gyorsan összevonhat vagy importálhat több csv fájlt egyetlen munkalapba vagy több különálló munkalapba, amire szüksége van.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. kérem kattintson Kutools Plus > Kombájn, lásd a képernyőképet:

2. A Kombinálja a munkalapokat párbeszédpanelt, válassza ki Kombinálja a munkafüzetek több munkalapját egy munkafüzetbe, lásd a képernyőképet:

doc import csv az 6. munkalapra

3. Az 2 lépés kattintson a varázsló elemre hozzáad > filé az egyesíteni kívánt csv fájlok kiválasztásához lásd a képernyőképet:

doc import csv az 7. munkalapra

4. A kiugrott Nyisd ki párbeszédablakban válassza ki (* .csv) a legördülő listából, majd adja meg az egyesíteni kívánt csv fájlokat.

doc import csv az 8. munkalapra

5. Ezután kattintson Nyisd ki gombra, és a kiválasztott csv fájlok importálva lettek a párbeszédpanelen, lásd a képernyőképet:

doc import csv az 9. munkalapra

6. Az 3 lépés, kérjük, hajtsa végre a következő műveleteket:

(1.) Ellenőrzés Minden munkalap első sora (megjegyzések) tól Munkalap adatainak beillesztése szakaszban a csv fájlok összes információja bekerül az egyesített lapokba megjegyzésként;

(2.) Átnevezheti a csv fájlokat szükség szerint;

(3.) kihagyhatja az üres csv fájlokat, amikor egy üres csv fájlt talál.

doc import csv az 10. munkalapra

7. Ezután kattintson befejez gombot, és az egyesítés befejezése után megadhatja az új kombinált munkafüzet fájlnevét és helyét. Lásd a képernyőképet:

doc import csv az 11. munkalapra

8. Ezután kattintson Megtakarítás gombra, a felbukkanó promt mezőben megnyithatja az új fájl kattintását Igen, és kattintson rá a gombra Nem, lásd a képernyőképet:

doc import csv az 12. munkalapra

9. És akkor mentheti ezt a forgatókönyvet, vagy sem, ahogy tetszik. Lásd a képernyőképet:

doc import csv az 13. munkalapra

10. Végül a kiválasztott csv fájlokat egy új, külön munkalapú munkafüzetbe importálták, lásd a képernyőképet:

doc import csv az 14. munkalapra

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Bizonyos esetekben érdemes lehet egy munkafüzetet külön csv-fájlokra osztani, a Kutools for Excel Split Workbook segédprogramja gyorsan és egyszerűen befejezheti ezt a munkát.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkafüzet > Felosztott munkafüzet, lásd a képernyőképet:

2. A Felosztott munkafüzet párbeszédablak:

(1.) Ellenőrizze a felosztani kívánt munkalapokat;

(2.) És ellenőrizze Adja meg a mentéstformátum, majd válassza ki a menteni kívánt fájlformátumot;

(3.) Ezután kattintson Hasított gombot, és adjon meg egy mappát az elválasztott fájlok elhelyezéséhez.

doc import csv az 3. munkalapra

3. Kattintson a gombra OK a felosztás megkezdéséhez a munkafüzet különálló csv fájlokra lesz osztva.

doc import csv az 4. munkalapra

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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