Združite več delovnih listov v eno

V tem članku se bomo naučili, kako zbrati podatke iz različnih delovnih zvezkov prek VBA v Microsoft Excelu.

S preprosto vajo razumemo, kako združiti preglednico prek VBA v Microsoft Excelu.

Imamo 3 različne datoteke Excel. 2 datoteki sta xlsx in ena datoteka xlsm v mapi. Želimo združiti oba nabora podatkov v datoteki Excel, da ne pozabimo na nekaj stvari, ki jih je mogoče pri vseh podatkih povečevati in zmanjševati, in tudi ne poznamo imen datotek Excel in koliko datotek je v mapi .

Na tem listu želimo združiti podatke:-

1^st Podatki:-

2^nd Podatki:-

3^rd Podatki:-

Zdaj želimo podatke združiti v list. Upoštevati moramo spodnje korake in kodo:-

Pritisnite tipko Alt+F11, da odprete stran VBE za pisanje makra.
Nato pojdite na zavihek za vstavljanje in vstavite modul.
Spodaj omenjeno kodo napišite na stran.

Sub Collate_Data ()

Dim Folderpath Kot niz, filePath kot niz, ime datoteke kot niz

Folderpath = "E: \ Excel Nasveti \ Nove teme VBA \ HR podatki \" '(omenite pot do datoteke)

filePath = Pot do mape & "*xls*"

Ime datoteke = Dir (pot do datoteke)

Dim LastrowSa Long, Lastcolumn As Long
Do While Ime datoteke ""

Delovni zvezki. Odprite (pot mape in ime datoteke)

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

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

Obseg (celice (2, 1), celice (zadnja stran, zadnji stolpec)). Kopiraj

Application.DisplayAlerts = Napačno

ActiveWorkbook.Zapri

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

ActiveSheet.Paste Destination: = Delovni listi ("List1"). Obseg (Celice (erow, 1), Cells (erow, 5))

Ime datoteke = Dir

Zanka

Application.DisplayAlerts = Res

End Sub

Razlaga kode: - Najprej bomo opredelili vse spremenljivke, ki jih moramo uporabiti pri opisovanju kode. Nato bomo uporabili zanko Do While v kodi za zagon programa za vse Excelove datoteke. Nato bomo določili pot datotek, nato pa še zadnjo vrstico in stolpec v Excelovem listu, nato pa bomo določili cilj, kamor bomo prilepili podatke.