另存为提示位置但使用单元格中的文件名

Posted 2023-05-07

【中文标题】另存为提示位置但使用单元格中的文件名

【英文标题】：Save As To Prompt For Location But Use Filename From Cell

【发布时间】：2018-11-16 13:21:31

【问题描述】：

我从论坛获得了这段代码，它可以工作，但我需要调整它以显示“另存为”框，但我的名称已经填充了我的变量 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

【参考方案1】：

您可以为此使用Application.GetSaveAsFilename method……

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

【讨论】：

感谢代码，但出现错误“编译错误：未找到命名参数”代码停在代码的 (InitialFilename:=FName) 部分

@MEC 抱歉打错了：InitialFilaname 当然应该是 InitialFilename。修好了。

天啊，我也没有注意到，像冠军一样工作，谢谢