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、点击形状，即会弹出窗口显示该工作簿的名称。
