Excel里如何插入当前工作簿名称？如何自动更新？
作者：佚名|分类：EXCEL|浏览：135|发布时间：2025-04-15 13:17:07
Excel里如何插入当前工作簿名称？如何自动更新？
在Excel中，有时候我们需要在表格中插入当前工作簿的名称，以便于识别和引用。此外，如果工作簿名称发生变化，我们希望表格中的名称也能自动更新。以下是如何在Excel中实现这一功能的详细步骤：
1. 插入当前工作簿名称
要在Excel中插入当前工作簿的名称，可以使用以下方法：
方法一：使用公式
1. 打开你的Excel工作簿。
2. 在需要插入工作簿名称的单元格中输入以下公式：
```excel
=WORKBOOKNAME()
```
3. 按下回车键，单元格中就会显示当前工作簿的名称。
方法二：使用“插入”选项卡
1. 在Excel的菜单栏中，点击“插入”选项卡。
2. 在“文本”组中，选择“文本框”。
3. 在工作表上拖动以创建一个文本框。
4. 在文本框中，输入以下公式：
```excel
=WORKBOOKNAME()
```
5. 完成后，关闭文本框。
2. 自动更新当前工作簿名称
一旦工作簿的名称发生变化，使用上述方法插入的名称也会自动更新。这是因为Excel的公式会实时计算并显示当前工作簿的名称。
3. 使用VBA宏自动插入和更新工作簿名称
如果你需要频繁地在多个工作表中插入和更新工作簿名称，可以使用VBA宏来实现自动化。
步骤如下：
1. 按下 `Alt + F11` 打开VBA编辑器。
2. 在“项目”窗格中，右键点击你的工作簿名称，选择“插入” -> “模块”。
3. 在打开的代码窗口中，输入以下代码：
```vba
Sub UpdateWorkbookName()
Dim ws As Worksheet
Dim cell As Range
For Each ws In ThisWorkbook.Worksheets
For Each cell In ws.UsedRange
If InStr(cell.Value, "WORKBOOKNAME") > 0 Then
cell.Value = "=WORKBOOKNAME()"
End If
Next cell
Next ws
End Sub
```
4. 关闭VBA编辑器，回到Excel界面。
5. 按下 `Alt + F8`，选择“UpdateWorkbookName”，然后点击“运行”。
这样，每次运行宏时，所有工作表中包含“WORKBOOKNAME”公式的单元格都会自动更新为当前工作簿的名称。
相关问答
1. 问：如果我想在工作簿中插入其他工作表的名称，应该怎么做？
答：你可以使用以下公式来插入其他工作表的名称：
```excel
=WORKSHEETNAME()
```
或者，如果你想插入特定工作表的名称，可以使用：
```excel
=WORKSHEETNAME("Sheet1")
```
其中“Sheet1”是你想要引用的工作表名称。
2. 问：如何在工作簿中插入当前日期和时间？
答：要插入当前日期，可以使用公式：
```excel
=NOW()
```
要插入当前时间，可以使用公式：
```excel
=NOW()
```
`NOW()` 公式会同时显示日期和时间。
3. 问：如何在Excel中创建一个宏，以便每次打开工作簿时自动运行？
答：要创建一个在打开工作簿时自动运行的宏，你需要设置一个自动宏。以下是步骤：
1. 在VBA编辑器中，点击“工具” -> “宏” -> “安全性”。
2. 在“信任中心”窗口中，点击“信任中心设置”。
3. 在“宏设置”部分，选择“启用所有宏，不提示”。
4. 点击“确定”关闭所有窗口。
5. 在VBA编辑器中，创建一个新的模块，并输入以下代码：
```vba
Private Sub Workbook_Open()
' 你的宏代码
End Sub
```
6. 保存并关闭VBA编辑器。
现在，每次打开工作簿时，都会自动运行你设置的宏。