Turinys
Norėdami sujungti darbo knygas „Excel“, naudokite šį kodą. Šis kodas užims visus pirmuosius kiekvienos katalogo darbo knygos lapus:
| 123456789101112131415161718192021222324252627282930313233343536 | „Sujungti darbaknygesPapildomas sujungimasWB ()Application.EnableEvents = NetiesaApplication.ScreenUpdating = NetiesaBlokas kelias kaip eilutė, šisWB kaip eilutė, lngFilecounter kaip ilgasDim wbDest As Workbook, shtDest As Workheet, ws As WorkheetDim failo pavadinimas kaip eilutė, Wkb kaip darbaknygė„Dim CopyRng As Range“, „Dest As Range“Dim RowofCopySheet kaip sveikasis skaičiusRowofCopySheet = 2 'Eilutė, kurią reikia pradėti lapuose, iš kurių kopijuojateThisWB = ActiveWorkbook.Namepath = „GetDirectory“ („Pasirinkite aplanką, kuriame yra„ Excel “failai, kuriuos norite sujungti“)Nustatykite shtDest = ActiveWorkbook.Sheets (1)Failo pavadinimas = Dir (kelias & "\*. Xlsm", vbNormal)Jei „Len“ (failo pavadinimas) = 0, tada išeikite iš „Sub“Daryti iki Failo pavadinimas = vbNullStringJei ne Failo pavadinimas = ThisWB TadaNustatykite Wkb = Darbaknygės. Atidarykite (Failo pavadinimas: = kelias & "\" ir failo pavadinimas)Nustatykite CopyRng = Wkb.Sheets (1). Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Nustatyti Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Eilutė + 1)CopyRng.Copy DestWkb. Uždaryti klaidingaiPabaiga JeiFailo pavadinimas = Režisierius ()KilpaApplication.EnableEvents = TiesaApplication.ScreenUpdating = Tiesa„MsgBox“ „Užbaigtas makrokomandas“Pabaiga Sub |
Pone Excel
