Hoe importeert u meerdere tekstbestanden naar afzonderlijke werkbladen?
Stel dat er meerdere tekstbestanden in een map op uw computer staan en u deze allemaal naar één Excel-werkboek wilt importeren, waarbij elk tekstbestand op een apart werkblad terechtkomt. Elk bestand handmatig één voor één kopiëren en plakken naar een werkblad kost veel tijd — daarom bespreek ik hier enkele slimme trucs om dit probleem efficiënt op te lossen.
Importeer meerdere Tekstbestand naar afzonderlijke werkbladen met VBA-code
Splits een werkmap in meerdere afzonderlijke tekst-/pdf-/csv-/xlsx-bestanden met Kutools voor Excel
Importeer meerdere Tekstbestand naar afzonderlijke werkbladen met VBA-code
De volgende VBA-code helpt u elk tekstbestand tegelijkertijd naar afzonderlijke werkbladen binnen een nieuw werkmap te importeren. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Importeer meerdere Tekstbestand 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. Nadat u de bovenstaande code hebt geplakt, drukt u op de F5-toets om deze uit te voeren. In het pop-upvenster geeft u de map op die het tekstbestand bevat, gaat u naar die map en selecteert u het tekstbestand dat u naar de werkbladen wilt importeren; zie onderstaande afbeelding:
4. Klik vervolgens op de Openen-knop. Alle geselecteerde tekstbestanden zijn geïmporteerd naar een nieuw werkblad, waarbij elk bestand afzonderlijk in één werkblad is geplaatst.
5. Tenslotte kunt u het nieuwe werkblad opslaan zoals u dat nodig heeft.
Splits een werkmap in meerdere afzonderlijke tekst-/pdf-/csv-/xlsx-bestanden met Kutools voor Excel
Soms moet u het omgekeerde doen van de bovenstaande taak: een werkmap splitsen in afzonderlijke tekstbestanden. De Kutools voor Excel Werkboek splitsen-functie helpt u deze taak snel en eenvoudig uit te voeren.
Na installatie van Kutools voor Excelvoert u de volgende stappen uit:
1. Activeer de werkmap die u wilt splitsen in meerdere tekstbestanden.
2. Klik op Enterprise > Werkmap > Werkboek splitsen; zie de afbeelding hieronder:
3. In het dialoogvenster Werkboek splitsen:
(1.) Selecteer de werkbladen die u wilt splitsen.
(2.) Schakel Specificeer opslagformaat in en kies vervolgens het bestandstype waarnaar u wilt opslaan. U kunt bijvoorbeeld kiezen voor de bestandstypen txt, csv, pdf, xlsx of xls, afhankelijk van uw behoeften.
(3.) Klik vervolgens op de Splitsen-knop en geef in het volgende venster een map op waarin de afzonderlijke bestanden moeten worden opgeslagen.
 |  |  |
4. Klik daarna op de OK-knop. Uw geselecteerde werkbladen worden dan gesplitst en opgeslagen in de gewenste map in het door u gekozen formaat.
Kutools voor Excel – Vol met meer dan 300 essentiële hulpmiddelen voor Excel. Maak uw Excel-taken sneller, eenvoudiger en efficiënter.Download nu!
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins