基于VBA技术实现一键提取工簿的名称（不带后缀名），如果你对这方面感兴趣的话，可以尝试学习一下。
方法/步骤
-
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
点击形状，即会弹出窗口显示该工作簿的名称。
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论