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

Excel 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的前后连接英文状态的双引号目的是为了避免路径有空格的问题。

本文分享自微信公众号 - VBA 学习(xyjvba),作者:熊业军

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2020-07-12

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 常用功能加载宏——一个工作簿的工作表另存为工作簿

    前面实现了多个工作簿和合并到一个工作簿的功能,反过来,将一个工作簿里的工作表,另存为多个工作簿,然后分发给不同的人,应该也是经常会碰到的。让我们看看使用VBA如...

    xyj
  • 常用功能加载宏——单元格数据连接

    经常用Excel的人,应该会经常需要把Excel里的数据复制到Word等其他软件中,复制过去经常会碰上格式上的问题。

    xyj
  • Excel VBA事件——Workbook

    这两个事件在Office2007版本之前使用应该还是比较多的,那时候还没有Ribbon菜单,菜单是下拉式的,也就是和VBA编辑器菜单是一样的。

    xyj
  • [Java拾遗二]Tomact及Http 部分总结.

    一枝花算不算浪漫
  • <自动化办公> Python 操控 Word

    虽然Word不好用, 但还必须得用它, python-docx是专门用于编辑Word文档的一个工具库, 它有两大用途, 自动化生成word文档 and 自动化...

    zhaoolee
  • GCAC31 8.13 A fun application: proofs of work

    参考资料:https://zh.wikipedia.org/zh-cn/%E5%B7%A5%E4%BD%9C%E9%87%8F%E8%AD%89%E6%98%8...

    安包
  • 对称加密和解密

    .NET提供了一组类型来实现对称加密和解密。这些类型拥有共同的基类SymmetricAlgorithm,如图所示。

    小蜜蜂
  • 解决Entity Framework查询匿名对象后的跨域访问的一种方式

    在Entity Framework中,可以使用lambda表达式进行对数据的查询,而且可以将查询结果直接映射为对象或者对象列表,这极大的提高的开发速度,并且使数...

    小白哥哥
  • Ajax等待返回结果时,弹出一个友好的等待提示

    巧用Ajax的beforeSend 提高用户体验 jQuery是经常使用的一个开源js框架,其中的$.ajax请求中有一个beforeSend方法,用于在...

    似水的流年
  • 第四次文章:其他容器类

    各位小伙伴儿大家好,临近年关,先给大家拜个早年,祝大家新年快乐!今天先分享一碗鸡汤:代码学习绝对不是一条坦途,人生奋斗的向上之路也异常曲折,但没有关系,当你回望...

    鹏-程-万-里

扫码关注云+社区

领取腾讯云代金券