Innehållsförteckning
Använd följande kod för att kombinera arbetsböcker i Excel. Denna kod tar alla de första arken i varje arbetsbok som finns i en katalog:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Slå samman arbetsböckerSub MergeWB ()Application.EnableEvents = FalsktApplication.ScreenUpdating = FalsktDim path As String, ThisWB As String, lngFilecounter As LongDim wbDest As Workbook, shtDest As Worksheet, ws As WorksheetDim filnamn som sträng, Wkb som arbetsbokDim CopyRng As Range, Dest As RangeDim RowofCopySheet som heltalRowofCopySheet = 2 'Rad att börja på i de ark du kopierar frånThisWB = ActiveWorkbook.Namepath = GetDirectory ("Välj en mapp som innehåller Excel -filer som du vill slå samman")Ställ in shtDest = ActiveWorkbook.Sheets (1)Filnamn = Dir (sökväg & "\*. Xlsm", vbNormal)Om Len (filnamn) = 0 Avsluta sedan SubGör tills filnamn = vbNullStringIf Not Filename = ThisWB ThenStäll in Wkb = Workbooks.Open (Filnamn: = sökväg & "\" & Filnamn)Ange CopyRng = Wkb.Sheets (1) .Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Ange Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Rad + 1)CopyRng.Copy DestWkb.Stäng falsktAvsluta omFilnamn = Dir ()SlingaApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueMsgBox "Makro komplett"Avsluta Sub |
Herr Excel
