Очень часто мы сами себе усложняем работу, создавая десятки различных файлов, содержащих различные анализы, таблицы и другие необходимые рабочие данные. Затем начинаем вспоминать где они у нас все хранятся, начинаем судорожно искать их по всему компьютеру, а найдя начинаем сравнивать их между собой, чтобы сделать какой-либо обобщенный анализ, включающий данные из этих файлов. Выполнив нужную работу и дав себе зарок навести наконец-то порядок в компьютере успешно скоро об этом забываем до следующего подобного случая...
По многочисленным просьбам выкладываю ниже текст макроса из видео 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")...