Vba 宏到"；另存为；唐'；t打开保存的文档

我有以下宏“另存为”excel文档的副本

Sub STEP3SaveAs()
    Application.GetSaveAsFilename
End Sub

但是，每次我“另存为”时，我都会登陆我刚保存的文档

我需要一个宏的帮助，该宏将“另存为”，并将我留在我正在处理的文档上

---

我们将非常感谢您的帮助

您可以执行两次

.SaveAs

，这样它将返回原始工作簿。

thiswook.FullName

是获取路径的一种方法：

Sub TestMe()

    Dim saveName As String
    Dim oldName  As String

    With ThisWorkbook
        oldName = .FullName
        saveName = Application.GetSaveAsFilename            
        .SaveAs saveName
        .SaveAs oldName
    End With

End Sub

---

这里的问题是

GetSaveAsFilename

根本不保存。这只是显示一个选择文件名的对话框，但不保存它

您可以使用保存实际工作簿的副本

Public Sub SaveCopy()
    Dim Filename As String
    Filename = Application.GetSaveAsFilename 'choose filename

    ThisWorkbook.SaveCopyAs(Filename)
End Sub

---

将快速测试此项并返回。提前谢谢。