Gå til hovedindhold

Hvordan kombineres / importeres flere csv-filer til flere regneark?

Hvis du vil importere flere csv-filer fra en mappe som separate regneark i en projektmappe, hvordan kan du håndtere dette job i Excel?

Importer flere csv-filer til separate regneark med VBA-kode

Importer flere csv-filer til separate regneark med Kutools til Excel

Opdel en projektmappe i flere separate csv / pdf / txt / excel-filer


For hurtigt at importere flere csv-filer til en projektmappe kan følgende VBA-kode muligvis gøre dig en tjeneste. Gør som følger:

1. Hold nede ALT + F11 nøgler i Excel for at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Importer flere tekstfiler til separate regneark:

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. Tryk derefter på F5 nøgle til at udføre denne kode, og et vindue vil dukke op, gå til den specifikke mappe og vælg de csv-filer, du vil importere til Excel, se skærmbillede:

doc importere csv til regneark 1

4. Og klik derefter på Åbne knappen, er de valgte csv-filer importeret som separate regneark i en ny projektmappe.

5. Endelig kan du gemme den nye projektmappe, som du har brug for.


Hvis du har Kutools til Excel, med sit kraftfulde værktøj-Kombiner, kan du hurtigt kombinere eller importere flere csv-filer til et enkelt regneark eller flere separate ark, som du har brug for.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik venligst Kutools Plus > Kombiner, se skærmbillede:

2. I boksen Kombiner regneark dialogboks, vælg venligst Kombiner flere regneark fra projektmapper til en projektmappe, se skærmbillede:

doc importere csv til regneark 6

3. I Trin 2 i guiden, klik på Tilføj > filet for at vælge de csv-filer, du vil kombinere, se skærmbillede:

doc importere csv til regneark 7

4. I poppet ud Åbne dialog, vælg (* .csv) fra rullelisten, og angiv derefter de csv-filer, du vil flette.

doc importere csv til regneark 8

5. Klik derefter på Åbne knap, og dine valgte csv-filer er importeret til dialogboksen, se skærmbillede:

doc importere csv til regneark 9

6. I Trin 3skal du udføre følgende handlinger:

(1.) Kontrol Første række i hvert regneark (kommentarer) fra Indsæt oplysninger om regneark sektion, vil alle oplysninger om csv-filer blive indsat i de kombinerede ark som kommentarer;

(2.) Du kan omdøbe csv-filerne, som du har brug for;

(3.) du kan springe de tomme csv-filer over, når du tæller en tom csv-fil.

doc importere csv til regneark 10

7. Klik derefter på Finish knappen, og når du er færdig med kombinationen, kan du angive et filw-navn og en placering til din nye kombinerede projektmappe. Se skærmbillede:

doc importere csv til regneark 11

8. Klik derefter på Gem -knappen, i det poppede ud promt-felt, kan du åbne det nye fil-klik Ja, og luk det ved at klikke Ingen, se skærmbillede:

doc importere csv til regneark 12

9. Og så kan du gemme dette scenario eller ikke som du vil. Se skærmbillede:

doc importere csv til regneark 13

10. Endelig er dine valgte csv-filer importeret til en ny projektmappe med adskilt regneark, se skærmbillede:

doc importere csv til regneark 14

Download og gratis prøveversion Kutools til Excel nu!


Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

I visse tilfælde vil du måske opdele en projektmappe i separate csv-filer, Kutools til Excels Split Workbook-værktøj kan afslutte dette job hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools Plus > Workbook > Opdelt arbejdsbog, se skærmbillede:

2. I boksen Opdelt arbejdsbog dialog boks:

(1.) Kontroller de regneark, du vil opdele;

(2.) Og tjek Angiv gemformat, vælg derefter det filformat, du vil gemme;

(3.) Klik derefter på Dele knappen, og angiv en mappe, der skal placere de adskilte filer.

doc importere csv til regneark 3

3. Og klik derefter på OK for at begynde at splitte opdeles projektmappen i separate csv-filer, du har brug for.

doc importere csv til regneark 4

Download og gratis prøveversion Kutools til Excel nu!


Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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