Страницы: 1
RSS
Задать переменную для книги с неопределённым названием
 
Доброго времени суток.

Суть в том, что у меня есть макрос, который работает с тремя книгами одновременно. Одна из этих книг - шаблон, куда вставляются данные из первой книги. После вставки, я сохраняю книгу с названием сегодняшней даты. Т.е. название книги меняется, но мне всё ещё нужно переключаться в эту книгу.

Вот не могу понять, как задать переменную для этой книги.. Потому что у книги каждый день будет другое название.

Накидал код, для примера, то как я пытался это сделать, ничего не получилось. Подскажите, пожалуйста, если кто-нибудь сталкивался с подобным

Код
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

Страницы: 1
Наверх