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

1、本教程以新建的Excel文档为例（任意Excel文档操作方法一样），首先双击打开Excel文档。

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

2、制作一个控制代码的控制器，本教程以插入一个形状为例。

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

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

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

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

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、关闭VBA窗口，返回Excel窗口。为步骤2中绘制的形状指定宏。

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