从单元格的文件路径中打开保存窗口并从单元格填充文件名

【问题标题】：Open save window in file path from cell and populate filename from cell从单元格的文件路径中打开保存窗口并从单元格填充文件名
【发布时间】：2016-03-03 09:52:24
【问题描述】：

我需要一个简单的代码，它将在单元格的文件位置打开保存窗口，并从单元格填充文件名，使保存窗口保持打开状态，以便您可以在需要时在单击保存之前编辑路径或文件名是

我正在使用此代码，但它只填充文件名

Application.Dialogs(xlDialogSaveAs).Show Range("A3").Text & "- (Submittal)" & ".xlsx"

我希望它也可以在单元格“A2”的文件路径中打开保存窗口

我也不知道这是否重要，但这将在以前从未保存过的工作簿上运行

【问题讨论】：

通过输入框提示输入文件名和路径，然后使用workbooks.saveas?

标签： vba excel

【解决方案1】：

这将从A1 的单元格获取文件名，并从A2 的单元格获取路径Sheet(1)。确保路径格式为C:\Users\name\，记得确保路径后有反斜杠\。

Sub SaveAs()
Dim fPth As Object
Dim Path As String
Path = Sheets(1).Range("A2").Text
fileName = Sheets(1).Range("A1").Text
Set fPth = Application.FileDialog(msoFileDialogSaveAs)

        With fPth
            .InitialFileName = Path & fileName & ".xlsx"
            .Title = "Save your File"
            .InitialView = msoFileDialogViewList
            .Show
        End With

End Sub

【讨论】：

这似乎可以正常工作，但我无法在我保存它的位置找到从您的代码中保存的文件。
我不确定我是否做错了什么，但是当它保存时，让我们对桌面说文件永远不会显示在桌面上，但是当我右键单击 Excel 时，它在最近的工作簿下，但是它说它不可用并且可能已被删除