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

Question

我需要一个简单的代码，它会在单元格的文件位置打开保存窗口，并从单元格中填充文件名，保留窗口打开，这样您就可以在单击“保存”之前编辑路径或文件名。是

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

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

我希望它还可以从单元格“A2”

打开文件路径中的保存窗口

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

Answer 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