Доброе время суток. Есть книга, в ячейке А1 значение.
Запускаю макрос, создается новая книга сохраняется по пути D:\test, присваивается имя 1.xls и закрывается.
Проблема в следующем, как переписать макрос, чтобы новая книга сохранялась с названием как в ячейке А1 книги, с которой запускается макрос?
Заранее спасибо!
Код |
---|
Sub New2() Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs ("D:\test" & "1" & ".xls") New_Wb.Close End Sub |
Проблема в следующем, как переписать макрос, чтобы новая книга сохранялась с названием как в ячейке А1 книги, с которой запускается макрос?
Заранее спасибо!