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.
Opmerkingen:
1). U kunt meerdere niet-aangrenzende werkbladen selecteren door de Ctrl toets en klik één voor één op de bladtabs.
2). Om meerdere aangrenzende werkbladen te selecteren, klikt u op de eerste bladtab, houdt u de Shift key en klik vervolgens op de laatste bladtab om ze allemaal te selecteren.
3). U kunt met de rechtermuisknop op een bladtab klikken, klik op Selecteer Alle bladen vanuit het contextmenu om alle werkbladen in de werkmap tegelijkertijd te selecteren.
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
Opmerkingen:
1. De bovenstaande VBA-code behoudt de bladnamen van de originele werkmappen na het samenvoegen.
2. Als u na het samenvoegen wilt onderscheiden welke werkbladen in de hoofdwerkmap vandaan komen, past u de onderstaande VBA-code 2 toe.
3. Als u alleen gespecificeerde werkbladen van de werkmappen wilt combineren tot een hoofdwerkmap, kan de onderstaande VBA-code 3 helpen.
In VBA-codes, "C: \ Users \ DT168 \ Desktop \ KTE \”Is het mappad. In de VBA-code 3, "Blad1, Blad3"zijn de gespecificeerde werkbladen van de werkmappen die u wilt combineren tot een hoofdwerkmap. U kunt ze wijzigen op basis van uw behoeften.
VBA-code 2: werkmappen samenvoegen tot één (elk werkblad krijgt een naam met 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: gespecificeerde 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 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.
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.
