Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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-gåder og forbedre 80% arbejdseffektivitet, give dig mere tid til at tage sig af familien og nyde livet.
300 avancerede værktøjer til 1500 arbejdsscenarier, gør dit job så meget lettere 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.
Fuld funktion gratis prøveperiode 30 dage. 60-dages pengene-tilbage-garanti uden grund.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.