Есть программа которая каждый день создает отчет в екселевском формате примерно с таким названием "отчет 20.08.2020_19.35.xlsx". Этот отчет надобно немного привести к более красивому виду и вставить шапку с названием организации из другого файла.
Сделал я макрос который все это делает, но вот проблема, при создании макроса учитывается имя файла в котором создается макрос, и этот макрос не работает уже если файл в котором он применяется называется по другому. А в следующий день он естественно будет называться по другому.
Сейчас я просто сделал макрос в файле с именем 1.xlsx и перед запуском макроса тупо вручную переименовываю файл в 1.xlsx и применяю макрос, что как вы понимаете не по фэншую.
Но может можно сделать так, чтоб макрос работал с любым именем файла?
Ниже краткий пример такого макроса.
| Код: выделить все
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Workbooks.Open Filename:="C:\Users\User\Desktop\другой файл.xlsx"
Range("C4:H12").Select
Selection.Copy
Windows("отчет 20.08.2020_19.35.xlsx").Activate
ActiveSheet.Paste
Range("K21").Select
ActiveWindow.Close
End Sub
|
Если есть гуру VBA дайте совет пжл.
