Как получить путь и имя сохраненного файла в excel VBA?

Question

Я использую следующий код для сохранения файла, но я не могу получить путь и имя сохраненного файла.

Есть ли способ получить эти детали?

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 

Answer 1

Попробуйте использовать Application.GetSaveAsFilename. Создайте переменную Variant и установите ее на Application.GetSaveAsFilename после сохранения.