保存excel vba后自动打开文件夹

Question

下面是我保存到特定文件夹的文件的代码。我的问题是如何在保存完成后自动打开该位置的文件夹。我谷歌关于＆＃34; aftersave event＆＃34;但没有出来。

Private Sub savebr_Click()

Dim saveas As String
saveas = "C:\user\file"
Application.Dialogs(xlDialogSaveAs).Show saveas

End Sub

Answer 1

因此，您希望在保存后自动打开保存当前工作簿的文件夹。将此代码粘贴到VB编辑器中的ThisWorkbook代码中

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Call Shell("explorer.exe" & " " & ThisWorkbook.Path, vbNormalFocus)
End Sub

Answer 2

Thisworkbook.path每次都打开相同的工作簿路径（即你的宏文件路径）

如果您要添加许多Excel工作簿并将其保存在不同的路径上并且需要 要打开此路径，您应该使用下面的代码。

没有必要为此使用事件，您可以在保存工作簿后简单地编写代码。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Call Shell("explorer.exe" & " " & Activeworkbook.Path, vbNormalFocus)
End sub