Skip to main content

How to use Save As function to automatically overwriting existing file in Excel?

Author: Siluvia Last Modified: 2020-06-17

When saving an Excel workbook to a new folder, you will get a prompt box as below screenshot shown if there is a same name workbook exists and locates on the folder. How to automatically overwriting the existing file without prompt warning message? Method in this article can help you.

Save as function to automatically overwriting existing file with VBA code

Save as function to automatically overwriting existing file with VBA code

If you want to save a workbook with a new name and automatically overwrite the existing file in Excel. Please do as follows.

1. Firstly please create a Command Button for triggering the Save as function in your worksheet. Please click Developer > Insert > Command Button (Active X Control). See screenshot:

2. Draw a Command Button on your worksheet. Then right click it and select View Code from the context menu.

3. In the Microsoft Visual Basic for Applications window, please copy the below VBA code and paste between the Private Sub and End Sub lines in the Code window.

VBA code: Save as function to automatically overwriting existing file

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")
  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. Press the Alt + Q keys to exit the Microsoft Visual Basic for Applications window. And turn off the Design Mode under the Developer tab.

5. Click the Command Button, then a Save As dialog box pops up, please select a folder to save this workbook, and then click the Save button.

If there is a same name workbook exists in the destination folder, it will be overwriting automatically with current workbook directly without prompt.

Related articles:

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Step-by-step instructions should not contain "please." It's inane, not polite—the instructions are for something we already want to do; in fact, we probably sought them out deliberately.
This comment was minimized by the moderator on the site
Hi,Thanks for your advice.
There are no comments posted here yet
Leave your comments
Posting as Guest
Rate this post:
0   Characters
Suggested Locations