订阅Excel一键提取Excel工作簿名称（不带后缀名）
来源：网络收集 点击： 时间：2024-03-15【导读】：
基于VBA技术实现一键提取工簿的名称（不带后缀名），如果你对这方面感兴趣的话，可以尝试学习一下。工具/原料moreExcel本教程以Excel2013为例方法/步骤1/8分步阅读
2/8
3/8
4/8
5/8
6/8
7/8
8/8
注意事项
本教程以新建的Excel文档为例（PS：打开任意的Excel文档都可以），为了便于学者更好的理解，最后会加一条弹窗命令显示得到的工作簿名称。
2/8打开Excel之后，按下组合键Alt+F11进入VBA界面。
3/8插入一个模块。
4/8在模块中复制粘贴以下代码：
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/8关闭VBA回到Excel界面。
6/8插入一个形状，作为控制代码的开关。
7/8为形状指定宏，即刚刚复制粘贴的代码。
8/8点击形状，即会弹出窗口显示该工作簿的名称。
注意事项感兴趣的朋友，可以尝试一下提取其他非打开工作簿的名称。
如果对您有点帮助，请帮忙点个赞再走，谢谢！
EXCEL一键提取工作簿名称版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_354534.html
上一篇：华为Nova5怎么取SIM卡？
下一篇：如何找到并截图我的微信二维码？
