Excel一键提取Excel工作簿名称（不带后缀名）

1、本教程以新建的Excel文档为例（PS：打开任意的Excel文档都可以），为了便于学者更好的理解，最后会加一条弹窗命令显示得到的工作簿名称。

2、打开Excel之后，按下组合键Alt+F11进入VBA界面。

3、插入一个模块。

4、在模块中复制粘贴以下代码：

Sub file()

Dim k$, i%, n$, m$, s$

k = ActiveWorkbook.Name

s = "."

Do

    i = i + 1

    n = Mid(k, i, 1)

Loop Until n = s

m = Mid(k, 1, i - 1)

MsgBox m

End Sub

5、关闭VBA回到Excel界面。

6、插入一个形状，作为控制代码的开关。

7、为形状指定宏，即刚刚复制粘贴的代码。

8、点击形状，即会弹出窗口显示该工作簿的名称。