扩展名 Excel一键提取工作簿的后缀名技巧

       经由过程VBA代码和节制按钮手艺实现经由过程一个按钮开关节制就能获得工作簿的后缀名 。 若是您对这方面感乐趣的话,不妨看看本篇教程 。 若有疑问或看法,随时接待留言会商 。

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

需要这些哦
Excel
方式/
1本教程以新建的Excel文档为例(肆意Excel文档操作方式一样),起首双击打开Excel文档 。
PS:打开软件的其他体例可以参考以下链接:
20WIN系统打开一个软件应用的四种常用方式

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

2建造一个节制代码的节制器,本教程以插入一个外形为例 。
PS:当然也可以插入图片或ActiveX控件,具体操作体例可以参考以下链接:
34Excel插入ActiveX控件技巧

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

3然后按下组合键Alt+F11切换到VBA界面 。
PS:其他进入VBA界面的体例,可参考以下链接:
12Excel2007打开VBA的三种方式!

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

4进入VBA界面后,点击菜单栏中的插入,选择模块 。

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

5在模块窗口中复制粘贴以下代码:
Sub Extension()
 Dim m$, n$, k$, g$, s%, i%
 k = ActiveWorkbook.Name
 s = Len(k)
 g = "."
 i = 1
Do While m <> g
    m = Mid(k, i, 1)
    i = i + 1
Loop
 n = Right(k, s - i + 1)
 MsgBox n
Sub

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

6封闭VBA窗口,返回Excel窗口 。 为
2中绘制的外形指定宏 。

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

7【扩展名 Excel一键提取工作簿的后缀名技巧】点击外形,即会弹窗显示该工作簿的后缀名 。

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

扩展名 Excel一键提取工作簿的后缀名技巧

文章插图

注重事项若是对您有点帮忙,请帮手点个赞再走,感谢!

以上内容就是扩展名 Excel一键提取工作簿的后缀名技巧的内容啦,希望对你有所帮助哦!

    推荐阅读