Apvienojiet vairākas darblapas vienā

Šajā rakstā mēs uzzināsim, kā apkopot datus no dažādām darbgrāmatām, izmantojot Microsoft Excel VBA.

Ar vienkāršu vingrinājumu sapratīsim, kā Microsoft Excel apvienot izklājlapu, izmantojot VBA.

Mums ir 3 dažādi Excel faili. 2 faili ir mapē xlsx, bet viens fails - xlsm. Mēs vēlamies apkopot abas datu kopas Excel failā, lai paturētu prātā, ka visos datos rindas un kolonnas var palielināt un samazināt, kā arī mēs nezinām Excel failu nosaukumus un to, cik failu ir mapē .

Šajā lapā mēs vēlamies apvienot datus:-

1^st Dati:-

2^nd Dati:-

3^rd Dati:-

Tagad mēs vēlamies apkopot datus lapā. Mums ir jāievēro tālāk norādītās darbības un kods:-

Nospiediet taustiņu Alt+F11, lai atvērtu VBE lapu makro rakstīšanai.
Pēc tam dodieties uz cilni Ievietot un ievietojiet moduli.
Lapā ierakstiet zemāk minēto kodu.

Apakššķirot_datus ()

Dim FolderpathAs virkne, filePath kā virkne, faila nosaukums kā virkne

Folderpath = "E: \ Excel padomi \ Jaunas VBA tēmas \ HR dati \" ‘(miniet faila ceļu)

filePath = Folderpath & "*xls*"

Faila nosaukums = Dir (filePath)

Dim Lastrow Tik ilgi, pēdējā kolonna tik ilgi
Darīt, kamēr faila nosaukums ""

Darbgrāmatas. Atvērt (mapes ceļš un faila nosaukums)

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

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

Diapazons (šūnas (2, 1), šūnas (pēdējā, pēdējā kolonna)). Kopēt

Application.DisplayAlerts = Nepareizi

ActiveWorkbook. Aizvērt

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

ActiveSheet.Paste galamērķis: = darblapas ("Sheet1"). Diapazons (šūnas (erow, 1), šūnas (erow, 5))

Faila nosaukums = Rež

Cilpa

Application.DisplayAlerts = Patiesa

Beigt apakš

Koda skaidrojums: - Pirmkārt, mēs definēsim visus mainīgos, kas mums jāizmanto, aprakstot kodu. Tad mēs izmantosim Do Do cilpu, lai palaistu programmu visiem Excel failiem. Tad mēs definēsim failu ceļu, un pēc tam mēs definēsim pēdējo rindu un kolonnu Excel lapā, un pēc tam mēs definēsim datu ielīmēšanas galamērķi.