很多用戶在使用Excel的過(guò)程中，可能會(huì)遇到需要一鍵提取當(dāng)前工作簿的名稱（不帶后綴名）的情況，那么該如何實(shí)現(xiàn)這個(gè)操作呢，下面就來(lái)教給大家方法。步驟1：復(fù)制代碼首先，打開(kāi)Excel之后，復(fù)制以下代碼：`

很多用戶在使用Excel的過(guò)程中，可能會(huì)遇到需要一鍵提取當(dāng)前工作簿的名稱（不帶后綴名）的情況，那么該如何實(shí)現(xiàn)這個(gè)操作呢，下面就來(lái)教給大家方法。

步驟1：復(fù)制代碼

首先，打開(kāi)Excel之后，復(fù)制以下代碼：

```

Function GetWorkbookName() As String

Dim wb As Workbook

Set wb ActiveWorkbook

GetWorkbookName Left(, InStr(1, , ".") - 1)

End Function

```

步驟2：進(jìn)入VBA界面

按下組合鍵“Alt F11”進(jìn)入VBA界面，并插入一個(gè)模塊。

步驟3：粘貼代碼

在模塊中粘貼剛剛復(fù)制的代碼。點(diǎn)擊關(guān)閉按鈕，關(guān)閉VBA窗口，回到Excel界面。

步驟4：插入控制開(kāi)關(guān)

在Excel界面中，插入一個(gè)形狀，作為控制代碼的開(kāi)關(guān)。

步驟5：指定宏

為形狀指定宏，即剛剛復(fù)制粘貼的代碼。

步驟6：提取工作簿名稱

點(diǎn)擊形狀就會(huì)彈出窗口，顯示該工作簿的名稱（不帶后綴名）。

通過(guò)以上簡(jiǎn)單的步驟，你可以輕松地提取Excel工作簿的名稱，而且不帶后綴名。這個(gè)方法對(duì)于需要頻繁使用工作簿名稱的用戶來(lái)說(shuō)非常實(shí)用。試試看吧！