Połącz wiele arkuszy roboczych w jeden

W tym artykule dowiemy się, jak gromadzić dane z różnych skoroszytów za pomocą VBA w programie Microsoft Excel.

Za pomocą prostego ćwiczenia zrozummy, jak połączyć arkusz kalkulacyjny za pomocą VBA w programie Microsoft Excel.

Mamy 3 różne pliki Excela. 2 pliki są do xlsx i jeden plik do xlsm w folderze. Chcemy zestawić oba zestawy danych w pliku Excel, aby pamiętać o kilku rzeczach, że w każdej danych wiersze i kolumny można zwiększać i zmniejszać, a także nie znamy nazw plików Excel i ile plików znajduje się w folderze .

W tym arkuszu chcemy połączyć dane:-

1^NS Dane:-

2^NS Dane:-

3^{r & D} Dane:-

Teraz chcemy zestawić dane w arkuszu. Musimy wykonać poniższe kroki i kod:-

Naciśnij klawisz Alt + F11, aby otworzyć stronę VBE i napisać makro.
Następnie przejdź do zakładki wstaw i wstaw moduł.
Napisz poniżej wspomniany kod na stronie.

Posortuj podrzędne_dane()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = „E:\Excel Tips\New VBA topic\HR Data\” (podaj ścieżkę pliku)

filePath = Ścieżka do folderu& "*xls*"

Nazwa pliku = Dir(ścieżka pliku)

Dim LastrowAs Long, Lastcolumn As Long
Zrób, gdy nazwa pliku „”

Workbooks.Open (ścieżka folderu i nazwa pliku)

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

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

Zakres (komórki (2, 1), komórki (Lastrow, ostatnia kolumna)). Kopiuj

Application.DisplayAlerts = False

ActiveWorkbook.Zamknij

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

ActiveSheet.Paste Destination:=Worksheets("Arkusz1").Range(Komórki(erow, 1), Komórki(erow, 5))

Nazwa pliku = Dir

Pętla

Application.DisplayAlerts = Prawda

Napis końcowy

Objaśnienie kodu: - Najpierw zdefiniujemy wszystkie zmienne, których musimy użyć przy opisie kodu. Następnie użyjemy pętli Do While w kodzie, aby uruchomić program dla wszystkich plików Excela. Następnie zdefiniujemy ścieżkę plików, a następnie zdefiniujemy ostatni wiersz i kolumnę w arkuszu Excel, a następnie określimy miejsce wklejenia danych.