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
- 閱讀 ( 1318 )
- 分類：其他類型
admin
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章