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

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

东西/原料

• Excel

方式/步调

1. 1

   本教程以新建的Excel文档为例（肆意Excel文档操作方式一样），起首双击打开Excel文档。

   PS：打开软件的其他体例可以参考以下链接：

   20系统打开一个软件应用的四种常用方式

   
2. 2

   建造一个节制代码的节制器，本教程以插入一个外形为例。

   PS：当然也可以插入图片或ActiveX控件，具体操作体例可以参考以下链接：

   34插入控件技巧

   
3. 3

   然后按下组合键Alt+F11切换到VBA界面。

   PS：其他进入VBA界面的体例，可参考以下链接：

   12打开的三种方式

   
4. 4

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

   
5. 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

   End Sub

   
6. 6

   封闭VBA窗口，返回Excel窗口。为步调2中绘制的外形指心猿意马宏。

   
7. 7

   点击外形，即会弹窗显示该工作簿的后缀名。

   

注重事项

• 若是对您有点帮忙，请帮手点个赞再走，感谢！