Innholdsfortegnelse
Bruk følgende kode for å kombinere arbeidsbøker i Excel. Denne koden vil ta alle de første arkene i hver arbeidsbok som finnes i en katalog:
123456789101112131415161718192021222324252627282930313233343536 | 'Slå sammen arbeidsbøkerSub MergeWB ()Application.EnableEvents = FalskApplication.ScreenUpdating = FalskDim path As String, ThisWB As String, lngFilecounter As LongDim wbDest Som arbeidsbok, shtDest Som regneark, ws Som regnearkDim filnavn som streng, Wkb som arbeidsbokDim CopyRng As Range, Dest As RangeDim RowofCopySheet som heltallRowofCopySheet = 2 'Rad å begynne på i arkene du kopierer fraThisWB = ActiveWorkbook.Namepath = GetDirectory ("Velg en mappe som inneholder Excel -filer du vil slå sammen")Sett shtDest = ActiveWorkbook.Sheets (1)Filnavn = Dir (bane og "\*. Xlsm", vbNormal)Hvis Len (filnavn) = 0, avslutt deretter SubGjør inntil filnavn = vbNullStringIf Not Filename = ThisWB ThenAngi Wkb = Workbooks.Open (filnavn: = bane og "\" og filnavn)Sett CopyRng = Wkb.Sheets (1) .Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Angi Dest = shtDest.Range ("A" og shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Rad + 1)CopyRng.Copy DestWkb.Lukk FalskSlutt omFilnavn = Dir ()LøkkeApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueMsgBox "Makro komplett"Slutt Sub |
Mr. Excel