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

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

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

3、插入一个模块。

4、在模块中复制粘贴以下代码：Sub file()Dim k$, i%, n$, m$巳呀屋饔, s$k = ActiveWorkbook.Names = "."Do i = 足毂忍珩i + 1 n = Mid(k, i, 1)Loop Until n = sm = Mid(k, 1, i - 1)MsgBox mEnd Sub

5、关闭VBA回到Excel界面。

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

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

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