Czasami musimy połączyć arkusze z różnych skoroszytów programu Excel, aby utworzyć nowy raport lub skonsolidowany plik danych. Taką operację można wykonać ręcznie, przy użyciu standardowych narzędzi MS Excel, ale może to zająć dużo czasu i wysiłku. Zastanówmy się, jak możemy zautomatyzować ten proces i przyspieszyć pracę z raportami.
Na przykład mamy wiele skoroszytów Excel i chcemy zebrać arkusze ze wszystkich skoroszytów w jednym pliku. Aby to zrobić, otwórz skoroszyt, w którym chcesz zebrać wszystkie arkusze i dodaj następujący kod makra.
Mając otwarty skoroszyt Excel, w którym chcesz zebrać wszystkie arkusze, otwórz Visual Basic Editor (Alt+F11), wstaw moduł VBA (Insert - Module) i skopiuj tam ten kod makra:
Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Files to Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "Nie wybrano żadnego pliku!" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub
Następnie możesz wrócić do Excel i uruchomić nasze makro poprzez menu Tools - Macro - Macros (Alt+F8). Pojawi się okno dialogowe, w którym należy wybrać jeden lub więcej (przytrzymując klawisz Ctrl) plików, których arkusze chcemy dodać do bieżącego skoroszytu.
Jeśli używasz innego rozszerzenia pliku Excel (na przykład *.xlsx, *.xlsm, *.xlsb itp.), to konieczne będzie wprowadzenie odpowiednich zmian w dziewiątej linii kodu w naszym makrze.