时间戳

首页 > 解决方案 > 文档文件夹中的“另存为”对话框默认设置

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

问题描述

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

所以我创建了一个另存为对话框，以特定名称保存文件（.show属性后面的参数只是文件名的不同部分）。

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

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

标签： excelvba

解决方案

尝试这个：

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

推荐阅读