Sisällysluettelo
Voit yhdistää työkirjat Excelissä käyttämällä seuraavaa koodia. Tämä koodi vie kaikki hakemiston työkirjan ensimmäiset taulukot:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Yhdistä työkirjatOsien yhdistäminenWB ()Application.EnableEvents = VääräApplication.ScreenUpdating = VääräHimmennä polku merkkijonona, tämäWB merkkijonona, lngFilecounter niin pitkäDim wbDest kuten työkirja, shtDest kuten laskentataulukko, ws kuin laskentataulukkoHimmennä tiedostonimi merkkijonona, Wkb kuin työkirjaHimmennä CopyRng as Range, Dest as RangeDim RowofCopySheet kokonaislukunaRowofCopySheet = 2 'Aloita rivi arkeilta, joista kopioitThisWB = ActiveWorkbook.Namepath = GetDirectory ("Valitse kansio, joka sisältää Excel -tiedostot, jotka haluat yhdistää")Aseta shtDest = ActiveWorkbook.Sheets (1)Tiedostonimi = Dir (polku & "\*. Xlsm", vbNormal)Jos Len (tiedostonimi) = 0, sulje sitten SubTee asti Tiedostonimi = vbNullStringJos ei Tiedostonimi = TämäWB SittenAseta Wkb = Työkirjat.Open (Tiedostonimi: = polku & "\" & Tiedostonimi)Aseta CopyRng = Wkb.Sheets (1). Range (Solut (RowofCopySheet, 1), Solut (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Aseta kohde = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Rivi + 1)CopyRng.Copy DestWkb. Sulje FalseLoppu JosTiedostonimi = Dir ()SilmukkaApplication.EnableEvents = TosiApplication.ScreenUpdating = TottaMsgBox "Makro valmis"End Sub |
Herra Excel
