Tartalomjegyzék
A munkafüzetek Excelben történő kombinálásához használja a következő kódot. Ez a kód a könyvtárban található összes munkafüzet első lapjait tartalmazza:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Egyesítse a munkafüzeteketRészegyesítésWB -k ()Application.EnableEvents = HamisApplication.ScreenUpdating = HamisAz útvonalat halványítja karakterláncként, ezt a WB -t karakterláncként, az lngFilecounter As Long -otDim wbDest mint munkafüzet, shtDest mint munkalap, ws mint munkalapDim fájlnév karakterláncként, Wkb munkafüzetkéntHalvány CopyRng mint tartomány, Dest As RangeDim RowofCopySheet egészkéntRowofCopySheet = 2 'Kezdő sor azokon a lapokon, amelyekről másolThisWB = ActiveWorkbook.Namepath = GetDirectory ("Válassza ki az egyesíteni kívánt Excel fájlokat tartalmazó mappát")Állítsa be az shtDest = ActiveWorkbook.Sheets (1)Fájlnév = Irány (elérési út és "\*. Xlsm", vbNormal)Ha Len (fájlnév) = 0, akkor lépjen ki a Sub menübőlDo till Filename = vbNullStringHa nem Fájlnév = ThisWB AkkorÁllítsa be a Wkb = Munkafüzeteket. Nyissa meg (Fájlnév: = elérési út & "\" & Fájlnév)Set 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). Sor + 1)CopyRng.Copy CélWkb. Bezárás HamisVége HaFájlnév = Irány ()HurokApplication.EnableEvents = IgazApplication.ScreenUpdating = IgazMsgBox "Makró kész"End Sub |
Excel úr
