Sadržaj
Za kombiniranje radnih knjiga u Excelu upotrijebite sljedeći kôd. Ovaj kôd će uzeti sve prve listove u svakoj radnoj knjizi koja se nalazi u direktoriju:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Spoji radne knjigeSub MergeWB ()Application.EnableEvents = NetačnoApplication.ScreenUpdating = NetačnoDim path as String, ThisWB As String, lngFilecounter As LongZatamni wbDest kao radnu knjigu, shtDest kao radni list, ws kao radni listDim Filename As String, Wkb As WorkbookDim CopyRng As Range, Dest As RangeZatamnite RowofCopySheet kao cijeli brojRowofCopySheet = 2 'Red za početak na listovima s kojih kopirateThisWB = ActiveWorkbook.Namepath = GetDirectory ("Odaberite mapu koja sadrži Excel datoteke koje želite spojiti")Postavi shtDest = ActiveWorkbook.Sheets (1)Naziv datoteke = Dir (put & "\*. Xlsm", vbNormalno)Ako je Len (naziv datoteke) = 0, tada izađite iz podmUčiniti do Naziv datoteke = vbNullStringAko nije Naziv datoteke = ThisWB OndaPostavi Wkb = Radne knjige.Otvori (Naziv datoteke: = put & "\" & Naziv datoteke)Postavi CopyRng = Wkb.Sheets (1) .Range (ćelije (RowofCopySheet, 1), ćelije (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Postavi Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Red + 1)Odredište za kopiranjeWkb.Zatvori NetačnoZavrši akoNaziv datoteke = Dir ()PetljaApplication.EnableEvents = IstinaApplication.ScreenUpdating = IstinaMsgBox "Makro dovršen"Kraj podm |
Gospodine Excel
