Lang L: none (table-of-contents)
Töövihikute ühendamiseks Excelis kasutage järgmist koodi. See kood võtab kõik esimesed lehed igast kataloogist leitud töövihikust:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Ühendage töövihikudAlamühendamineWB -d ()Application.EnableEvents = ValeApplication.ScreenUpdating = ValeHämardage tee stringina, seeWB kui string, lngFilecounter nii pikkDim wbDest kui töövihik, shtDest kui tööleht, ws kui töölehtHämardatud failinimi stringina, Wkb töövihikunaDim CopyRng As Range, Dest As RangeDim RowofCopySheet täisarvunaRowofCopySheet = 2 'Rida alustamiseks lehtedel, kust kopeeriteThisWB = ActiveWorkbook.Namepath = GetDirectory ("Valige kaust, mis sisaldab ühendatavaid Exceli faile")Määra shtDest = ActiveWorkbook.Sheets (1)Failinimi = Suund (tee & "\*. Xlsm", vbNormal)Kui Len (failinimi) = 0, siis väljuge alammenüüstTehke kuni Failinimi = vbNullStringKui ei, siis Failinimi = ThisWB SiisMäära Wkb = Töövihikud. Ava (failinimi: = tee & "\" & failinimi)Määra CopyRng = Wkb.Sheets (1). Range (Lahtrid (RowofCopySheet, 1), Lahtrid (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Määra sihtkoht = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Rida + 1)CopyRng.Copy DestWkb. Sule valeLõpp KuiFaili nimi = Dir ()LoopApplication.EnableEvents = TõsiApplication.ScreenUpdating = TõsiMSGBox "Makro on täielik"End Sub |
Härra Excel
