Gå til hovedindhold

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.

Bemærkninger:

1). Du kan vælge flere ikke-tilstødende regneark ved at holde Ctrl tasten og klikke på arkfaner en efter en.

2). For at vælge flere tilstødende regneark skal du klikke på den første arkfane og holde Flytte nøgle, og klik derefter på den sidste fane for at markere dem alle.

3). Du kan højreklikke på en hvilken som helst arkfane, klikke på Vælg Alle ark fra genvejsmenuen for at vælge alle regneark i projektmappen på samme tid.

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
	

Bemærkninger:

1. Ovenstående VBA-kode opbevarer arknavne på de originale projektmapper efter sammenfletning.

2. Hvis du vil skelne mellem, hvilke regneark i master-projektmappen, der kommer fra, efter sammenfletning, skal du anvende nedenstående VBA-kode 2.

3. Hvis du bare vil kombinere specificerede regneark for projektmapperne i en master-projektmappe, kan nedenstående VBA-kode 3 hjælpe.

I VBA-koder, “C: \ Brugere \ DT168 \ Desktop \ KTE \”Er mappestien. I VBA-kode 3 "Ark1, Ark3"er de angivne regneark for de projektmapper, du vil kombinere til en hovedarbejdsbog. Du kan ændre dem ud fra dine behov.

VBA-kode 2: Flet arbejdsbøger til en (hvert regneark vil blive navngivet med præfikset for det originale filnavn):

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-kode 3: Flet specificerede regneark med projektmapper til en hovedarbejdsbog:

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 til 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.

Før påføring Kutools til Excel, Bedes download og installer det først.

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 til 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.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Kutools til 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 til 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 i 30 dage. 60-dages pengene-tilbage-garanti uden grund.

Comments (146)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one workbook with 100+ sheets, I want to move all 100+ sheets into another workbook in a single sheet.
This comment was minimized by the moderator on the site
I had to read throught the comments to find suggestions that worked for my application of the VBA CODE 2, but I managed to get it to work doing the following things:
1. make sure to change "C:\Users\DT168\Desktop\KTE\" to your own directory to wherever you have your files are located. don't forget the extra "\" at the end!2. my spreadsheets were extension ".xls", so I deleted the extra "x" in this line, like so: xStrFName = Dir(xStrPath & "*.xlsx")3. I placed all my spreadsheets in a single folder, and only those files were the contents of that folder, the target macro enabled spreadsheet where this vba was running from was saved outside of this folder (hopefully this makes sense).
one thing that I didn't want to mess with though is I only needed to merge the 1st tab of each spreadsheet, but I didn't want to mess with the code so if each workbook you want to merge into one has multiple tabs, this code will grab all of the tabs on each workbook and place them in your target spreadsheet, I had to manually delete all the tabs I didn't want.
if the author of this vba could reply to me, how do you change the code to just copy the 1st tab as opposed to all the tabs?
thank you!
This comment was minimized by the moderator on the site
hi I want a change. If the the sheet name is same then the data should be appended in the same name sheet rather than adding a sheet. for example if i have 10 files with jan, feb, mar same sheetnames. then result should be 1 file having jan, feb, mar only 3 sheets with the data of all 10 files. thanks
This comment was minimized by the moderator on the site
Good morning,

Basically I have to copy the values of another file example c: \ test.xlsx (sheet name "date"):

I have to copy the values from A2: T20


And I have to paste in another Extract.xlsx file on the “Extracts” folder on A2.


PLEASE NOTE: You must run vba when opening the file.
This comment was minimized by the moderator on the site
Hello! I need to merge multiple files into one, that are password protected. All source files use the same password. What changes are needed to the first VBA script to merge the files without having to enter the password each time?
This comment was minimized by the moderator on the site
Hello any one can help me, I want to combine sheet 2 only from 5 different sheet, can you script for me.
This comment was minimized by the moderator on the site
you can use Array function to copy the multiple sheets to combine in one file
Sheets(Array("Sheet1","Sheet2")).copy
This comment was minimized by the moderator on the site
hai sir i want know code for copying multiple sheets in one excel to multiple excels
This comment was minimized by the moderator on the site
Sheets(Array("Sheet1","Sheet2")).copy
This comment was minimized by the moderator on the site
hai sir i want know code for copying multiple sheets in one excel to multiple excels
This comment was minimized by the moderator on the site
how to use VBA code 1 to amend and make it runs to combine all the .xlsx files into one excel file and each excel spreedsheet tab in the combined excel file should be named as original file name.thanks
This comment was minimized by the moderator on the site
What part of VBA code 3 specifies the name of the worksheet to be copied?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations