Доброго времени суток.
Суть в том, что у меня есть макрос, который работает с тремя книгами одновременно. Одна из этих книг - шаблон, куда вставляются данные из первой книги. После вставки, я сохраняю книгу с названием сегодняшней даты. Т.е. название книги меняется, но мне всё ещё нужно переключаться в эту книгу.
Вот не могу понять, как задать переменную для этой книги.. Потому что у книги каждый день будет другое название.
Накидал код, для примера, то как я пытался это сделать, ничего не получилось. Подскажите, пожалуйста, если кто-нибудь сталкивался с подобным
Код |
---|
Dim p As Workbook iPath = ThisWorkbook.Path & "\" iFilename = Format(Date, "yyyy/mm/dd") + ".xlsm" Range("A1").Copy Workbooks.Open Filename:=("P:\ver.1.1\2.xlsx") Sheets(1).Activate Range("a1").PasteSpecial ThisWorkbook.SaveAs (iPath + iFilename) Workbooks("2.xlsx").Activate Sheets(1).Activate Range("A1").Copy Set p = Workbooks.Open("P:\ver.1.1\" & Format(Date, "yyyy/mm/dd") & ".xlsm") p.Sheets(1).Activate Range("A2").PasteSpecial |