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

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

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

首先，打開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界面，并插入一個模塊。

步驟3：粘貼代碼

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

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

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

步驟5：指定宏

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

步驟6：提取工作簿名稱

點擊形狀就會彈出窗口，顯示該工作簿的名稱（不帶后綴名）。

通過以上簡單的步驟，你可以輕松地提取Excel工作簿的名稱，而且不帶后綴名。這個方法對于需要頻繁使用工作簿名稱的用戶來說非常實用。試試看吧！