Объединение таблиц Excel - VBA

Формулировка задачи:

Есть папка с однотипными таблицами, нужен макрос, который все таблицы объединит в 1 файл. Таблицы начинаются со 2 строки. (1-я шапка, ее переносить не надо) Есть такие, у кого завалялось подобное решение?

Решение задачи: «Объединение таблиц Excel»

textual
                            Листинг программы 
                        

                            Sub test() 
  Dim Folder As String 
  Dim wb As String 
  Dim objWb As Workbook 
  Dim workWb As Workbook 
  Dim i As Integer 
  Set workWb = ActiveWorkbook  'Запоминаем активную книгу 
  
  'Показываем диалог выбора папки 
  With Application.FileDialog(msoFileDialogFolderPicker) 
    .Title = "Выберите папку, файлы в которой нужно обработать" 
    .ButtonName = "Выбрать" 
    .AllowMultiSelect = False 
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub 
  End With 
  'Начинаем читать файлы из папки 
  wb = Dir(Folder & Application.PathSeparator & "*.xls") 
  While Len(wb) > 0 
    i = i + 1 
    wb = Folder & Application.PathSeparator & wb 
    Set objWb = Workbooks.Open(wb) 
    ' здесь код считывания нужной инфы
    objWb.Close False 
    wb = Dir 'читаем следующий файл 
  Wend
                        