从单元打开文件path的保存窗口，从单元填充文件名

我需要一个简单的代码，它将从单元格的文件位置打开保存窗口，并从单元格填充文件名，保存窗口打开，因此您可以在单击保存之前编辑path或文件名，如果需要的话

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

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

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

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

Answer 1

这将在Sheet(1)上获取单元格A1文件名和单元格A2path。 确保path格式为C:\Users\name\记住，以确保path后面有一个反斜杠\ 。

 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