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

Question

下面是我将文件保存到特定文件夹的代码。 我的问题是保存完成后如何使该位置的文件夹自动打开。 我用谷歌搜索“后保存事件”，但没有结果。

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