Уважаемые форумчане, поправьте пожалуйста!
Пытаюсь создать новую книгу в текущей папке и переименовать ее с префиксом.
Не хочет присваивать имя.
Пытаюсь создать новую книгу в текущей папке и переименовать ее с префиксом.
Не хочет присваивать имя.
Код |
---|
Sub create() Dim w As String Set w = ActiveWorkbook.Name Workbooks.Add (1) With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path & "\МСК_" & w & ".xls" End With End Sub |