Диалог Сохранить как по умолчанию в папке документов

Question

У меня есть отчет, в котором я разрешаю нескольким пользователям создавать свою конкретную версию, а затем сохранять файл, но я не хочу, чтобы они перезаписывали мой главный файл.

Итак, я создал диалоговое окно сохранения как, которое сохраняет файл с определенным именем (параметры после свойства .show - это просто разные части имени файла).

Но диалоговое окно позволяет пользователям сохранить файл в той же папке. У меня есть мастер-файл по умолчанию, и я бы хотел изменить его на по умолчанию, предлагая папку «Документы». Есть ли способ изменить это?

Application.Dialogs(xlDialogSaveAs).Show FYandQName & " " & _
    CountryName & " " & BusValue & " " & "Financial Narratives"

Answer 1

Попробуйте это:

Dim s As String
'assuming an .xlsx file
s = FYandQName & " " & CountryName & " " & BusValue & " " & "Financial Narratives.xlsx"
With Application.FileDialog(msoFileDialogSaveAs) 
        .InitialFileName = Environ$("USERPROFILE") & "\Documents\" & s
        .Show
        .Execute
End With