Sujunkite kelis darbalapius į vieną

Anonim

Šiame straipsnyje mes išmoksime surinkti duomenis iš skirtingų darbaknygių per „Microsoft Excel“ VBA.

Su paprastu pratimu suprasime, kaip sujungti skaičiuoklę per VBA „Microsoft Excel“.

Turime 3 skirtingus „Excel“ failus. 2 failai yra į xlsx, o vienas failas yra į xlsm aplanke. Mes norime sujungti abu „Excel“ failo duomenų rinkinius, kad nepamirštume, jog kiekvienuose duomenyse eilutės ir stulpeliai gali būti didinami ir mažinami, taip pat nežinome „Excel“ failų pavadinimų ir kiek failų yra aplanke .

Šiame lape norime sujungti šiuos duomenis:-

1st Duomenys:-

2antra Duomenys:-

3rd Duomenys:-

Dabar norime surinkti duomenis lape. Turime atlikti toliau nurodytus veiksmus ir kodą:-

  • Paspauskite klavišą „Alt“+F11, kad atidarytumėte VBE puslapį, kad galėtumėte rašyti makrokomandą.
  • Tada eikite į skirtuką „Įterpti“ ir įdėkite modulį.
  • Puslapyje parašykite žemiau nurodytą kodą.

Papildomas rūšiavimo duomenys ()

Dim FolderpathAs eilutė, filePath kaip eilutė, failo pavadinimas kaip eilutė

Folderpath = "E: \ Excel patarimai \ Naujos VBA temos \ HR duomenys \" ‘(paminėkite failo kelią)

filePath = Aplanko kelias ir "*xls*"

Failo pavadinimas = Dir (filePath)

Dim Lastrow
Daryti, kol failo pavadinimas ""

Darbaknygės. Atidaryti (aplanko kelias ir failo pavadinimas)

Lastrow = ActiveSheet.Cells (Rows.count, 1). End (xlUp). Row

Lastcolumn = ActiveSheet.Cells (1, Columns.count). End (xlToLeft). Stulpelis

Diapazonas (langeliai (2, 1), langeliai (paskutinis, paskutinis stulpelis)). Kopijuoti

Application.DisplayAlerts = Netiesa

ActiveWorkbook.Uždaryti

erow = Sheet1.Cells (Rows.count, 1). End (xlUp). Offset (1, 0).

„ActiveSheet.Paste Destination“: = darbalapiai („Sheet1“). Diapazonas (ląstelės (erow, 1), ląstelės (erow, 5))

Failo pavadinimas = Rež

Kilpa

Application.DisplayAlerts = Tiesa

Pabaiga Sub

Kodo paaiškinimas: - Pirmiausia apibrėžsime visus kintamuosius, kuriuos turime naudoti aprašydami kodą. Tada mes naudosime kodą „Do while“, kad paleistume programą visiems „Excel“ failams. Tada mes nustatysime failų kelią, o po to nustatysime paskutinę „Excel“ lapo eilutę ir stulpelį ir tada nustatysime duomenų įklijavimo vietą.

  • Norėdami paleisti makrokomandą, paspauskite klavišą F5.
  • Abiejų lapų duomenys bus nukopijuoti ir įklijuoti į „Excel“ lapą.

Taip galime surinkti lape esančius duomenis iš skirtingų „Excel“ failų per „Microsoft Excel“ VBA.