Question

我有一个报告，其中允许多个用户生成特定版本，然后保存文件，但我不希望他们覆盖主文件。

因此，我创建了一个另存为对话框，用于保存具有特定名称的文件（.show属性之后的参数只是文件名的不同部分）。

但是该对话框允许用户将文件保存在默认情况下具有主文件的同一文件夹中，并且我想将其更改为默认情况下提供的Documents文件夹。有办法改变吗？

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

“另存为”对话框在文档文件夹中的默认设置

1 个答案: