Note: The other languages of the website are Google-translated. Back to English

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.

Sorter kommentarer efter
Kommentarer (146)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Plz hjælp mig til denne tilstand nedenfor. Jeg har en anden projektmappe, som har mere end 5 regneark hver i forskellig sti. Jeg har brug for at konsolidere alle regneark fra forskellige projektmapper til en enkelt projektmappe. Kan nogen hjælpe mig med at løse med macro.TIA!
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Hej Plz hjælp mig til denne tilstand nedenfor. Jeg har en anden projektmappe, som har mere end 5 regneark hver i forskellig sti. Jeg har brug for at konsolidere alle regneark fra forskellige projektmapper til en enkelt projektmappe. Kan nogen hjælpe mig med at løse med macro.TIA!Af A. Karthi[/quote] Gå venligst for at downloade og installere Kutools til Excel, du kan hurtigt få det gjort. Men hvis du vil bruge en VBA, kan det være for kompliceret. For mere information om, hvordan du får det gjort, besøg venligst:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Denne kommentar blev minimeret af moderatoren på webstedet
KUTOOLS Fantastisk løsning. Jeg har brug for endnu en hjælp, når jeg opretter hovedprojektmappe, så ændres cellefarven på arbejdsarket fra det originale regneark. Hvordan kan jeg beholde det som originalt arbejdsark.
Denne kommentar blev minimeret af moderatoren på webstedet
Vores kontor har kopiering af data (dvs. navn, adresse, by, beløb, dato underskrevet) fra flere excel-originaler, og det vil være et igangværende arbejde at forsøge at kombinere dataene. Hvordan kan det gøres for at eliminere dobbeltarbejde og dobbelte informationsindtastninger?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får en 'runtime error 1004', Copy Method of Worksheet-klassen mislykkedes på linjen, der lyder: Sheet.Copy After:=ThisWorkbook.Sheets(1). Jeg bruger Excel 2010. Kan du hjælpe? Tak, - Susie
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Susie, jeg har selv arbejdet på dette problem i et stykke tid, og jeg får den samme fejl. Tjek for at se, om modulet blev oprettet under PERSONLIG i stedet for din aktive projektmappe. Da jeg først oprettede modulet under det korrekte træ, fungerede nedenstående kode fint. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\ditnavnhere\Desktop\Testingfolder\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Åbn Filnavn:=Sti & Filnavn, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub Håber dette hjælper!
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak. Din kode fungerede godt.
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Jeg får en 'runtime error 1004', Copy Method of Worksheet-klassen mislykkedes på linjen, der lyder: Sheet.Copy After:=ThisWorkbook.Sheets(1). Jeg bruger Excel 2010. Kan du hjælpe? Tak, - SusieAf Susie[/quote] Havde det samme problem, det virker når jeg går for at se og vise "PERSONLIG", det ser ud til at have problemer med at få adgang til denne makro med masteren skjult.
Denne kommentar blev minimeret af moderatoren på webstedet
Gå til visning og vis "PERSONLIG" - det ser ud til at have problemer med at udføre hele koden, mens masteren er skjult. Du kan gøre makroen indbygget i den projektmappe, men du bliver nødt til at genskabe det hele, hver gang du ville bruge det
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Mange tak for denne fil............. :roll: Med venlig hilsen
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Godt tip. Gjorde næsten alt hvad jeg ønskede. I combinde-arbejdsbogen ville jeg have elsket at regnearkets navn indeholdt navnet på den originale arbejdsbog, så jeg ved hvilken arbejdsbog dataene kommer fra. De data, jeg kombinerer, er fra forskellige arkiver. Jeg skal søge efter en post, men ved ikke hvilket arkiv den er i. Så ved at kombinere alle data i én fil vil det gøre det muligt for mig at søge i alle arkiver på én gang. Men jeg mangler stadig at vide, hvilket arkiv indlægget er i. Henrik
Denne kommentar blev minimeret af moderatoren på webstedet
For at koden skal inkorporere filnavnet skal du blot gøre dette. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combine\" Filnavn = Dir(Sti & "*.xlsx") Gør Mens Filnavn "" Workbooks.Open Filename:= Sti og filnavn, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub Note : dette er kun for at kopiere det første ark, det kan tweekes til at gøre alle ark
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan inkorporerer du flere ark, og hvordan angiver du en anden masterfil for at indsætte alle arkene.
Denne kommentar blev minimeret af moderatoren på webstedet
Det er en rigtig god løsning. tak skal du have. Et problem dog, når jeg udfører det som denne, vil excel spørge, om jeg vil gemme ændringer før lukning (siden navnet blev ændret), og jeg ønsker ikke at gøre det for hver fil (omkring 32 pr. udførelse). Ville der være en måde at løse dette på?
Denne kommentar blev minimeret af moderatoren på webstedet
Det her er fantastisk :lol: hjalp mig meget....
Denne kommentar blev minimeret af moderatoren på webstedet
Tak makker, du gjorde min dag fra denne meget hjælpsomme hjemmeside... Faktisk ønskede jeg også at kombinere de samme overskriftsdata fra forskellige ark til 1 hovedregneark, KUTOOL til Excel hjalp mig meget.... Tak endnu en gang .... :)
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for den værdifulde information. Dette virker virkelig. De trin, der er anført i denne artikel, har virkelig gjort mit arbejde nemmere. Tak, Dinesh
Denne kommentar blev minimeret af moderatoren på webstedet
tak for at dele din viden
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan får du det til at opdatere ændringerne fra den originale projektmappe? Jeg forsøger at få et nationalt resumé, som vil få hver region til at indtaste deres data i deres egne projektmapper og derefter have den nationale oversigt, som opdateres fra dette? Jeg vil gerne have dette sat op for hele året i begyndelsen og ikke arbejde med tilbagevirkende kraft.
Denne kommentar blev minimeret af moderatoren på webstedet
Efter at have kombineret regnearkene i en projektmappe, hvordan gemmer du den. Jeg kunne ikke gemme den hedder Bog1, og jeg klikker på gem eller gem som, men virker ikke. nogen forslag?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fulgte trinene i "Kombiner flere projektmapper til en projektmappe med VBA" og klik på "kør", der skete ikke noget. Jeg er ikke opmærksom på fejl og er ikke sikker på, hvordan jeg skal rette. Vil du hjælpe mig? følgende er den kode, jeg indtastede i en ny projektmappe. tak skal du have Sub GetSheets() Path = "p:\download\macro\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Open Filename:=Sti & Filnavn, ReadOnly:=True For each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Dear Sir/Fru: Jeg fulgte trinene i "Kombiner flere projektmapper til én projektmappe med VBA" for at konfigurere det følgende modul, men der skete ikke noget. Vil du hjælpe mig med at finde problemet? tak Sub GetSheets() Path = "p:\download\macro\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Open Filename:=Sti & Filnavn, ReadOnly:=True For Every Ark I ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
for nyere versioner af excel, prøv dette. Jeg gemte min åbne projektmappe som katalog, og alle filerne er i c:\temp. Sub GetSheets() Path = "c:\temp\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Åbn Filnavn:=Sti og filnavn, ReadOnly:=True for hvert ark i ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Prøv dette for nyere versioner af excel. Jeg gemte min projektmappe som katalog, alle filerne er i c:\temp. Sub GetSheets() Path = "c:\temp\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Åbn Filnavn:=Sti og filnavn, ReadOnly:=True for hvert ark i ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Prøv dette for nyere versioner af excel. Jeg gemte min projektmappe som katalog, alle filerne er i c:\temp. Sub GetSheets() Path = "c:\temp\" Filnavn = Dir(Sti & "*.xls") Gør Mens Filnavn "" Workbooks.Åbn Filnavn:=Sti og filnavn, ReadOnly:=True for hvert ark i ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Luk Filnavn = Dir() Loop End SubAf Dave[/quote] Jeg bliver ved med at få "kan ikke tildele til skrivebeskyttet ejendom" vedrørende stien... Nogen idé?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har også det problem. Fandt du ud af det?
Denne kommentar blev minimeret af moderatoren på webstedet
Intet endnu... Har ikke fundet nogen løsning eller fået nogen til at foreslå en løsning. Undskyld...
Denne kommentar blev minimeret af moderatoren på webstedet
Også mig. Dette virkede for 6 måneder siden, sidste gang jeg skulle køre det. Har nogen fundet løsningen endnu? Hvis du havde det kørende før og nu ikke virker, kunne det være noget at gøre med en opdatering fra Microsoft? Dette er virkelig praktisk værktøj til mine opgaver og sparer mig masser af tid. Hvad kunne have ændret sig, der ville få Excel til at begynde at vise denne besked lige pludselig? Da jeg er ret ny til VBA, har jeg ikke nogen idé om, hvor jeg skal begynde at analysere logikken. Venlig hilsen, Greg. Glasgow, Skotland.
Denne kommentar blev minimeret af moderatoren på webstedet
Det ser ud til, at "Sti" nu er reserveret, så brug bare et hvilket som helst andet navn og erstat "Sti", f.eks. "Min sti".
Denne kommentar blev minimeret af moderatoren på webstedet
Måske skulle du ændre ReadOnly:=True to ReadOnly:=False, det har jeg gjort, og det var nyttigt
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ledte efter noget i denne retning, men ville gerne kommentere. Behøver Do While-filnavnet "" ikke at være noget andet end ""? eller læser jeg det forkert? Måske gør mens IKKE filnavn = "" Bare en tanke...
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne kombinere alle arkene til ét ark, hvor overskrifterne er fælles... pls hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg prøvede at bruge ovenstående makroer til at sortere få filer, desværre ingen resultater... kan nogen hjælpe mig med at slippe af med manuelt at sortere filer.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har 112 excel-ark, jeg vil lægge i et enkelt ark uden at kopiere og indsætte. Hjælp mig venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har en projektmappe, den indeholder omkring 250 ark. Jeg skal have Cobain i ét ark. giv mig venligst en løsning
Denne kommentar blev minimeret af moderatoren på webstedet
Prøv dette...Jeg fik dette fra en anden side, men jeg kan desværre ikke huske damens navn, så jeg undskylder for ikke at give hende en omtale, min dårlige" Kombiner flere WB'er i Excel: HUSK AT ÆNDRE MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = Falsk Application.EnableEvents = Falsk Application.ScreenUpdating = Falsk MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 0 Then Exit Sub Do Until strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Indstil wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDst.Works). Slet Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jeg tilføjede koden til et modul. Navnet Excel-bogen Masterfile. Hvor i koden tilføjer jeg. tak skal du have
Denne kommentar blev minimeret af moderatoren på webstedet
Ingen af ​​disse virkede for mig, jeg fik endelig denne til at virke. FYI Jeg bruger 2010 'Beskrivelse: Kombinerer alle filer i en mappe til en masterfil. Sub MergeFiles() Dim sti Som String, ThisWB As String, lngFilecounter As Long Dim wbDest As Worksheet, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet 2 ' Række til at starte på i de ark, du kopierer fra ThisWB = ActiveWorkbook.Name path = "mypath....." ' Glem ikke at ændre denne Application.EnableEvents = Falsk Application.ScreenUpdating = Falsk Sæt shtDest = ActiveWorkbook .Sheets(1) Filnavn = Dir(sti & "\*.xls", vbNormal) Hvis Len(Filnavn) = 0 Afslut Sub Do Indtil Filnavn = vbNullString Hvis Ikke Filnavn = ThisWB Indstil derefter Wkb = Workbooks.Open(Filnavn: =sti & "\" & filnavn) Indstil CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Vælg Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Udført!" Slut Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan redigerer jeg dette, så de hentede data altid starter på den øverste række? Hvis jeg kører denne kode to gange, tilføjer den dataene til slutningen af ​​mine tidligere data (fra den første kørsel af makroen).
Denne kommentar blev minimeret af moderatoren på webstedet
Skift denne linje: RowofCopySheet = 2 til RowofCopySheet = 1
Denne kommentar blev minimeret af moderatoren på webstedet
HI, jeg har flere Excel-filer (enkelt ark) forskellige mapper med adgangskodebeskyttelse. Jeg vil slutningen af ​​dagen kombinere alle data til en masterfil. Hver gang jeg skal indtaste adgangskode og åbne filen og kopiere indsæt til masterfil.. Venligst hjælp mig med VBA-kode til dette.
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder