Indholdsfortegnelse
Brug følgende kode til at kombinere projektmapper i Excel. Denne kode vil tage alle de første ark i hver projektmappe, der findes i et bibliotek:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Flet arbejdsbøgerUnderfletningWB'er ()Application.EnableEvents = FalskApplication.ScreenUpdating = FalskDim sti som streng, ThisWB som streng, lngFilecounter så længeDim wbDest som projektmappe, shtDest som regneark, ws som regnearkDim filnavn som streng, Wkb som projektmappeDim CopyRng As Range, Dest As RangeDim RowofCopySheet som heltalRowofCopySheet = 2 'Række at starte på i de ark, du kopierer fraThisWB = ActiveWorkbook.Namepath = GetDirectory ("Vælg en mappe, der indeholder Excel -filer, du vil flette")Indstil shtDest = ActiveWorkbook.Sheets (1)Filnavn = Dir (sti & "\*. Xlsm", vbNormal)Hvis Len (filnavn) = 0 Afslut derefter SubGør indtil filnavn = vbNullStringIf Not Filename = ThisWB ThenIndstil Wkb = Workbooks.Open (Filnavn: = sti & "\" & Filnavn)Indstil CopyRng = Wkb.Sheets (1) .Range (Celler (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Indstil Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Række + 1)CopyRng.Copy DestWkb.Luk FalskAfslut HvisFilnavn = Dir ()SløjfeApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueMsgBox "Makro komplet"Afslut Sub |
Hr. Excel
