如何重命名已打开或当前的工作簿？
在某些情况下，您可能需要重命名当前已打开的 Excel 工作簿。然而，由于 Excel 不允许通过标准文件系统操作直接重命名已打开的文件，通常的做法是先关闭工作簿，在文件资源管理器中找到其位置，再进行重命名。当同时处理多个文件或需要频繁重命名时，这种方式不仅繁琐，还会打断您的工作流程。本教程为您提供了几种实用方法，让您直接在 Excel 中完成已打开工作簿的重命名操作，大幅简化流程，最大限度减少干扰。
使用“另存为”命令重命名已打开的工作簿
当您需要重命名当前工作簿，又不想关闭并重新打开文件时，另存为命令提供了一种简便的替代方案。此方法适用于在编辑过程中更改工作簿文件名的场景，且兼容所有 Excel 版本。
1. 单击功能区中的文件选项卡（或在 Excel 2007 中单击 ）Office 按钮），然后从可用选项中选择另存为，即可打开“另存为”对话框，如下图所示：
2. 在另存为对话框中，于文件名文本框中输入工作簿的新名称，例如根据当前项目或版本调整名称。参考下图：
提示：在 Excel 2013 或 Excel 2016 中，单击文件 > 另存为 后，您可能需要再单击浏览，才能打开传统的“另存为”对话框并访问文件名字段。
3. 单击保存，工作簿将以您指定的新名称保存。当前 Excel 实例将使用该新名称引用此工作簿，而原文件仍保留在原始位置（除非您后续手动删除）。
注意事项与实用技巧：旧文件不会自动删除；如不再需要，建议手动清理。此外，若您使用文件共享或版本控制系统，请确保重命名文件不会影响团队协作或现有引用。
如果其他文件中的公式、链接或 VBA 代码引用了旧文件名，这些引用将不会自动更新，请务必检查所有依赖项，以免引发错误。
使用 Office Tab 重命名已打开的工作簿
对于偏好更高效操作、且经常需要同时管理多个打开工作簿的用户，Office Tab 加载项提供了显著提升可用性的解决方案。它采用类似网页浏览器的标签式界面管理工作簿，并额外提供便捷的文件管理功能——包括直接重命名文件。
安装完 Office Tab 后，请按以下步骤操作：
1. 导航至要重命名的工作簿，右键单击 Excel 窗口顶部的工作簿标签，然后从上下文菜单中选择重命名，如下图所示：
2. 在 Office Tab 对话框中，于提供的文本字段中输入工作簿的新名称。请注意避免使用非法字符（例如）/ \ : * ? " |），这些字符不可用于文件名。参考下图：
3. 单击确定，工作簿将立即重命名，无需关闭或重新打开。更改会同步体现在标签页和计算机上的实际文件名中，如下图所示：
优势：此方法特别适合需要同时管理大量文件并频繁快速重命名的用户。直观的标签式工作流可提升效率，且不会打断您的工作节奏。
注意事项：Office Tab 是一款独立安装的外部加载项，请确保其与您的 Excel 版本兼容（Office Tab 适用于大多数现代版本）。为获得最佳效果，建议定期更新加载项，避免与新版 Excel 出现兼容性问题。
使用 VBA 代码重命名已打开的工作簿
对于高级用户，VBA（Visual Basic for Applications）提供了一种灵活的方式：通过编程将当前工作簿以新名称保存，并在必要时删除原始文件，从而实现重命名。若您需要自动化批量重命名操作，或将重命名步骤无缝集成到更复杂的宏工作流中，此方法尤为高效实用。
使用此方法前请注意：Excel 无法直接重命名已打开的文件；宏会将当前工作簿以新生成的文件名保存，可选择删除旧文件，并自动切换至新生成的文件。
1. 单击开发工具 > Visual Basic，打开 Microsoft Visual Basic for Applications 窗口；随后点击插入 > 模块，并将以下代码粘贴到新建的模块中：
Sub RenameActiveWorkbook()
Dim newFullName As String
Dim oldFullName As String
Dim fDialog As FileDialog
Dim response As VbMsgBoxResult
On Error Resume Next
xTitleId = "KutoolsforExcel"
oldFullName = ThisWorkbook.FullName
' Prompt for new file name and location
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
With fDialog
.Title = "Select new file name for the active workbook"
.InitialFileName = ThisWorkbook.FullName
If .Show = -1 Then
newFullName = .SelectedItems(1)
Else
Exit Sub
End If
End With
' Save the workbook with the new name
ThisWorkbook.SaveAs Filename:=newFullName, FileFormat:=xlOpenXMLWorkbook
' Ask if the old file should be deleted
response = MsgBox("Do you want to delete the old file?" & vbCrLf & oldFullName, vbYesNo + vbQuestion, xTitleId)
If response = vbYes Then
Kill oldFullName
End If
MsgBox "Workbook renamed successfully.", vbInformation, xTitleId
End Sub2. 要运行宏，请按 F5 或单击 VBA 编辑器中的
运行按钮。随后将弹出“另存为”对话框，供您输入新文件名并选择当前工作簿的保存位置（请确保文件名不含特殊字符）。”
保存后，系统将提示您确认是否删除原始文件：选择“是”，旧文件将被永久删除（无法撤销）；选择“否”，则保持不变。当前会话将立即以新建名称引用该工作簿。
提示与注意事项：运行此宏前务必备份数据，以防意外丢失。重命名后，请确认所有文件间的链接、公式和引用依然有效——文件名更改可能会影响外部引用。如遇错误，请仔细检查文件路径与文件名，并确保您对目标文件夹中的文件拥有足够操作权限。
此方法专为熟悉 VBA 及文件管理自动化的高级用户量身打造。若遇到宏相关问题，请确保已启用宏；如出现权限错误，可尝试以管理员身份运行 Excel。
相关文章：
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱