Создать новую книгу

[Вадим12091965]

Привет. Создаю и сохраняю кнопкой новую книгу

 Workbooks.Add
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\User\Documents\Калькулятор\Расчеты\Noname1.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Можно ли как-то сохранять не прописывая дорогу с диска С, а сразу в Калькулятор\Расчеты\Noname1.xlsm ?
И как прописать копирование листа1 в книге 3.xlsm и вставить в лист1 книги Noname1.xlsm ?
Спасибо.

[Volodshan]

А если сначала лист скопировать в новую книгу, а затем уже ее сохранить как?

[Вадим12091965]

Все должно быть при нажатии на кнопку.

[kuklp]

Ну и делайте макросом то, что советует Volodshan.

[Вадим12091965]

Как будет выглядеть макрос? Я пытался записать макрос, но в итоге ничего не получилось. И как на счет сохранения напрямую в "Расчеты"?

[kuklp]

Сообщение от Вадим12091965

как на счет сохранения напрямую в "Расчеты"?

Как Вы это себе представляете? Не бывает на компе под ОС МС такого пути. Диск указывать обязательно. Можно делать относительную ссылку. Относительно главной книги, используя свойство thisworkbook.path.
А макрос будет простой.

sheets(name).copy
activeworkbook.saveas

и т.д.

[Вадим12091965]

Посмотрите пример. Поправьте нарастуху. Пробовал ваш код, но не получилось.

[kuklp]

Private Sub CommandButton1_Click()
    Sheets("Лист1").Copy
    With ActiveWorkbook
        .SaveAs "C:\Noname1.xlsm", xlOpenXMLWorkbookMacroEnabled
        .Close 0
    End With
End Sub

[Вадим12091965]

Спасибо за ответ, но снова не получается копирование. И еще,посмотрите, как записать переменную "х", чтобы текст TextBox1 был наименованием новой книги. С Const x= "число" получается, но мне нужно из TextBox1.
Спасибо.

[maksim_serg]

.SaveAs TextBox1.Text, xlOpenXMLWorkbookMacroEnabled