保存excel vba后自动打开文件夹
保存excel vba后自动打开文件夹
提问于 2017-01-05 19:32:53
下面是保存到特定文件夹的文件的代码。我的问题是如何使文件夹的位置是自动打开后，保存完成。我搜索“事后保存事件”，但什么也没有出来。
Private Sub savebr_Click()
Dim saveas As String
saveas = "C:\user\file"
Application.Dialogs(xlDialogSaveAs).Show saveas
End Sub回答 2
Stack Overflow用户
回答已采纳
发布于 2017-01-05 22:40:56
Thisworkbook.path每次打开相同的工作簿路径(即宏文件路径)
如果您要添加许多excel工作簿，并将其保存在不同的路径上，并希望打开此路径，则应使用下面的代码。
不必为此使用事件，只需在保存工作簿后编写代码即可。
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call Shell("explorer.exe" & " " & Activeworkbook.Path, vbNormalFocus)
End subStack Overflow用户
发布于 2017-01-05 21:15:41
因此，您希望打开保存后自动保存当前工作簿的文件夹。将此代码粘贴到VB编辑器中的ThisWorkbook代码中
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call Shell("explorer.exe" & " " & ThisWorkbook.Path, vbNormalFocus)
End Sub
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/41498496
复制相关文章
相似问题
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
