基于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 提前批大學名單
• 老年人網名老年人網名有哪些
• 五虎將皮膚是什么名字 五虎將皮膚名字叫什么
• 晏嬰以茶為廉