Satura rādītājs
Lai apvienotu darbgrāmatas programmā Excel, izmantojiet šādu kodu. Šis kods aizņems visas katras direktorijā atrastās darbgrāmatas pirmās lapas:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Apvienot darbgrāmatasApakš apvienošanaWB ()Application.EnableEvents = NepareiziApplication.ScreenUpdating = NepareiziAptumšot ceļu kā virkni, šoWB kā virkni, lngFilecounter tik ilgiDim wbDest kā darbgrāmata, shtDest kā darblapa, ws kā darblapaDim faila nosaukums kā virkne, Wkb kā darbgrāmataDim CopyRng kā diapazons, Dest kā diapazonsDim RowofCopySheet kā vesels skaitlisRowofCopySheet = 2 'Rinda, lai sāktu lapas, no kurām kopējatThisWB = ActiveWorkbook.Namepath = GetDirectory ("Izvēlieties mapi, kurā ir Excel faili, kurus vēlaties apvienot")Iestatīt shtDest = ActiveWorkbook.Sheets (1)Faila nosaukums = Dir (ceļš un "\*. Xlsm", vbNormal)Ja Len (faila nosaukums) = 0, tad izejiet no apakšDarīt līdz faila nosaukumam = vbNullStringJa nav Faila nosaukums = ThisWB TadIestatiet Wkb = darbgrāmatas. Atveriet (faila nosaukums: = ceļš & "\" & faila nosaukums)Iestatīt CopyRng = Wkb.Sheets (1). Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Iestatīt galamērķi = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Rinda + 1)CopyRng.Copy MērķisWkb. Aizvērt nepatiesuBeigas JaFaila nosaukums = Režisors ()CilpaApplication.EnableEvents = PatiessApplication.ScreenUpdating = PatiessMsgBox "Makro ir pabeigts"Beigu apakš |
Excel kungs
