如何在excel VBA中获取保存文件的路径和名称？

Posted 2023-04-19

【中文标题】如何在excel VBA中获取保存文件的路径和名称？

【英文标题】：How to get path and name of the saved file in excel VBA?

【发布时间】：2015-07-24 16:57:47

【问题描述】：

我正在使用以下代码保存文件，但我无法获取保存的文件路径和名称。

有没有办法获取这些详细信息？

Sub Test3()

On Error Resume Next
Dim FileSelected As String
Dim strPath As String

FileSelected = Application.Dialogs(xlDialogSaveAs).Show

If Not FileSelected <> "False" Then
MsgBox "You have cancelled"
Exit Sub
End If

If FileSelected <> "False" Then
strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
    'displays the result in a message box
Call MsgBox(strPath, vbInformation, "Save Path")
Exit Sub
End If

End Sub

【参考方案1】：

尝试使用Application.GetSaveAsFilename。创建一个Variant 变量，并在保存后将其设置为Application.GetSaveAsFilename。