Note: The other languages of the website are Google-translated. Back to English

Hur kombinerar / importerar jag flera csv-filer till flera kalkylblad?

Om du vill importera flera csv-filer från en mapp som separata kalkylblad i en arbetsbok, hur kan du hantera det här jobbet i Excel?

Importera flera csv-filer till separata kalkylblad med VBA-kod

Importera flera csv-filer till separata kalkylblad med Kutools för Excel

Dela upp en arbetsbok i flera separata csv / pdf / txt / excel-filer


För att snabbt importera flera csv-filer till en arbetsbok kan följande VBA-kod göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 tangenter i Excel för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Importera flera textfiler till separata kalkylblad:

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. Tryck sedan på F5 nyckel för att köra den här koden, och ett fönster dyker upp, gå till den specifika mappen och välj de csv-filer som du vill importera till Excel, se skärmdump:

doc importera csv till kalkylblad 1

4. Och klicka sedan på Öppen knappen har de valda csv-filerna importerats som separata kalkylblad i en ny arbetsbok.

5. Slutligen kan du spara den nya arbetsboken efter behov.


Om du har Kutools för Excel, med sitt kraftfulla verktyg-Kombinera, kan du snabbt kombinera eller importera flera csv-filer till ett enda kalkylblad eller flera separata kalkylblad efter behov.

När du har installerat Kutools för Excel, gör så här:

1. var god klicka Kutools Plus > Kombinera, se skärmdump:

2. i Kombinera arbetsblad dialogruta, välj Kombinera flera kalkylblad från arbetsböcker till en arbetsbok, se skärmdump:

doc importera csv till kalkylblad 6

3. I steg 2 i guiden, klicka på Lägg till > Fil för att välja de csv-filer som du vill kombinera, se skärmdump:

doc importera csv till kalkylblad 7

4. I poppade ut Öppen dialogrutan, välj (* .csv) från listrutan och ange sedan de csv-filer som du vill slå samman.

doc importera csv till kalkylblad 8

5. Klicka sedan Öppen knappen och dina valda csv-filer har importerats till dialogrutan, se skärmdump:

doc importera csv till kalkylblad 9

6. I steg 3, gör följande:

(1.) Kontroll Första raden i varje kalkylblad (kommentarer) från Infoga kalkylbladinformation avsnitt kommer all csv-filinformation att infogas i de kombinerade arken som kommentarer;

(2.) Du kan byta namn på csv-filerna efter behov;

(3.) du kan hoppa över de tomma csv-filerna när du räknar en tom csv-fil.

doc importera csv till kalkylblad 10

7. Klicka sedan Finish -knappen och när du har avslutat kombinationen kan du ange ett filnamn och plats för din nya kombinerade arbetsbok. Se skärmdump:

doc importera csv till kalkylblad 11

8. Klicka sedan Save -knappen, i den utpekade promt-rutan kan du öppna den nya filklickningen Jaoch stäng den genom att klicka Nej, se skärmdump:

doc importera csv till kalkylblad 12

9. Och då kan du spara detta scenario eller inte som du vill. Se skärmdump:

doc importera csv till kalkylblad 13

10. Äntligen har dina valda csv-filer importerats till en ny arbetsbok med separerat kalkylblad, se skärmdump:

doc importera csv till kalkylblad 14

Ladda ner och testa gratis Kutools för Excel nu!


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

I vissa fall kanske du vill dela en arbetsbok i separata csv-filer, Kutools for Excels verktyg för delad arbetsbok kan avsluta det här jobbet snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Arbetsbok > Dela arbetsbok, se skärmdump:

2. i Dela arbetsbok dialog ruta:

(1.) Kontrollera kalkylblad som du vill dela upp;

(2.) Och kolla Ange sparaformat, välj sedan filformatet du vill spara;

(3.) Klicka sedan på Split och ange en mapp för att placera de separerade filerna.

doc importera csv till kalkylblad 3

3. Och klicka sedan på OK för att börja dela kommer arbetsboken att delas upp i separata csv-filer du behöver.

doc importera csv till kalkylblad 4

Ladda ner och testa gratis Kutools för Excel nu!


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (6)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för koden för att kombinera filer. Jag vill dock ha flera filer i arbetsboken jag för närvarande arbetar med, inte för att koden ska skapa en ny arbetsbok. Hur ska jag gå tillväga för att uppnå det?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för att du delar denna kod. Det är precis vad jag letade efter. Tyvärr fungerar det inte så bra som jag hoppats på. Jag får ett felmeddelande varje gång koden körs. FEL: "Namnet är redan upptaget. Försök med ett annat." Anmärkningar: - Jag försöker kombinera fyra csv-filer - Alla csv-filer har samma namn "file_name.csv, file_name(1).csv, etc..." Koden kombinerar de två första csv-filerna till en arbetsbok och den tredje filen i sin egen arbetsbok. Den fjärde filen hade aldrig en chans på grund av felet. Om någon har några tankar om hur man ska gå till väga för att lösa det här problemet skulle jag uppskatta din feedback. Tack alla på förhand för er tid. Med vänlig hälsning, Andrew
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Koden var väldigt användbar
Denna kommentar minimerades av moderatoren på webbplatsen
Tack . Väldigt händig
Denna kommentar minimerades av moderatoren på webbplatsen
Tack. Koden fungerar bra
Denna kommentar minimerades av moderatoren på webbplatsen
Hej det här vba-makrot är bra, men jag vill att det ska startas med ett knappklick på en annan arbetsbok, hur kan jag göra det?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser