当前位置:网站首页 > 创业 > 正文

Excel一键提取Excel工作簿名称(不带后缀名)

0 张子豪 张子豪 2025-10-12 02:12 1

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

东西/原料

  • Excel
  • 本教程以Excel2013为例

方式/步调

  1. 1

    本教程以新建的Excel文档为例(PS:打开肆意的Excel文档都可以),为了便于学者更好的理解,最后会加一条弹窗号令显示获得的工作簿名称。

  2. 2

    打开Excel之后,按下组合键Alt+F11进入VBA界面。

  3. 3

    插入一个模块。

  4. 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. 5

    封闭VBA回到Excel界面。

  6. 6

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

  7. 7

    为外形指心猿意马宏,即方才复制粘贴的代码。

  8. 8

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

注重事项

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

来源:百闻(微信/QQ号:9397569),转载请保留出处和链接!


本文链接:https://www.ibaiwen.com/web/234635.html

张子豪

张子豪

TA很懒,啥都没写...

@百闻娱乐 本站部分内容转自互联网,若有侵权等问题请及时与本站联系,我们将在第一时间删除处理。 | 粤ICP备2024343649号 | (地图