Hoe importeer je meerdere tekstbestanden naar meerdere werkbladen?
Stel dat er meerdere tekstbestanden in een map op je computer staan, en je wilt deze tekstbestanden importeren naar een Excel-werkboek, waarbij elk tekstbestand in een apart werkblad komt. Het kopiëren en plakken van elk tekstbestand naar een werkblad, één voor één, kost veel tijd; hier bespreek ik enkele trucs om dit probleem op te lossen.
Importeer meerdere tekstbestanden naar aparte werkbladen met VBA-code
Importeer meerdere tekstbestanden naar aparte werkbladen met VBA-code
De volgende VBA-code kan je helpen om elk tekstbestand in één keer te importeren naar aparte werkbladen binnen een nieuw werkboek. Volg de onderstaande stappen:
1. Houd de toetsen ALT + F11 ingedrukt in Excel om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Importeer meerdere tekstbestanden naar aparte 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 je de bovenstaande code hebt geplakt, druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster de map die de tekstbestanden bevat, ga naar de map om de tekstbestanden te selecteren die je wilt importeren naar de werkbladen, zie screenshot:
4. Klik vervolgens op de knop Openen. Alle geselecteerde tekstbestanden zijn geïmporteerd in een nieuw werkboek en elk bestand staat in een apart werkblad.
5. Sla tot slot het nieuwe werkboek op zoals je nodig hebt.
Een werkboek splitsen in meerdere afzonderlijke tekst / pdf / csv / xlsx bestanden met Kutools voor Excel
Soms moet je misschien tegenovergestelde handelingen uitvoeren ten opzichte van de bovenstaande taak, wat wil zeggen dat je een werkboek moet splitsen in afzonderlijke tekstbestanden. De functie Werkboek splitsen van Kutools voor Excel kan je helpen om deze taak snel en gemakkelijk uit te voeren.
Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de volgende stappen:
1. Activeer het werkboek dat je wilt splitsen in meerdere tekstbestanden.
2. Klik op Onderneming > Werkboek > Werkboek splitsen, zie screenshot:
3. In het dialoogvenster Werkboek splitsen:
(1.) Vink de werkbladen aan die je wilt splitsen.
(2.) Vink Bestandsformaat opgeven aan, en kies vervolgens het bestandsformaat waarin je wilt opslaan. Je kunt bijvoorbeeld txt, csv, pdf, xlsx of xls-bestandsformaat kiezen, afhankelijk van je behoeften.
(3.) Klik vervolgens op de knop Splitsen, en geef in het volgende venster een map op om de gesplitste bestanden op te slaan.
 |  |  |
4. Klik vervolgens op de knop OK, en je geselecteerde werkbladen worden gesplitst en opgeslagen in de gewenste map met het formaat dat je nodig hebt.
Kutools voor Excel - Geleverd met meer dan 300 essentiële tools voor Excel. Geniet van permanent gratis AI-functies! Download nu!
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen