Hvordan kombineres flere projektmapper i en master-projektmappe i Excel?

Har du nogensinde været fast, når du skal kombinere flere projektmapper i en master-projektmappe i Excel? Den mest forfærdelige ting er, at de projektmapper, du har brug for at kombinere, indeholder flere regneark. Og hvordan kombineres kun de angivne regneark i flere projektmapper i en projektmappe? Denne tutorial demonstrerer flere nyttige metoder til at hjælpe dig med at løse problemet trin for trin.

Kombiner flere projektmapper til en projektmappe med funktionen Flyt eller Kopi

Hvis der kun er et par projektmapper, der skal kombineres, kan du bruge kommandoen Flyt eller Kopi til manuelt at flytte eller kopiere regneark fra den originale projektmappe til masterarbejdsmappen.

1. Åbn de projektmapper, som du vil flette ind i en master-projektmappe.

2. Vælg regnearkene i den originale projektmappe, som du vil flytte eller kopiere til masterarbejdsbogen.

3. Når du har valgt det nødvendige regneark, skal du højreklikke på arkfanen og derefter klikke på Flyt eller Kopier fra genvejsmenuen. Se skærmbillede:

4. Derefter Flyt eller Kopier dialog vises At reservere drop-down, skal du vælge den hovedarbejdsmappe, du vil flytte, eller kopiere regneark til. Vælg flyt for at slutte i Før ark afkrydsningsfeltet Opret en kopi og klik til sidst på OK .

Derefter kan du se regneark i to projektmapper kombineret til en. Gentag ovenstående trin for at flytte regneark fra andre projektmapper til masterarbejdsmappen.

Kombiner flere projektmapper eller specificerede ark med projektmapper til en master-projektmappe med VBA

Hvis der er flere projektmapper, der skal flettes til en, kan du anvende følgende VBA-koder for hurtigt at opnå det. Gør som følger.

1. Sæt alle projektmapper, som du vil kombinere, i en under samme bibliotek.

2. Start en Excel-fil (denne projektmappe bliver hovedarbejdsmappen).

3. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden til modulvinduet.

VBA-kode 1: Flet flere Excel-projektmapper til en

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. Tryk på F5 nøgle for at køre koden. Derefter kombineres alle regneark eller specificerede regneark i projektmapperne i den bestemte mappe til en master-projektmappe på én gang.

Kombiner let flere projektmapper eller specificerede ark med projektmapper til en projektmappe

Heldigvis Kombiner projektmappe nytte af Kutools for Excel gør det meget lettere at flette flere projektmapper til en. Lad os se, hvordan vi får denne funktion til at fungere i at kombinere flere projektmapper.

1. Opret en ny projektmappe, og klik Kutools Plus > Kombiner. Derefter vises en dialog for at minde dig om, at alle kombinerede projektmapper skal gemmes, og funktionen ikke kan anvendes på beskyttede projektmapper, skal du klikke på OK .

2. i Kombiner regneark guiden, vælg Kombiner flere regneark fra projektmapper til en projektmappe og klik derefter på Næste knap. Se skærmbillede:

3. i Kombiner regneark - Trin 2 af 3 dialogboksen, skal du klikke på knappen Tilføj > filet or Folder for at tilføje de Excel-filer, du fletter sammen til en. Når du har tilføjet Excel-filerne, skal du klikke på Finish knappen, og vælg en mappe for at gemme masterarbejdsbogen. Se skærmbillede:

Nu flettes alle projektmapper til en.

Sammenlignet med ovenstående to metoder, Kutools for Excel har følgende fordele:

• 1) Alle projektmapper og regneark er angivet i dialogboksen;
• 2) For de regneark, du vil ekskludere fra fletning, skal du bare fjerne markeringen af ​​det;
• 3) Tomme regneark udelukkes automatisk;
• 4) Det originale filnavn tilføjes som præfiks til arknavnet efter sammenfletning;
• For flere funktioner i denne funktion, besøg her.

Kutools for Excel - Hjælper dig med altid at afslutte arbejdet i forvejen, få mere tid til at nyde livet

Finder du dig ofte at lege med arbejde, mangel på tid at bruge til dig selv og familien?  Kutools for Excel kan hjælpe dig med at håndtere 80 % Excel puslespil og forbedre 80% arbejdseffektivitet, giver dig mere tid til at tage dig af familien og nyde livet.

300 avancerede værktøjer til 1500 arbejdsscenarier, gør dit arbejde så meget nemmere end nogensinde.
Du behøver ikke længere huske formler og VBA-koder, giv din hjerne hvile fra nu af.
Komplicerede og gentagne operationer kan udføres en engangsbehandling på få sekunder.
Reducer tusinder af tastatur- og musoperationer hver dag, og farvel med erhvervssygdomme nu
Bliv en Excel-ekspert på 3 minutter, hjælper dig med hurtigt at blive anerkendt og lønfremme.
110,000 meget effektive mennesker og 300+ verdenskendte virksomheders valg.
Gør din $ 39.0 mere end $ 4000.0-træning af andre.
Gratis prøveversion med fuld funktion 30-dag. 60-dages pengene-tilbage-garanti uden grund.