Для визуализации примера имеется код:
Код |
---|
Sub Макрос1() ' ' Макрос1 Макрос ' Workbooks.Open Filename:="D:\10.07.2019\dead10.07.2019.xlsx" Range("A5:B6").Select Selection.Copy Windows("test1.xlsm").Activate ActiveSheet.Paste Workbooks.Open Filename:="D:\10.07.2019\rip10.07.2019.xlsx" Range("A1:B4").Select Selection.Copy Windows("test1.xlsm").Activate ActiveSheet.Paste Workbooks.Open Filename:="D:\10.07.2019\skull10.07.2019.xlsx" Range("A2:B5").Select Selection.Copy Windows("test1.xlsm").Activate ActiveSheet.Paste End Sub |
Обыскал весь интернет и форум данного сайта - решение не нашел.
Дело в том, что необходимо открывать файлы каждый день, копировать из них содержимое и вставлять в какой-то файл. Все наименования файлов приведены условные.
Экспериментальным методом выявил, что файлы открываются макросом, только если указан точный путь. Дата в названии папки соответствует дате в названии файла.
Суть задачи в том, что даты изменяются. Приходится каждый раз открывать макрос, заменять даты на требуемые и потом уже выполнять макрос.
Задача: возможна ли замена кода (дат) непосредственно из листа (не открывая макрос)?
Т.е., например, создать выпадающий список с датами, к ним привязать флажки (из элемента управления формы), а уже к ним макросы (в которых будут заменяться даты) (примерно как на скрине). Или есть более простой способ, который я не вижу?
Буду благодарен любым комментариям и рассуждениям.