如何使用预填充的默认文件名打开“另存为”对话框答案

【问题标题】：How to open Save As dialog with default filename pre-filled如何使用预填充的默认文件名打开“另存为”对话框
【发布时间】：2020-12-04 16:09:51
【问题描述】：

我目前正在使用以下自动将输出保存到指定文件。

ActiveWorkbook.SaveAs Filename:=FilePath & Range("E9") & " Perf Eval.xlsx", FileFormat:=xlOpenXMLWorkbook

我需要更改它以显示“另存为”对话框并预先填写文件名和扩展名，以便可以手动选择目录。我正在尝试使用Application.GetSaveAsFilename，它会显示未定义文件名或文件格式的对话框。如何让它预先填写文件名并设置文件格式？

我尝试使用如下所示的InitialFileName 参数，但它只是给我“预期的编译错误：=”

Application.GetSaveAsFilename (InitialFileName:=Range("E9") & " Perf Eval.xlsx")

【问题讨论】：

docs.microsoft.com/en-us/office/vba/api/…
我尝试使用 InitialFileName 参数，但我得到“预期：+”和Application.GetSaveAsFilename (InitialFileName:=Range("E9") & " Perf Eval.xlsx")
请用您尝试过的代码更新您的帖子 - 在 cmets 中很难阅读。
GetSaveAsFilename 不保存文件 - 它只是返回文件名/路径：您仍然需要执行 SaveAs

标签： vba

【解决方案1】：

Sub fileDialog()
Dim fd As Office.fileDialog
Dim strFile As String
Set fd = Application.fileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = "File Name"
If .Show = True Then
strFile = .SelectedItems(1)
End If
End With
End Sub

【讨论】：