基于VBA手艺实现一键提取工簿的名称（不带后缀名）， 若是你对这方面感乐趣的话， 可以测验考试进修一下 。

需要这些哦
Excel
本教程以Excel2013为例
方式/
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
【不带后缀名 Excel一键提取Excel工作簿名称】m = Mid(k, 1, i - 1)
MsgBox m
Sub




5封闭VBA回到Excel界面 。




6插入一个外形， 作为节制代码的开关 。




7为外形指定宏， 即方才复制粘贴的代码 。







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




注重事项感乐趣的伴侣， 可以测验考试一下提取其他非打开工作簿的名称 。
若是对您有点帮忙， 请帮手点个赞再走， 感谢！

以上内容就是不带后缀名 Excel一键提取Excel工作簿名称的内容啦， 希望对你有所帮助哦！

猜你喜欢

• 岛国是指哪些国家 岛国有几个国家
• 拐杖变茶传神话
• 世界名泉邛崃文君井，茶道视频
• 德清名茶出口呼唤QS认证，福建安溪的名茶是什么
• 哈士奇体型标准尺寸 哈士奇标准体型
• 支付宝如何查看自己名下的实名账户
• 提前批大学名单2020 提前批大学名单
• 老年人网名老年人网名有哪些
• 五虎将皮肤是什么名字 五虎将皮肤名字叫什么
• 晏婴以茶为廉