Сохранение с запросом

[Ogo10]

Доброго времени!
Подскажите как вывести стандартное окно виндовс "Сохранить как" с помощю VBA?

[Krasnaja Shapka]

например, юзая

Код: Выделить всё

Application.FileDialog(msoFileDialogSaveAs)

[bi-lya]

Например так

Код: Выделить всё

Dim dlgFolderPicker As FileDialog
Dim fdf As FileDialogFilter

Set dlgFolderPicker = Application.FileDialog(msoFileDialogSaveAs)

With dlgFolderPicker
    .AllowMultiSelect = False
    .ButtonName = "Сохранить"
    .FilterIndex = 1
    '.InitialFileName = путь к папке, можно не задавать - будет выдавать "Мои Документы"
    If .Show = -1 Then
        Tropa = .SelectedItems(1) ' путь к указанному документу
    Else
        Exit Sub
    End If
End With

Set dlgFolderPicker = Nothing


[Ogo10]

Спасибо!

[Ogo10]

Например так

Код: Выделить всё

Dim dlgFolderPicker As FileDialog
Dim fdf As FileDialogFilter

Set dlgFolderPicker = Application.FileDialog(msoFileDialogSaveAs)

With dlgFolderPicker
    .AllowMultiSelect = False
    .ButtonName = "Сохранить"
    .FilterIndex = 1
    '.InitialFileName = путь к папке, можно не задавать - будет выдавать "Мои Документы"
    If .Show = -1 Then
        Tropa = .SelectedItems(1) ' путь к указанному документу
    Else
        Exit Sub
    End If
End With

Set dlgFolderPicker = Nothing


Все замечательно, форма открывается, указваю место, нажимаю сохранить, и ничего не происходит. Как сохранить файл, с именем введенным через эту форму.

[bi-lya]

Ну наверное использовать какой-нибудь SaveAs... Полное имя файла у нас есть, =>

Код: Выделить всё

ActiveWorkbook.SaveAs Filename:=tropa


[Ogo10]

Ну наверное использовать какой-нибудь SaveAs... Полное имя файла у нас есть, =>

Код: Выделить всё

ActiveWorkbook.SaveAs Filename:=tropa


Спасибо!
Ступил я.