Классический форум-трекер
canvas not supported
Нас вместе: 4 171 139

Вопрос для понимающих в VBA.


 
 
RSS
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Интернет и Разное -> Для открывших Интернет
Автор Сообщение
дед Пихто ®
Стаж: 14 лет
Сообщений: 266
Ratio: 126.929
Раздал: 18.05 TB
Поблагодарили: 9461
100%
ussr.gif
Есть программа которая каждый день создает отчет в екселевском формате примерно с таким названием "отчет 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 дайте совет пжл.
дед Пихто ®
Стаж: 14 лет
Сообщений: 266
Ratio: 126.929
Раздал: 18.05 TB
Поблагодарили: 9461
100%
ussr.gif
Все разобрался сам.
Если записать макрос чуть по другому, то в коде не прописывается эта " Windows("отчет 20.08.2020_19.35.xlsx").Activate" строка. Соответственно и макросу пофиг как называется файл.
Показать сообщения:   
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Интернет и Разное -> Для открывших Интернет Часовой пояс: GMT + 3
Страница 1 из 1