Hoe combineer je meerdere werkmappen in één hoofdwerkmap in Excel?

Ben je ooit vastgelopen wanneer je meerdere werkmappen moet combineren tot een hoofdwerkmap in Excel? Het ergste is dat de werkmappen die u moet combineren, meerdere werkbladen bevatten. En hoe combineer je alleen de opgegeven werkbladen van meerdere werkmappen in één werkmap? In deze zelfstudie worden verschillende handige methoden gedemonstreerd waarmee u het probleem stap voor stap kunt oplossen.

Combineer meerdere werkmappen in één werkmap met de functie Verplaatsen of Kopiëren

Als er slechts een paar werkmappen moeten worden gecombineerd, kunt u de opdracht Verplaatsen of Kopiëren gebruiken om werkbladen handmatig van de originele werkmap naar de hoofdwerkmap te verplaatsen of te kopiëren.

1. Open de werkmappen die u wilt samenvoegen tot een hoofdwerkmap.

2. Selecteer de werkbladen in de originele werkmap die u naar de hoofdwerkmap wilt verplaatsen of kopiëren.

3. Nadat u de benodigde werkbladen heeft geselecteerd, klikt u met de rechtermuisknop op de bladtab en klikt u vervolgens op Verplaatsen of kopiëren vanuit het contextmenu. Zie screenshot:

4. Vervolgens de Verplaatsen of kopiëren dialoogvenster verschijnt in het Boeken in de vervolgkeuzelijst, selecteert u de hoofdwerkmap waarnaar u de werkbladen wilt verplaatsen of kopiëren. Selecteer verplaatsen om te eindigen in het Voor blad vakje, vink het Maak een kopie vak en klik ten slotte op het OK knop.

Vervolgens kunt u werkbladen in twee werkmappen in één gecombineerd zien. Herhaal de bovenstaande stappen om werkbladen van andere werkmappen naar de hoofdwerkmap te verplaatsen.

Combineer meerdere werkmappen of gespecificeerde werkbladen tot een hoofdwerkmap met VBA

Als er meerdere werkmappen moeten worden samengevoegd tot één, kunt u de volgende VBA-codes toepassen om dit snel te bereiken. Ga als volgt te werk.

1. Zet alle werkmappen die u wilt combineren in één map onder dezelfde directory.

2. Start een Excel-bestand (deze werkmap wordt de hoofdwerkmap).

3. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor applicaties venster. In de Microsoft Visual Basic voor applicaties venster klikt Invoegen > moduleen kopieer vervolgens de VBA-code naar het modulevenster.

VBA-code 1: voeg meerdere Excel-werkmappen samen tot éé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 de F5 sleutel om de code uit te voeren. Vervolgens worden alle werkbladen of gespecificeerde werkbladen van de werkmappen in de bepaalde map in één keer gecombineerd tot een hoofdwerkmap.

Combineer eenvoudig meerdere werkmappen of gespecificeerde werkbladen in één werkmap

Gelukkig is de Combineren werkmap hulpprogramma van Kutools for Excel maakt het veel gemakkelijker om meerdere werkmappen samen te voegen tot één. Laten we eens kijken hoe we deze functie kunnen laten werken door meerdere werkmappen te combineren.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Maak een nieuwe werkmap en klik op Kutools Plus > Combineren. Vervolgens verschijnt er een dialoogvenster om u eraan te herinneren dat alle gecombineerde werkmappen moeten worden opgeslagen en dat de functie niet kan worden toegepast op beschermde werkmappen.Klik op de OK knop.

2. In de Combineer werkbladen wizard, selecteer Combineer meerdere werkbladen uit werkmappen in één werkmap optie en klik vervolgens op het volgende knop. Zie screenshot:

3. In de Combineer werkbladen - Stap 2 van 3 dialoogvenster, klik op de Toevoegen > Dien in or Map om de Excel-bestanden toe te voegen die u tot één samenvoegt. Klik na het toevoegen van de Excel-bestanden op het Klaar! en kies een map om de hoofdwerkmap op te slaan. Zie screenshot:

Nu zijn alle werkmappen samengevoegd tot één.

Vergeleken met de bovenstaande twee methoden, Kutools for Excel heeft de volgende voordelen:

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

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Kutools voor Excel - Helpt u uw werk altijd op tijd af te werken, meer tijd te hebben om van het leven te genieten

Vind je jezelf vaak een inhaalslag met werk, gebrek aan tijd om voor jezelf en je gezin te besteden?  Kutools for Excel kan u helpen om met 80% Excel-puzzels om te gaan en 80% werkefficiëntie te verbeteren, u meer tijd geven om voor uw gezin te zorgen en van het leven te genieten.

300 geavanceerde tools voor 1500 werkscenario's, maken uw werk zoveel gemakkelijker dan ooit.
U hoeft geen formules en VBA-codes meer te onthouden, geef uw hersenen vanaf nu rust.
Ingewikkelde en herhaalde bewerkingen kunnen binnen enkele seconden een eenmalige verwerking worden uitgevoerd.
Verminder elke dag duizenden toetsenbord- en muisbewerkingen, zeg nu vaarwel tegen beroepsziekten.
Word Excel-expert in 3 minuten, help u snel herkend te worden en maak een promotie voor loonsverhoging.
110,000 zeer effectieve mensen en meer dan 300 keuze van wereldberoemde bedrijven.
Maak uw $ 39.0 meer waard dan $ 4000.0 training van anderen.
Gratis proefperiode van 30 dagen met volledige functionaliteit. 60 dagen geld-terug-garantie zonder reden.