Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik meerdere tekstbestanden naar meerdere bladen importeren?

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

Importeer meerdere tekstbestanden naar afzonderlijke werkbladen met VBA-code

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


Combineer / importeer meerdere werkbladen in één werkblad of werkmap:
In uw dagelijkse werk kan het combineren van meerdere werkbladen of werkmappen tot een enkel werkblad of een werkmap een enorm en lastig werk zijn. Maar als je dat hebt gedaan Kutools for Excel, met zijn krachtige nut - Combineren, kunt u snel meerdere werkbladen, werkmappen combineren in één werkblad of werkmap.
doc combineer meerdere werkbladen

pijl blauwe rechterbel Importeer meerdere tekstbestanden naar afzonderlijke werkbladen met VBA-code


De volgende VBA-code kan u helpen om elk tekstbestand in een nieuwe werkmap in één keer in afzonderlijke bladen te importeren. Ga hiervoor als volgt te werk:

1. Houd de toets ingedrukt ALT + F11 toetsen in Excel om de. te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: meerdere tekstbestanden naar afzonderlijke werkbladen importeren:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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. Nadat u de bovenstaande code hebt geplakt, drukt u op F5 om deze code uit te voeren, en in het uitgevouwen venster geef je de map op die de tekstbestanden bevat, ga je naar de map om de tekstbestanden te selecteren die je naar de werkbladen wilt importeren, zie screenshot:

doc importeert meerdere tekstbestanden 1

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

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


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

Soms moet u misschien een aantal tegenovergestelde bewerkingen van de bovenstaande taak uitvoeren, dat wil zeggen dat u een werkmap moet splitsen om tekstbestanden van elkaar te scheiden. Kutools for Excel's Werkboek 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 om zonder beperking te proberen in 60-dagen.

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

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

2. Klikken Enterprise > werkboek > Werkboek splitsenzie screenshot:

excel invoegtoepassing gesplitste werkmapfunctie

3. In de Werkboek splitsen dialoog venster:

(1.) Controleer de werkbladen die u wilt splitsen.

(2.) Controleren Geef het opslagformaat op, kies dan de bestandsindeling die u wilt opslaan, u kunt bijvoorbeeld kiezen txt, csv, pdf, xlsx or xls bestandsformaat als je nodig hebt.

(3.) Klik vervolgens op spleet knop, geeft u in het volgende aanwijzingsvak een map op om de afzonderlijke bestanden uit te voeren.

excel invoegtoepassing gesplitst werkmap dialoogvenster  2 excel-invoegtoepassingen selecteren locatie

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

excel-invoegtoepassingen afzonderlijke bestanden

Download nu Kutools voor Excel!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    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?