如何使用“另存為”功能自動(dòng)覆蓋Excel中的現(xiàn)有文件？

將Excel工作簿保存到新文件夾時(shí)，如果存在相同名稱(chēng)的工作簿并位于該文件夾上，則會(huì)出現(xiàn)一個(gè)提示框，如以下屏幕截圖所示。 如何自動(dòng)覆蓋現(xiàn)有文件而沒(méi)有提示警告消息？ 本文中的方法可以為您提供幫助。

另存為函數(shù)以使用VBA代碼自動(dòng)覆蓋現(xiàn)有文件

另存為函數(shù)以使用VBA代碼自動(dòng)覆蓋現(xiàn)有文件驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！

如果要使用新名稱(chēng)保存工作簿并自動(dòng)覆蓋Excel中的現(xiàn)有文件。 請(qǐng)執(zhí)行以下操作。

1.首先，請(qǐng)創(chuàng)建一個(gè)命令按鈕以觸發(fā)工作表中的另存為功能。 請(qǐng)點(diǎn)擊 開(kāi)發(fā)商 > 插頁(yè) > 命令按鈕（Active X控件）。 看截圖：

2.在工作表上繪制一個(gè)命令按鈕。 然后右鍵單擊它并選擇 查看代碼 從上下文菜單。

3.在 Microsoft Visual Basic應(yīng)用程序 窗口，請(qǐng)復(fù)制以下VBA代碼并粘貼在 私人潛艇 和 END SUB 中的行 代碼 窗口。

VBA代碼：另存為功能以自動(dòng)覆蓋現(xiàn)有文件

Dim xFileName As StringApplication.Displayalerts = FalseIf Right(ActiveWorkbook.Name, 4) = "xlsm" ThenxFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")ElsexFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")End IfIf (xFileName <> "") Or (xFileName <> "False") ThenActiveWorkbook.SaveAs Filename:=xFileNameEnd IfApplication.Displayalerts = TrueCopy

4。 按 其他 + Q 退出鍵 Microsoft Visual Basic應(yīng)用程序 窗口。 然后關(guān)閉 設(shè)計(jì)模式 在下面 開(kāi)發(fā)商 標(biāo)簽。

5.單擊命令按鈕，然后單擊 另存為 彈出對(duì)話(huà)框，請(qǐng)選擇一個(gè)文件夾來(lái)保存此工作簿，然后單擊 優(yōu)惠 按鈕。

如果目標(biāo)文件夾中存在相同名稱(chēng)的工作簿，它將被當(dāng)前工作簿直接自動(dòng)覆蓋，而不會(huì)提示。

相關(guān)文章:如何將工作表另存為PDF文件并將其作為附件通過(guò)Outlook通過(guò)電子郵件發(fā)送？如何使用時(shí)間戳保存Excel文件名？如何在Excel中保存，導(dǎo)出多個(gè)/所有工作表到單獨(dú)的csv或文本文件？如何在Excel中禁用或不允許“另存為”選項(xiàng)？如何禁用工作簿保存，但只允許在Excel中另存為？

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專(zhuān)業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel