Gå til hovedindhold

Hvordan importeres flere tekstfiler til flere ark?

Antag, der er flere tekstfiler i en mappe på din computer, nu vil du importere disse tekstfiler til en Excel-projektmappe og placere hver tekstfil i separate regneark. Kopiering og indsættelse af hver tekstfil til regnearket en efter en spilder masser af tid, her kan jeg tale om nogle tricks til dig for at løse dette problem.

Importer flere tekstfiler til separate regneark med VBA-kode

Opdel en projektmappe til flere separate tekst / pdf / csv / xlsx filer med Kutools til Excel


pil blå højre boble Importer flere tekstfiler til separate regneark med VBA-kode

Følgende VBA-kode kan hjælpe dig med at importere hver tekstfil til separate ark i en ny projektmappe på én gang. 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 CombineTextFiles()
'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 (*.txt), *.txt", , "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
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    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. Når du har indsat ovenstående kode, skal du trykke på F5 nøgle til at køre denne kode, og i det poppede vindue skal du angive den mappe, der indeholder tekstfilerne, gå til mappen for at vælge de tekstfiler, du vil importere til regnearkene, se skærmbillede:

doc importerer flere tekstfiler 1

4. Klik derefter på Åbne knap, er alle de valgte tekstfiler importeret til en ny projektmappe, og hver fil er placeret i et regneark individuelt.

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


pil blå højre boble Opdel en projektmappe til flere separate tekst / pdf / csv / xlsx filer med Kutools til Excel

Nogle gange skal du muligvis udføre nogle modsatte operationer af ovenstående opgave, det vil sige, du skal dele en projektmappe for at adskille tekstfiler. Kutools til Excel's Opdelt arbejdsbog hjælpeprogram kan hjælpe dig med at løse dette job hurtigt og nemt.

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

Efter installation Kutools til Excel, gør venligst som følger :( Gratis download Kutools til Excel nu! )

1. Aktivér den projektmappe, du vil opdele i flere tekstfiler.

2. Klik Enterprise > Workbook > Opdelt arbejdsbog, se skærmbillede:

3. I Opdelt arbejdsbog dialog boks:

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

(2.) Kontroller Angiv gemme format, vælg derefter det filformat, du vil gemme, for eksempel kan du vælge txt, csv, pdf, xlsx or xls filformat, som du har brug for.

(3.) Klik derefter på Dele knap, i den følgende promptboks skal du angive en mappe til output af de separate filer.

excel tilføjelsesprogrammer opdelt arbejdsbog dialogboks 2 excel tilføjelsesprogrammer vælg placering

4. Klik derefter på OK knappen, og dine valgte regneark bliver delt og gemt i den ønskede mappe med det format, som du har brug for.

excel add-ins separate filer

Gratis download Kutools til Excel 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 (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I had tried with a txt file where there were multiple tables with numbers saved with commas but the program did not recognize the comma as a decimal point. How can I fix this error?
This comment was minimized by the moderator on the site
What would I need to change in the code to make it not open them in a new workbook?
This comment was minimized by the moderator on the site
This code helped me exactly to solve my issue, thanks for the code.
This comment was minimized by the moderator on the site
thank you , multiple text files to different worksheets code worked!
This comment was minimized by the moderator on the site
Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
This comment was minimized by the moderator on the site
How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
This comment was minimized by the moderator on the site
Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
This comment was minimized by the moderator on the site
Is it possible to open Sequencially multiple txt files in a single sheet ?
This comment was minimized by the moderator on the site
The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
This comment was minimized by the moderator on the site
I used Following code But Space Didn't Delimit. Turned Tab:=True, Space:=True, but it didn't work. My Txt file format is- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Any Solution?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations