如何使用“另存为”功能在 Excel 中自动覆盖现有文件？

当将 Excel 工作簿保存到新文件夹时，如果文件夹中已存在同名工作簿，您会看到如下截图所示的提示框。如何在没有提示警告消息的情况下自动覆盖现有文件？本文中的方法可以帮助您实现这一目标。

使用 VBA 代码实现“另存为”功能自动覆盖现有文件

使用 VBA 代码实现“另存为”功能自动覆盖现有文件

如果您想以新名称保存工作簿并自动覆盖 Excel 中的现有文件，请按照以下步骤操作。

1. 首先，请在您的工作表中创建一个用于触发“另存为”功能的命令按钮。请点击 开发工具 > 插入 > 命令按钮（Active X 控件）。请参见截图：

2. 在您的工作表上绘制一个命令按钮。然后右键单击它，并从上下文菜单中选择 查看代码。

3. 在 Microsoft Visual Basic for Applications 窗口中，请复制下面的 VBA 代码并将其粘贴到代码窗口中的Private Sub和End Sub行之间。

VBA 代码：“另存为”功能自动覆盖现有文件

Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
  ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True

4. 按下 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口，并关闭 开发工具 选项卡下的 设计模式。

5. 单击命令按钮，随后会弹出一个“另存为”对话框，请选择一个文件夹来保存此工作簿，然后单击保存按钮。

如果目标文件夹中存在同名工作簿，当前工作簿将直接自动覆盖该文件，而不会出现任何提示。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何将工作表另存为 PDF 文件并通过 Outlook 作为附件发送？
• 如何用时间戳保存 Excel 文件名？
• 如何在 Excel 中将多个/所有工作表保存或导出为单独的 CSV 或文本文件？
• 如何禁用或不允许在 Excel 中使用“保存”和“另存为”选项？
• 如何在 Excel 中禁用工作簿保存但只允许“另存为”？