Ühendage mitu töölehte üheks

Selles artiklis õpime, kuidas koguda erinevate töövihikute andmeid Microsoft Excelis VBA kaudu.

Mõistame lihtsa harjutusega, kuidas arvutustabelit Microsoft Excelis VBA kaudu ühendada.

Meil on 3 erinevat Exceli faili. 2 faili on kausta xlsx ja üks fail xlsm -i. Soovime Exceli failis kokku koguda mõlemad andmekogumid, pidades silmas mõningaid asju, et igas andmes võib ridu ja veerge suurendada ja vähendada, samuti ei tea me Exceli failinimesid ja kaustade arvu. .

Sellel lehel tahame ühendada andmed:-

1^st Andmed:-

2^nd Andmed:-

3^rd Andmed:-

Nüüd tahame koondada andmed lehele. Peame järgima allpool toodud samme ja koodi:-

Makro kirjutamiseks vajutage klahvi Alt+F11, et avada VBE -leht.
Seejärel minge vahekaardi sisestamiseks ja sisestage moodul.
Kirjutage lehele allpool nimetatud kood.

Alamkollane_andmed ()

Kaustatee hämardamine stringina, failitee stringina, failinimi stringina

Folderpath = "E: \ Exceli näpunäited \ Uued VBA teemad \ HR andmed \" '(mainige faili teed)

filePath = Kaustatee & "*xls*"

Failinimi = Juht (filePath)

Dim Lastrow Sama kaua, viimane veerg sama kaua
Tee ajal Faili nimi ""

Töövihikud. Avage (kausta tee ja failinimi)

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

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

Vahemik (Lahtrid (2, 1), Lahtrid (Viimane, Viimane veerg)). Kopeeri

Application.DisplayAlerts = Vale

ActiveWorkbook.Sulge

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

ActiveSheet.Paste Destination: = töölehed ("Sheet1"). Vahemik (lahtrid (erow, 1), lahtrid (erow, 5))

Faili nimi = Rež

Loop

Application.DisplayAlerts = Tõsi

End Sub

Koodi selgitus: - Esiteks määratleme kõik muutujad, mida peame koodi kirjeldamisel kasutama. Seejärel kasutame programmi käivitamiseks kõigi Exceli failide jaoks koodi Do while. Seejärel määratleme failide tee ja pärast seda määratleme Exceli lehe viimase rea ja veeru ning seejärel määratleme andmete kleepimise sihtkoha.