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

下面是我的代码，将文件保存到特定的文件夹。 我的问题是如何使保存完成后，该位置的文件夹自动打开。 我谷歌关于“余波事件”，但没有出来。

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

Answer 1

此工作簿path每次打开相同的工作簿path（即您的macros文件path）

如果您正在添加许多Excel工作簿，并将其保存在不同的path，并希望打开这个path，所以你应该使用下面的代码。

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

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

Answer 2

所以你想打开当前工作簿保存后自动保存的文件夹。 将此代码粘贴到VB编辑器中的ThisWorkbook代码中

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