Сохранить как для запроса местоположения, но использовать имя файла из ячейки

Question

Я получил этот код с форума, и он работает, но мне нужно настроить его, чтобы показать окно «сохранить как», но я с именем, уже заполненным моей переменной FName.

Может ли кто-нибудь помочь мне с этим?

Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub

Answer 1

Вы можете использовать метод Application.GetSaveAsFilename для этого…

Option Explicit

Sub Save_New()
    Dim FName As String
    FName = Sheets("Sheet1").Range("A1").Text

    Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
    DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)

    If Not DialogResult = False Then
        ThisWorkbook.SaveAs Filename:=DialogResult
    Else
        'user clicked cancel
    End If
End Sub