Hoe combineert u meerdere werkmappen tot één hoofdwerkmap in Excel?
Bent u ooit vastgelopen bij het combineren van meerdere werkmappen tot één hoofdwerkmap in Excel? Het lastigste is wanneer die werkmappen elk meerdere werkbladen bevatten. Maar hoe combineert u dan alleen de opgegeven werkbladen uit meerdere werkmappen tot één enkele werkmap? Deze handleiding biedt verschillende handige methoden om u stap voor stap te helpen dit probleem op te lossen.
- Methode A:Meerdere werkmappen combineren tot één werkmap met de functie Verplaatsen of kopiëren
- Methode B:Meerdere werkmappen of opgegeven bladen van werkmappen combineren tot een hoofdwerkmap met VBA
- Methode C:Meerdere werkmappen of opgegeven bladen van werkmappen eenvoudig combineren tot één werkmap
Meerdere werkmappen combineren tot één werkmap met de functie Verplaatsen of kopiëren
Als er maar een paar werkmappen moeten worden gecombineerd, kunt u de opdracht Verplaatsen of kopiëren gebruiken om handmatig werkbladen te verplaatsen of Werkbladen kopiëren van de oorspronkelijke werkmap naar de hoofdwerkmap.
1. Open de werkmappen die u wilt samenvoegen tot één hoofdwerkmap.
2. Selecteer de werkbladen in de oorspronkelijke werkmap die u naar de hoofdwerkmap wilt verplaatsen of kopiëren.
Opmerkingen:
1). U kunt meerdere niet-aangrenzende werkbladen selecteren door de Ctrl-toets ingedrukt te houden en de bladtabs een voor een aan te klikken.
2). Om meerdere aangrenzende werkbladen te selecteren, klikt u op het eerste bladtabblad, houdt u de Shift-toets ingedrukt en klikt u vervolgens op het laatste bladtabblad om ze allemaal te selecteren.
3). U kunt met de rechtermuisknop op een willekeurig bladtabblad klikken en in het contextmenu op Alles selecteren klikken om alle werkbladen in de werkmap tegelijkertijd te selecteren.
3. Nadat u de benodigde werkbladen hebt geselecteerd, klikt u met de rechtermuisknop op het bladtabblad en kiest u Verplaatsen of kopiëren in het contextmenu. Zie screenshot:
4. Vervolgens verschijnt het Verplaatsen of kopiëren-dialoogvenster. Selecteer in de vervolgkeuzelijst Naar werkmap de hoofdwerkmap waarnaar u werkbladen wilt verplaatsen of kopiëren. Kies Naar einde verplaatsen in het vak Vóór blad, vink het vakje Een kopie maken aan en klik ten slotte op de knop OK.
Vervolgens ziet u dat de werkbladen uit twee werkmappen zijn samengevoegd tot één werkmap. Herhaal de bovenstaande stappen om werkbladen uit andere werkmappen naar de hoofdwerkmap te verplaatsen.
Meerdere werkmappen of opgegeven bladen van werkmappen combineren tot een hoofdwerkmap met VBA
Als u meerdere werkmappen snel wilt samenvoegen tot één werkmap, kunt u de volgende VBA-codes gebruiken. Volg hiervoor de onderstaande stappen.
1. Plaats alle werkmappen die u wilt combineren in één map.
2. Start een Excel-bestand (deze werkmap wordt de hoofdwerkmap).
3. Druk op 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 plak de onderstaande VBA-code in het modulevenster.
VBA-code 1: Meerdere Excel-werkboek samenvoegen 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 SubOpmerkingen:
1. De bovenstaande VBA-code behoudt na samenvoegen de bladnamen van de oorspronkelijke werkmappen.
2. Als u na samenvoegen wilt kunnen zien uit welke werkmappen de werkbladen in de hoofdwerkmap afkomstig zijn, gebruik dan de onderstaande VBA-code 2.
3. Als u alleen bepaalde werkbladen van de werkmappen wilt combineren tot een hoofdwerkmap, helpt de onderstaande VBA-code 3.
In de VBA-code is „C:\Users\DT168\Desktop\KTE\” het bestandspad. In VBA-code 3 is "Sheet1,Sheet3" de opgegeven werkbladen die u naar één hoofdwerkmap gaat combineren. U kunt deze aanpassen aan uw wensen.
VBA-code 2: Werkboeken samenvoegen samenvoegen tot één werkmap (elk werkblad krijgt als naam het voorvoegsel van de oorspronkelijke bestandsnaam):
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
VBA-code 3: Opgegeven werkbladen van werkmappen samenvoegen tot een hoofdwerkmap:
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 Sub4. Druk op de F5-toets om de code uit te voeren. Vervolgens worden alle werkbladen of de opgegeven werkbladen van de werkmappen in de betreffende map in één keer samengevoegd tot één hoofdwerkmap.
Meerdere werkmappen of opgegeven bladen van werkmappen eenvoudig combineren tot één werkmap
Gelukkig maakt de Combineer-functie van Kutools voor Excel het veel eenvoudiger om meerdere werkmappen samen te voegen tot één. Laten we eens kijken hoe u deze functie kunt gebruiken om meerdere werkmappen te combineren.
Voordat u Kutools voor Excel toepast, moet u het eerst downloaden en installeren.
1. Maak een nieuw werkblad aan en klik op KUTOOLS PLUS > Combineer. Vervolgens verschijnt een dialoogvenster met de melding dat alle gecombineerde werkmappen moeten worden opgeslagen en dat de functie niet kan worden toegepast op beveiligde werkmappen. Klik op de knop OK.
2. Selecteer in de wizard Werkbladen samenvoegen de optie Werkbladen kopiëren vanuit meerdere werkmappen naar één werkmap en klik vervolgens op de knop Volgende. Zie screenshot:
3. Klik in het dialoogvenster Werkbladen samenvoegen - Stap 2 van 3 op Toevoegen > Bestand of Map om de Excel-bestanden toe te voegen die u wilt samenvoegen tot één bestand. Nadat u de Excel-bestanden hebt toegevoegd, klikt u op de knop Voltooien en kiest u een map om de hoofdwerkmap op te slaan. Zie screenshot:
Nu zijn alle werkmappen samengevoegd tot één.
In vergelijking met de bovenstaande twee methoden heeft Kutools voor Excelde volgende voordelen:
- 1) Alle werkmappen en werkbladen worden weergegeven in het dialoogvenster;
- 2) Voor de werkbladen die u niet wilt opnemen bij het samenvoegen, schakelt u het vinkje gewoon uit;
- 3) Leeg werkblad worden automatisch uitgesloten;
- 4) De oorspronkelijke bestandsnaam wordt na samenvoegen als voorvoegsel toegevoegd aan de bladnaam;
- Voor meer functies van deze mogelijkheid bezoekt u deze pagina.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
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