Необходимо доработать макрос, который создает шаблон

[Androgen13]

Есть макрос, который создает заданный шаблон. После отработки хочу чтобы он выдавал мне окно с предложением "сохранить файл как" с:
- заранее установленным типом файла .xlsx
- в заранее установленную папку, допустим "C:\Documents and Settings\APankin\Мои документы\Клиенты" (имя и конечную подпапку в предлагаемой директории я выберу сам)
- после отработки скрипта код VBA в конечном (НЕ ИСХОДНОМ) файле хотелось бы, чтобы автоматически удалялся. Так как на данный момент когда я делаю "Сохранить как" (вручную) он выводит мне окно (см. картинку во вложении), которое мне мешает

[doober]

Private Sub M_Save_As()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\12.xlsx", 51
Application.DisplayAlerts = True
End Sub

[Androgen13]

Спасибо. Но я хотел бы сохранять файл через форму "Сохранить как" в заранее заданном месте и с именем которое задам я

[IgorGO]

Sub SaveAsDialog()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    fd.InitialFileName = "c:\temp\xl\"
    If fd.Show = -1 Then
      MsgBox "Saved as: " & ThisWorkbook.FullName
    End If
    Set fd = Nothing
End Sub

[Androgen13]

К сожалению не сохраняется файл. Все проходит нормально, выскакивает окно "Сохранить как" жму сохранить, но файла в папке потом НЕТ. Пробовал и на работе и дома. В чем может быть дело?

[IgorGO]

и не удивительно. там нет команд сохранить...

Сохранить как" в заранее заданном месте и с именем которое задам я

Вам предоставлена возможность выбрать место и имя?
строку сохранить вы сами не можете написать?
ThisWorkbook.SaveAs fd.SelectedItems(1)
возможно файл закрыть надо?

[Androgen13]

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

[Hugo121]

Если посмотреть на алгоритм - макрос может быть в одном файле, а создавать шаблон можно в другом/новом файле, где нет никаких макросов. И тогда не будет этой проблемы при сохранении этого шаблона.

[Androgen13]

Сообщение от Hugo121

Если посмотреть на алгоритм - макрос может быть в одном файле, а создавать шаблон можно в другом/новом файле, где нет никаких макросов. И тогда не будет этой проблемы при сохранении этого шаблона.

Как это сделать?

[IgorGO]

Нужная Вам строка уже было приведена в предыдущем ответе. оставалось заменить бесполезное сообщение на полезные действия.

Sub SaveAsDialog()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    fd.InitialFileName = "c:\temp\xl\"
    If fd.Show = -1 Then
      ThisWorkbook.SaveAs fd.SelectedItems(1)
    End If
    Set fd = Nothing
End Sub

Удачи!