Excel一键提取Excel工作簿名称（不带后缀名）
基于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
m = Mid(k, 1, i - 1)
MsgBox m
End Sub
- 5
封闭VBA回到Excel界面。
- 6
插入一个外形，作为节制代码的开关。
- 7
为外形指心猿意马宏，即方才复制粘贴的代码。
- 8
点击外形，即会弹出窗口显示该工作簿的名称。
注重事项
- 感乐趣的伴侣，可以测验考试一下提取其他非打开工作簿的名称。
- 若是对您有点帮忙，请帮手点个赞再走，感谢！
- 发表于 2018-05-21 00:00
- 阅读 ( 1311 )
- 分类：其他类型
admin
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章