Автоматически открывать папку после сохранения excel vba

Question

ниже - мой код для файла, который будет сохранен в конкретной папке. мой вопрос в том, как я могу сделать папку местоположения открыта автоматически после сохранения. Я google о «aftersave event», но ничего не вышло.

Private Sub savebr_Click() 

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

End Sub 

Answer 1

Thisworkbook.path открывать каждый раз, когда путь же рабочей книги (т.е. макрос путь к файлу)

Если ваш добавляете много книг Excel и сохраните его на другом пути и выбери , чтобы открыть этот путь, чтобы использовать код ниже.

Не обязательно использовать событие для этого, вы можете просто написать код после сохранения книги.

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

Answer 2

Итак, вы хотите открыть папку, в которой текущая книга была сохранена автоматически после сохранения. Вставьте этот код в код ThisWorkbook в VB Editor

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