151 читали · 6 месяцев назад
Как объединить несколько файлов Excel в один.
Очень часто мы сами себе усложняем работу, создавая десятки различных файлов, содержащих различные анализы, таблицы и другие необходимые рабочие данные. Затем начинаем вспоминать где они у нас все хранятся, начинаем судорожно искать их по всему компьютеру, а найдя начинаем сравнивать их между собой, чтобы сделать какой-либо обобщенный анализ, включающий данные из этих файлов. Выполнив нужную работу и дав себе зарок навести наконец-то порядок в компьютере успешно скоро об этом забываем до следующего подобного случая...
542 читали · 11 месяцев назад
Как объединить несколько файлов Excel в одну таблицу (код макроса)
По многочисленным просьбам выкладываю ниже текст макроса из видео https://rutube.ru/video/5833afc53fb0b88a602a420a0630a372/ Sub Обработчик() ' ' Обработчик Макрос ' ' Dim sFolder As String, sFiles As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) sFiles = Dir(sFolder & "*.xls*") Application.ScreenUpdating = False Do While sFiles <> "" Workbooks.Open sFolder & sFiles Rows("1:3")...