首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Excel VBA常用功能加载宏——打开活动工作簿所在文件夹

Excel VBA常用功能加载宏——打开活动工作簿所在文件夹

作者头像
xyj
发布2020-07-28 14:29:14
2.2K0
发布2020-07-28 14:29:14
举报
文章被收录于专栏:VBA 学习VBA 学习

我们在使用电脑的时候,如果打开的窗口太多,任务栏会比较混乱,一般我们就会关闭一些不需要的窗口,比如文件夹等。

在使用Excel的时候,偶尔我们又需要打开一些工作簿的所在文件夹去操作,这时候找起来可能就有点麻烦了。

在VBA里使用过Workbook对象就能知道,调用Path属性就能获取到工作簿所在的文件夹,所以,使用VBA就可以快速打开活动工作簿所在的文件夹:

首先在customUI.xml中增加代码:

      <button id="rbbtnOpenActiveWbPath" label="打开文件夹" size="large" onAction="rbbtnOpenActiveWbPath" imageMso="FileOpen" supertip="打开活动工作簿所在的文件夹。"/>

回调函数:

Sub rbbtnOpenActiveWbPath(control As IRibbonControl)
    Call MShtWk.OpenActiveWbPath
End Sub

函数实现:

Sub OpenActiveWbPath()
    Dim Path As String
    
    Path = ActiveWorkbook.Path
    Path = """" & Path & """"
    VBA.Shell "cmd.exe /c explorer " & Path, vbNormalFocus
End Sub

函数比较简单,就是获取活动工作簿的Path,然后调用Shell执行cmd命令。

所以程序运行会弹出一个黑窗口,那个就cmd的窗口。

路径有空格的时候我记得是会出问题的,可能原来是XP系统,我电脑WIN7系统测试没有出问题。

Path的前后连接英文状态的双引号目的是为了避免路径有空格的问题。

本文参与 腾讯云自媒体分享计划,分享自微信公众号。
原始发表:2020-07-12,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 VBA 学习 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
相关产品与服务
命令行工具
腾讯云命令行工具 TCCLI 是管理腾讯云资源的统一工具。使用腾讯云命令行工具,您可以快速调用腾讯云 API 来管理您的腾讯云资源。此外,您还可以基于腾讯云的命令行工具来做自动化和脚本处理,以更多样的方式进行组合和重用。
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档