Ga naar hoofdinhoud

Hoe importeer ik meerdere tekstbestanden naar meerdere bladen?

Stel dat er meerdere tekstbestanden in een map van uw computer staan, u wilt deze tekstbestanden nu importeren in een Excel-werkmap en elk tekstbestand in afzonderlijke werkbladen plaatsen. Het een voor een kopiëren en plakken van elk tekstbestand naar het werkblad zal veel tijd verspillen, hier kan ik enkele trucs voor je bespreken om dit probleem op te lossen.

Importeer meerdere tekstbestanden om werkbladen met VBA-code te scheiden

Splits een werkmap in meerdere afzonderlijke tekst / pdf / csv / xlsx-bestanden met Kutools voor Excel


pijl blauw rechts bel Importeer meerdere tekstbestanden om werkbladen met VBA-code te scheiden

De volgende VBA-code kan u helpen om elk tekstbestand in één keer in afzonderlijke bladen in een nieuwe werkmap te importeren, doe dit als volgt:

1. Houd de ALT + F11 toetsen in Excel om het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: importeer meerdere tekstbestanden naar afzonderlijke werkbladen:

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. Druk na het plakken van de bovenstaande code op F5 sleutel om deze code uit te voeren, en geef in het uitgeklapte venster de map op die de tekstbestanden bevat, ga naar de map om de tekstbestanden te selecteren die u naar de werkbladen wilt importeren, zie screenshot:

doc meerdere tekstbestanden importeren 1

4. Dan klikken Openen knop zijn alle geselecteerde tekstbestanden geïmporteerd in een nieuwe werkmap en elk bestand is afzonderlijk in één werkblad geplaatst.

5. Eindelijk kunt u de nieuwe werkmap opslaan zoals u nodig hebt.


pijl blauw rechts bel Splits een werkmap in meerdere afzonderlijke tekst / pdf / csv / xlsx-bestanden met Kutools voor Excel

Soms moet u misschien een aantal tegengestelde bewerkingen van bovenstaande taak uitvoeren, dat wil zeggen dat u een werkmap moet splitsen om tekstbestanden te scheiden. Kutools for Excel's Werkmap splitsen hulpprogramma kan u helpen om deze taak snel en gemakkelijk op te lossen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Na het installeren van Kutools for Excel, doe dan als volgt :( Gratis download Kutools voor Excel nu! )

1. Activeer de werkmap die u in meerdere tekstbestanden wilt splitsen.

2. Klikken Enterprise > werkboek > Werkmap splitsen, zie screenshot:

3. In de Werkmap splitsen dialoog venster:

(1.) Vink de werkbladen aan die u wilt splitsen.

(2.) Controleer Geef het opslagformaat open kies vervolgens het bestandsformaat dat u wilt opslaan, u kunt bijvoorbeeld kiezen txt, csv, pdf, xlsx or xls bestandsformaat zoals je nodig hebt.

(3.) Klik vervolgens Split knop, geef in het volgende promptvenster een map op om de afzonderlijke bestanden uit te voeren.

Excel add-ins gesplitste werkmap dialoogvenster 2 Excel add-ins selecteer locatie

4. Dan klikken OK knop, en uw geselecteerde werkbladen worden gesplitst en opgeslagen in de door u gewenste map met het formaat dat u nodig heeft.

Excel-invoegtoepassingen afzonderlijke bestanden

Gratis download Kutools voor Excel nu!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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