Yhdistä useita laskentataulukoita yhdeksi

Tässä artikkelissa aiomme oppia keräämään tietoja eri työkirjoista VBA: n kautta Microsoft Excelissä.

Ymmärrämme yksinkertaisella harjoituksella, miten laskentataulukko yhdistetään Microsoft Excelin VBA: n kautta.

Meillä on 3 erilaista Excel -tiedostoa. 2 tiedostoa on xlsx ja yksi tiedosto xlsm kansioon. Haluamme koota molemmat tietojoukot Excel -tiedostossa pitääksemme muutamia asioita mielessä, että jokaisessa datassa rivejä ja sarakkeita voidaan lisätä ja pienentää, emmekä tiedä myöskään Excel -tiedostonimiä ja kuinka monta tiedostoa kansiossa on .

Tässä taulukossa haluamme yhdistää tiedot:-

1^st Tiedot:-

2^toinen Tiedot:-

3^rd Tiedot:-

Nyt haluamme koota tiedot taulukkoon. Meidän on noudatettava alla annettuja vaiheita ja koodia:-

Avaa näppäimistö Alt+F11 avataksesi VBE -sivun kirjoittaaksesi makron.
Siirry sitten välilehteen ja lisää moduuli.
Kirjoita alla mainittu koodi sivulle.

Alalajittelu_data ()

Dim FolderpathAs merkkijono, filePath merkkijonona, tiedostonimi merkkijonona

Folderpath = "E: \ Excel -vinkit \ Uudet VBA -aiheet \ HR Data \" ‘(mainitse tiedostopolku)

filePath = Kansion polku & "*xls*"

Tiedostonimi = Dir (filePath)

Dim Lastrow Niin kauan, viimeinen sarake niin kauan
Tee samalla Tiedostonimi ""

Avaa työkirjat (kansion polku ja tiedostonimi)

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

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

Alue (Solut (2, 1), Solut (Lastrow, Lastcolumn))

Application.DisplayAlerts = Väärä

ActiveWorkbook.Sulje

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

ActiveSheet.Paste Destination: = laskentataulukot ("Sheet1"). Alue (solut (erow, 1), solut (erow, 5))

Tiedostonimi = Ohj

Silmukka

Application.DisplayAlerts = Totta

End Sub

Koodin selitys: - Ensinnäkin määritämme kaikki muuttujat, joita meidän on käytettävä koodia kuvattaessa. Sitten käytämme Do while -silmukkaa koodin avulla ohjelman suorittamiseen kaikille Excel -tiedostoille. Sitten määritämme tiedostojen polun ja sen jälkeen määritämme Excel -taulukon viimeisen rivin ja sarakkeen ja määritämme sitten kohteen, johon tiedot liitetään.