保存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