Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание новой книги макросом
 
#1
14.12.2018 21:05:16
Уважаемые форумчане, поправьте пожалуйста!

Пытаюсь создать новую книгу в текущей папке и переименовать ее с префиксом.
Не хочет присваивать имя.
Код
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
 
 
 
#2
14.12.2018 21:08:05
Код
w = ActiveWorkbook.Name
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
14.12.2018 21:09:32
Поменяйте:
Код
w = ActiveWorkbook.Name
 
 
 
#4
14.12.2018 21:10:57
Цитата
макросос
:D
По вопросам из тем форума, личку не читаю.
 
 
 
#5
14.12.2018 21:11:28
Может как-то так:
Код
Sub CreateNewBook()
    Dim NewWorkBook As Workbook
    Set NewWorkBook = Workbooks.Add
    NewWorkBook.Windows(1).Caption = "MyBook"
    NewWorkBook.SaveAs ("D:\MyBook.xls")
End Sub
 
 
 
#6
14.12.2018 21:12:14
Хмм... Name возвращает имя с расширением(( а как от этого избавиться?
 
 
 
#7
14.12.2018 21:29:10
Код
w = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
14.12.2018 21:29:33
Код
w = Split(ActiveWorkbook.Name, ".")(0)
 
 
 
#9
14.12.2018 21:29:52
Оно, спасибо)
 
 
 
#10
14.12.2018 21:30:50
макросос от медведя  
Код
w= left(ActiveWorkbook.Name,instrrev(ActiveWorkbook.Name,".")-1)
:-)
По вопросам из тем форума, личку не читаю.
 
 
 
#11
14.12.2018 21:56:45
Юрий М, разделит имя, если точки будут. Точку лучше искать с помощью InStrRev
 
 
 
#12
14.12.2018 21:58:29
Согласен.
 
 
 
Страницы: 1
Наверх