We can save workbook by using ‘SaveAs’ method of workbook object in Excel VBA. Please find the following brief description about saveas method of workbook object.

VBA SaveAs Method Excel Workbook Object

Why we need to SaveAS a Workbook using VBA?

When we do any changes in the existing workbook, later we may wanted to see the file without changes. So that we can saves changes to the workbook in a different file using ‘SaveAs’ method of workbook object.

VBA SaveAS Workbook – Syntax

Here is the syntax to SaveAs workbook using VBA.

Workbooks(“Your Workbook Name”).SaveAs(

[Filename], [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As XlSaveAsAccessMode = xlNoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout], [Local])

In the above syntax we are using ‘SaveAs’ method of workbook object to save the workbook in another location with modification(s).

VBA SaveAS Workbook:Example 1

Please find the below example, It will show you how to do saveas workbook.

Sub SaveAs_Workbook()
    Dim Wkb As Workbook
    Set Wkb = Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\Sample.xlsm"    
End Sub

Explanation: In the above example we have created variable named Wkb in the first statement. We have used ‘Add’ method of workbook object to add new workbook and then assigned it to object named Wkb in the second statement. At last in the third statement we have used ‘SaveAs’ method of workbook object to save workbook in another location and the file name is “C:\Sample.xlsm” (You can change the file name according to your wish).

VBA SaveAS Workbook – Instructions

Please follow the below step by step instructions to execute the above mentioned VBA macros or codes:

  1. Open an Excel Workbook
  2. Press Alt+F11 to Open VBA Editor
  3. Insert a Module from Insert Menu
  4. Copy the above code for activating a range and Paste in the code window(VBA Editor)
  5. Save the file as macro enabled workbook
  6. Press ‘F5’ to run it or Keep Pressing ‘F8’ to debug the code line by line.

Premium Project Management Templates

120+ Professional Project Management Templates!

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

PREMIUM TEMPLATES
LIMITED TIME OFFER
ON SALE80% OFF
BROWSE ALL TEMPLATES

Advanced Project Planning Templates

Excel Templates

VIEW DETAILS

120+ Project Management Templates Pack

Excel | PowerPoint | Word

VIEW DETAILS

ULTIMATE RESOURCE MANAGEMENT TEMPLATE

Excel Template

VIEW DETAILS

50+ Essential Project Management Templates

Excel | PowerPoint | Word

VIEW DETAILS

Project Portfolio Management Templates

Excel | PowerPoint Templates

VIEW DETAILS

50+ Excel Project Management Templates

Excel Templates

VIEW DETAILS

Share This Story, Choose Your Platform!

3 Comments

  1. Tommaso August 18, 2016 at 6:35 PM

    Hi,

    I am trying to combine the :
    strFileToOpen = Application.GetOpenFilename
    Workbooks.Open Filename:=strFileToOpen

    with a SaveAs function. I need it becuase I am trying to create a Macro where I need to open a file that is not always named in the same way, have the macro save it with a standard name, for example: Test Sample, and have the macro work on it. The Macro should take the infomartion needed from this file and report it on the main file where the Macro is running. Finally the Macro should delete the “Test Sample” file and save the file where the Macro is running with a new name.

    I hope this makes sense enough for you to understand what I am struggling with!

    Thanks!
    T

  2. murali March 28, 2019 at 7:34 PM

    how to save as same workbook with cells vales text names

  3. Carlos July 28, 2020 at 4:02 AM

    I am trying to do a save as and its function the first time but the second time indicates that i can save with the same name as the open workbook.

Leave A Comment