Hoe combineer je meerdere werkboeken in één hoofdwerkboek in Excel?

Ben je ooit vastgelopen toen je meerdere werkboeken in een hoofdwerkboek in Excel moest combineren? Het ergste is dat de werkboeken die je moet combineren meerdere werkbladen bevatten. En hoe combineer je alleen de opgegeven werkbladen van meerdere werkboeken in één werkboek? Deze handleiding demonstreert verschillende nuttige methoden om je stap voor stap te helpen bij het oplossen van het probleem.

Combineer meerdere werkboeken in één werkboek met de functie Verplaatsen of Kopiëren

Als er slechts enkele werkboeken gecombineerd moeten worden, kun je de opdracht Verplaatsen of Kopiëren gebruiken om handmatig werkbladen van het originele werkboek naar het hoofdwerkboek te verplaatsen of kopiëren.

1. Open de werkboeken die je wilt samenvoegen in een hoofdwerkboek.

2. Selecteer de werkbladen in het originele werkboek die je wilt verplaatsen of kopiëren naar het hoofdwerkboek.

3. Nadat je de benodigde werkbladen hebt geselecteerd, klik je met de rechtermuisknop op het bladtabblad en klik je vervolgens op Verplaatsen of Kopiëren in het contextmenu. Zie screenshot:

4. Vervolgens verschijnt het dialoogvenster Verplaatsen of Kopiëren. Selecteer in de vervolgkeuzelijst Naar boek het hoofdwerkboek waarin je de werkbladen wilt verplaatsen of kopiëren. Selecteer verplaats naar einde in het vak Voor blad, vink het vak Een kopie maken aan en klik ten slotte op de knop OK.

Vervolgens zie je dat de werkbladen in twee werkboeken zijn gecombineerd tot één. Herhaal de bovenstaande stappen om werkbladen uit andere werkboeken naar het hoofdwerkboek te verplaatsen.

Combineer meerdere werkboeken of gespecificeerde bladen van werkboeken naar een hoofdwerkboek met VBA

Als er meerdere werkboeken samengevoegd moeten worden tot één, kun je de volgende VBA-codes toepassen om dit snel te bereiken. Doe het volgende.

1. Plaats alle werkboeken die je wilt combineren in één map.

2. Start een Excel-bestand (dit werkboek wordt het hoofdwerkboek).

3. Druk op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module, en kopieer vervolgens onderstaande VBA-code naar het modulevenster.

VBA-code 1: Voeg meerdere Excel-werkboeken samen in één

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Druk op de F5-toets om de code uit te voeren. Vervolgens worden alle werkbladen of gespecificeerde werkbladen van de werkboeken in de bepaalde map in één keer samengevoegd in een hoofdwerkboek.

Combineer eenvoudig meerdere werkboeken of gespecificeerde bladen van werkboeken in één werkboek

Gelukkig maakt de functie Combineer werkboek van Kutools voor Excel het veel gemakkelijker om meerdere werkboeken samen te voegen in één. Laten we zien hoe deze functie werkt bij het combineren van meerdere werkboeken.

1. Maak een nieuw werkboek aan en klik op Kutools Plus > Combineer. Er verschijnt een dialoogvenster dat je eraan herinnert dat alle gecombineerde werkboeken moeten worden opgeslagen en dat de functie niet kan worden toegepast op beveiligde werkboeken; klik op de knop OK.

2. Selecteer in de wizard Combineer Werkbladen de optie Combineer meerdere werkbladen van werkboeken in één werkboek en klik vervolgens op de knop Volgende. Zie screenshot:

3. Klik in het dialoogvenster Combineer Werkbladen - Stap 2 van 3 op Toevoegen > Bestand of Map om de Excel-bestanden die je wilt samenvoegen toe te voegen. Nadat je de Excel-bestanden hebt toegevoegd, klik je op de knop Voltooien en kies je een map om het hoofdwerkboek op te slaan. Zie screenshot:

Nu zijn alle werkboeken samengevoegd in één.

In vergelijking met de bovenstaande twee methoden heeft Kutools voor Excel de volgende voordelen:

• 1) Alle werkboeken en werkbladen worden in het dialoogvenster weergegeven;
• 2) Voor de werkbladen die je niet wilt samenvoegen, vink ze dan gewoon uit;
• 3) Lege werkbladen worden automatisch uitgesloten;
• 4) De originele bestandsnaam wordt als voorvoegsel aan de bladnaam toegevoegd na samenvoegen;
• Voor meer functies van deze functie, bezoek dan hier.