title | keywords | f1_keywords | ms.prod | api_name | ms.assetid | ms.date | ms.localizationpriority |
---|---|---|---|---|---|---|---|
Workbook.SaveAs method (Excel) |
vbaxl10.chm199200 |
vbaxl10.chm199200 |
excel |
Excel.Workbook.SaveAs |
fbc3ce55-27a3-aa07-3fdb-77b0d611e394 |
08/14/2019 |
medium |
Workbook.SaveAs method (Excel)
Saves changes to the workbook in a different file.
[!includeAdd-ins note]
Syntax
expression.SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression A variable that represents a Workbook object.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
FileName | Optional | Variant | A string that indicates the name of the file to be saved. You can include a full path; if you don’t, Microsoft Excel saves the file in the current folder. |
FileFormat | Optional | Variant | The file format to use when you save the file. For a list of valid choices, see the XlFileFormat enumeration. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used. |
Password | Optional | Variant | A case-sensitive string (no more than 15 characters) that indicates the protection password to be given to the file. |
WriteResPassword | Optional | Variant | A string that indicates the write-reservation password for this file. If a file is saved with the password and the password isn’t supplied when the file is opened, the file is opened as read-only. |
ReadOnlyRecommended | Optional | Variant | True to display a message when the file is opened, recommending that the file be opened as read-only. |
CreateBackup | Optional | Variant | True to create a backup file. |
AccessMode | Optional | XlSaveAsAccessMode | The access mode for the workbook. |
ConflictResolution | Optional | XlSaveConflictResolution | An XlSaveConflictResolution value that determines how the method resolves a conflict while saving the workbook. If set to xlUserResolution, the conflict-resolution dialog box is displayed.
If set to xlLocalSessionChanges, the local user’s changes are automatically accepted. If set to xlOtherSessionChanges, the changes from other sessions are automatically accepted instead of the local user’s changes. If this argument is omitted, the conflict-resolution dialog box is displayed. |
AddToMru | Optional | Variant | True to add this workbook to the list of recently used files. The default value is False. |
TextCodepage | Optional | Variant | Ignored for all languages in Microsoft Excel.
NOTE: When Excel saves a workbook to one of the CSV or text formats, which are specified by using the FileFormat parameter, it uses the code page that corresponds to the language for the system locale in use on the current computer. This system setting is available in the Control Panel > Region and Language > Location tab under Current location. |
TextVisualLayout | Optional | Variant | Ignored for all languages in Microsoft Excel.
NOTE: When Excel saves a workbook to one of the CSV or text formats, which are specified by using the FileFormat parameter, it saves these formats in logical layout. If left-to-right (LTR) text is embedded within right-to-left (RTL) text in the file, or vice versa, logical layout saves the contents of the file in the correct reading order for all languages in the file without regard to direction. When an application opens the file, each run of LTR or RTL characters are rendered in the correct direction according to the character value ranges within the code page (unless an application that is designed to display the exact memory layout of the file, such as a debugger or editor, is used to open the file). |
Local | Optional | Variant | True saves files against the language of Microsoft Excel (including control panel settings). False (default) saves files against the language of Visual Basic for Applications (VBA) (which is typically US English unless the VBA project where Workbooks.Open is run from is an old internationalized XL5/95 VBA project). |
Remarks
Use strong passwords that combine uppercase and lowercase letters, numbers, and symbols. Weak passwords don’t mix these elements.
- Strong password: Y6dh!et5
- Weak password: House27
Use a strong password that you can remember so that you don’t have to write it down.
Example
This example creates a new workbook, prompts the user for a file name, and then saves the workbook.
Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False NewBook.SaveAs Filename:=fName
[!includeSupport and feedback]
In this Article
- Save Workbook – VBA
- Save a Specified Workbook
- Save the Active Workbook
- VBA Coding Made Easy
- Save the Workbook Where the Code is Stored
- Save all Open Workbooks
- Save all open workbooks that were not opened ReadOnly
- Save a workbook defined by a variable
- Save a workbook defined by a string variable
- Save a workbook defined by the order it was opened.
- Save a workbook based on a cell value
- Save As – VBA
- SaveAs Syntax:
- Save As Syntax Examples:
- Workbook Save As – Same Directory
- Workbook Save As – New Directory
- Workbook Save As – New Directory, Specify File Extension
- Workbook Save As – New Directory, Specify File Extension – Alt Method
- Workbook Save As – Add Password to Open File
- Workbook Save As – Add Password for Write Privileges
- Workbook Save As – Read-Only Recommended
- Other Save As Examples
- Create Save As Dialog Box
- Create Save As Dialog Box with Default File Name Provided
- Create Save As Dialog Box with Default File Name Provided
- Create & Save New Workbook
- Disable Save Alerts
This VBA Tutorial covers how to save a file using the Save and Save As commands in VBA.
Save Workbook – VBA
The VBA Save command saves an Excel file similarly to clicking the Save icon or using the Save Shortcut (CTRL + S).
Save a Specified Workbook
To save a workbook, reference the workbook object and use the Save command.
Workbooks("savefile.xlsm").Save
Save the Active Workbook
Note: This is the current active workbook from with in the VBA code, which is different from ThisWorkbook which contains the running code.
ActiveWorkbook.Save
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Learn More!
Save the Workbook Where the Code is Stored
ThisWorkbook.save
Save all Open Workbooks
This will loop through all open workbooks, saving each one.
Dim wb as workbook
For Each wb In Application.Workbooks
wb.Save
Next wb
Save all open workbooks that were not opened ReadOnly
Note: opening a workbook in ReadOnly mode prevents the file from being saved.
To save the file you will need to use Save As and save the file with a different name.
Dim wb as workbook
For Each wb In Application.Workbooks
If not wb.ReadOnly then
wb.Save
End if
Next wb
Save a workbook defined by a variable
This will save a workbook that was assigned to a workbook object variable.
Dim wb as workbook
set wb = workbooks("savefile.xlsm")
wb.save
Save a workbook defined by a string variable
This will save a workbook that’s name was saved to a string variable.
Dim wbstring as string
wbstring = "savefile.xlsm"
workbooks(wbstring).save
Save a workbook defined by the order it was opened.
Note: The first workbook opened would have 1, the second 2, etc.
workbooks(1).save
VBA Programming | Code Generator does work for you!
Save a workbook based on a cell value
This will save a workbook that’s name is found in a cell value.
Dim wbstring as string
wbstring = activeworkbook.sheets("sheet1").range("wb_save").value
workbooks(wbstring).save
Save As – VBA
The VBA Save As command saves an Excel file as a new file, similar to clicking the Save As icon or using the Save As Shortcut (Alt > F > A).
Above, we identified all the ways to specify which workbook to save. You can use those exact same methods to identify workbooks when using Save As.
Save As behaves similarly to Save, except you also need to specify the name of the new file.
In fact, Save As has many potential variables to define:
SaveAs Syntax:
workbook object .SaveAs(FileName, FileFormat, Password, WriteResPassword, _
ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _
AddToMru,TextCodepage, TextVisualLayout, Local)
A full description of all of the SaveAs arguments is included below. For now we will focus on the most common examples.
Note: These arguments can be entered as string with parenthesis or as defined variables.
Save As Syntax Examples:
Workbook Save As – Same Directory
ActiveWorkbook.SaveAs Filename:= "new"
or
ActiveWorkbook.SaveAs "new"
or
Dim wbstring as string
wbstring = "new"
ActiveWorkbook.SaveAs Filename:= wbstring
AutoMacro | Ultimate VBA Add-in | Click for Free Trial!
Workbook Save As – New Directory
ActiveWorkbook.SaveAs Filename:= "C:new"
or
Dim wbstring as string
wbstring = "C:new"
ActiveWorkbook.SaveAs Filename:= wbstring=
Workbook Save As – New Directory, Specify File Extension
ActiveWorkbook.SaveAs Filename:= "C:new.xlsx"
or
Dim wbstring as string
wbstring = "C:new.xlsx"
ActiveWorkbook.SaveAs Filename:= wbstring
Workbook Save As – New Directory, Specify File Extension – Alt Method
You can also specify the file format in it’s own argument.
.xlsx = 51 '(52 for Mac)
.xlsm = 52 '(53 for Mac)
.xlsb = 50 '(51 for Mac)
.xls = 56 '(57 for Mac)
ActiveWorkbook.SaveAs Filename:= "C:new", FileFormat:= 51
Workbook Save As – Add Password to Open File
ActiveWorkbook.SaveAs Filename:= "C:new.xlsx", Password:= "password"
AutoMacro | Ultimate VBA Add-in | Click for Free Trial!
Workbook Save As – Add Password for Write Privileges
If correct password is not supplied then workbook opens as Read-Only
ActiveWorkbook.SaveAs Filename:= "C:new.xlsx", WriteRes:= "password"
Workbook Save As – Read-Only Recommended
TRUE to display a message box, recommending that the file is opened read-only.
ActiveWorkbook.SaveAs Filename:= "C:new.xlsx", ReadOnlyRecommended:= TRUE
Other Save As Examples
Create Save As Dialog Box
This Generates the Save As Dialog Box, prompting the user to Save the file.
Keep in mind that this simple code may not be appropriate in all cases.
Application.GetSaveAsFilename
AutoMacro | Ultimate VBA Add-in | Click for Free Trial!
Create Save As Dialog Box with Default File Name Provided
Application.GetSaveAsFilename InitialFilename:="test.xlsx"
Create Save As Dialog Box with Default File Name Provided
Application.GetSaveAsFilename InitialFilename:="test.xlsx"
Create & Save New Workbook
This will create a new workbook and immediately save it.
Dim wb As Workbook
Set wb = Workbooks.Add
Application.DisplayAlerts = False
wb.SaveAs Filename:=”c:Test1.xlsx”
Application.DisplayAlerts = True
Disable Save Alerts
As you work with saving in VBA, you may come across various Save Warnings or Prompts. To disable warnings, add this line of code:
Application.DisplayAlerts=False
and to re-able alerts:
Application.DisplayAlerts=True
Сохранение файла рабочей книги Excel, существующего или нового, с помощью кода VBA. Методы Save и SaveAs объекта Workbook, параметр SaveChanges метода Close.
Сохранение существующего файла
Сохранить существующий открытый файл рабочей книги Excel из кода VBA можно несколькими способами. В примерах используется выражение ActiveWorkbook, которое может быть заменено на ThisWorkbook, Workbooks(«ИмяКниги.xlsx»), Workbooks(myFile.Name), где myFile — объектная переменная с присвоенной ссылкой на рабочую книгу Excel.
Простое сохранение файла после внесенных кодом VBA Excel изменений:
Сохранение файла под другим именем (исходная рабочая книга будет автоматически закрыта без сохранения внесенных изменений):
ActiveWorkbook.SaveAs Filename:=«C:ТестоваяНоваяКнига.xlsx» |
Сохранить файл рабочей книги можно перед закрытием, используя параметр SaveChanges метода Close со значением True:
ActiveWorkbook.Close SaveChanges:=True |
Чтобы закрыть файл без сохранения, используйте параметр SaveChanges метода Close со значением False:
ActiveWorkbook.Close SaveChanges:=False |
Сохранение файла под другим именем при закрытии рабочей книги:
ActiveWorkbook.Close SaveChanges:=True, Filename:=«C:ТестоваяНоваяКнига.xlsx» |
Если в примерах с методом Close параметр SaveChanges пропустить, будет открыто диалоговое окно с запросом о сохранении файла.
Новая книга сохраняется с указанием полного имени:
Workbooks.Add ActiveWorkbook.SaveAs Filename:=«C:ТестоваяНоваяКнига.xlsx» |
После этого к новой книге можно обращаться по имени: Workbooks ("НоваяКнига.xlsx")
.
Если не указать полное имя для сохраняемого файла:
Workbooks.Add ActiveWorkbook.Save |
тогда новая книга будет сохранена с именем и в папке по умолчанию, например: Книга1.xlsx, Книга2.xlsx, Книга3.xlsx и т.д. в папке «Документы».
If you’ve worked with Excel before, you’re probably quite familiar with 2 basic commands for saving workbooks:
- Save.
- Save As.
It may not surprise you to know that, when working with VBA, you can carry out these same activities.
In fact, knowing how to save Excel workbooks using VBA is essential. As you work with Visual Basic for Applications, you’ll notice that saving workbooks is one of the most important things your macros can do.
Due to the importance of knowing how to save workbooks using VBA, this Excel tutorial focuses on this particular topic:
How to save an Excel workbook using VBA.
In addition to providing some examples of VBA code that you can use to save workbooks, I explain the basics surrounding 4 VBA methods that you’re likely to encounter and use constantly while saving workbooks. The following table of contents shows the specific topics that I explain in this Excel tutorial:
This Excel tutorial doesn’t cover the topic of saving an Excel workbook as PDF using VBA. I explain how to export an Excel file to PDF using macros, and provide several code examples, here.
Let’s start taking a look at the basic ways to save an Excel workbook using VBA.
How To Save An Excel Workbook Using the Workbook.Save VBA Method
The most basic method to save Excel workbooks using VBA is the Workbook.Save method. Workbook.Save saves the relevant workbook.
In other words, the Workbook.Save method is, roughly, the VBA equivalent of the Save command in Excel.
The syntax of the Workbook.Save method is as follows:
expression.Save
Where “expression” is the relevant Workbook object you want to save.
Let’s take a look at an example to make this clearer. The following macro, named “Save_Workbook”, saves the current active workbook:
This Excel VBA Save Workbook Tutorial is accompanied by an Excel workbook containing the data and macros I use (including the Save_Workbook macro). You can get immediate free access to this example workbook by subscribing to the Power Spreadsheets Newsletter.
Notice that the macro has only 1 statement which follows the general syntax of the Workbook.Save method explained above:
ActiveWorkbook.Save
In this case, ActiveWorkbook is a simplified reference to the Application.ActiveWorkbook property. This property returns a Workbook object, as required by the Workbook.Save method. The workbook that is returned by the ActiveWorkbook property is, more precisely, the workbook in the current active window.
In summary, the sample Save_Workbook macro above simply saves the current active Excel workbook.
Just as when working directly with Excel, the Save method is an important command/method that is relatively easy and straightforward to execute. However, it doesn’t allow you to determine much in connection with the way the relevant Excel workbook is saved. The workbook is saved and that’s pretty much it.
When working directly in Excel, you use the Save As command if you want to be able to determine more about the way the actual saving of a workbook takes place. Things work in a similar fashion within Visual Basic for Applications.
More precisely, when working with Visual Basic for Applications, you can use the SaveAs method for these purposes. So let’s take a look at:
How To Save An Excel Workbook Using The Workbook.SaveAs VBA Method
The arguments or parameters of a method are what allows you to determine the characteristics of the action that a particular method performs.
As explained above, the Workbook.Save method doesn’t have any parameters. As a consequence, you can’t really determine much about how the relevant workbook is saved.
The Workbook.SaveAs method is different. Its 12 parameters allow you to further determine several aspects about the way in which an Excel workbook is saved. In other words, Workbook.SaveAs is more flexible and complex than Workbook.Save.
Workbook.SaveAs is, roughly speaking, the VBA equivalent of the Save As command in Excel. Therefore, it allows you to save a workbook in a particular file. The complete syntax of the Workbook.SaveAs method is as follows:
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode,ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
“expression” is, just as in the case of the Workbook.Save method above, the relevant Workbook object.
All of the parameters (which appear within parentheses) of the SaveAs method are optional. However, in order to understand what this method can help you with, I explain these parameters below.
However, as usual, I use a practical macro example for purposes of illustrating how Workbook.SaveAs works. So let’s start by taking a look at the basic VBA code of the macro example:
How To Save An Excel Workbook With A New Name Using The Workbook.SaveAs Method
The following piece of VBA code saves the current active workbook with a new name provided by the user.
Dim workbook_Name As Variant
workbook_Name = Application.GetSaveAsFilename
If workbook_Name <> False Then
ActiveWorkbook.SaveAs Filename:=workbook_Name
End If
The following screenshot shows the VBA code behind the example macro (called “Save_Workbook_NewName”) which is included in the Excel workbook that accompanies this Excel VBA Save Workbook Tutorial. You can get immediate free access to this example workbook by subscribing to the Power Spreadsheets Newsletter.
This macro can be divided in the following 3 parts:
Let’s take a quick look at each of these parts to understand how the Save_Workbook_NewName macro works:
Part #1: Dim workbook_Name As Variant
This statement simply declares a variable named workbook_Name. The variable is of the Variant data type.
Even though Variant variables are sometimes undesirable, in this particular case that’s not necessarily the case. A Variant variable allows the GetSaveAsFilename (which I introduce below) to be quite flexible.
As implied by its name, and made evident by the following parts of the macro, the purpose of the workbook_Name variable is to store the new name of the saved Excel workbook.
Part #2: workbook_Name = Application.GetSaveAsFilename
This statement assigns a value to the workbook_Name variable. Which value is actually assigned is determined by the Application.GetSaveAsFilename method, which I explain thoroughly below.
At its most basic level, the GetSaveAsFilename method, does the following 2 things:
- Step #1: Displays the Save As dialog box.
You’re probably quite familiar with this dialog box, as it’s the one Excel displays when you execute the Save As command.
- Step #2: Once the user has provided a file name through the Save As dialog box, GetSaveAsFilename gets that particular name.
This is the name that the whole statement we’re analyzing assigns to the variable workbook_Name.
Note that the Application.GetSaveAsFilename method doesn’t actually save a file. It simply gets a name.
To actually save the file using the name provided by the GetSaveAsFilename method, you usually rely on the Workbook.SaveAs method. This method is used in the last part of the Save_Workbook_NewName macro:
Part #3: If workbook_Name <> False Then ActiveWorkbook.SaveAs Filename:=workbook_Name End If
This is an If… Then… Else statement. These type of statements conditionally execute a particular group of statement depending on whether a condition is met or not. The statement begins with the word If. The whole block finishes with the End If statement.
In the case of the Save_Workbook_NewName macro, the If… Then… Else statement proceeds as follows:
Step #1: Test Whether workbook_Name <> False.
The first part of the If… Then… Else statement carries out a logical test. This logical test seeks to confirm whether the variable workbook_Name has a value that is different from (<>) the logical value False.
If the value of workbook_Name isn’t False, the logical test (workbook_Name <> False) evaluates to True. In such a case, the statements within the If… Then… Else are executed.
However, if the value of workbook_Name is equal to the Boolean value False, the logical test evaluates to False. In this case, the conditional statements aren’t executed.
For purposes of this logical test, the value of the variable workbook_Name is that assigned in the previous part. Therefore, the value depends on the input given by the user when the Save As dialog box is displayed. More precisely:
- If the user cancels the Save As dialog box, the value of workbook_Name is False.
- If the user provides a file name through the Save As dialog box, the value of the workbook_Name variable is (generally) that assigned by the user.
In other words:
- If the user provides a file name:
- The logical test carried out by the first part of the If… Then… Else statement is True; and
- The conditional statements that follow are executed.
- If the user cancels the Save As dialog box (by, for example, clicking on the Cancel button):
- The logical test is False; and
- The conditional statements within the If… Then… Else statement aren’t executed.
Step#2: Execute The Statement ActiveWorkbook.SaveAs Filename:=workbook_Name If The Tested Condition Is True.
You already know that, roughly speaking, the logical test workbook_Name <> False returns True if the user has assigned a file name through the Save As dialog box.
In such case, the following statement is executed:
ActiveWorkbook.SaveAs Filename:=workbook_Name
This is where the Workbook.SaveAs method comes into play. This statement does the following:
- Step #1: Uses the Application.ActiveWorkbook property to return the workbook in the current active window.
- Step #2: Saves the active workbook in a file whose name is that given by the user through the Save As dialog displayed by the GetSaveAsFilename method.
In this particular case, only 1 argument of the Workbook.SaveAs method is used: Filename. The Filename argument, as implied by its name, allows you to specify the name of the saved workbook.
I explain more about the Filename argument, and the other arguments of the SaveAs method, in the sections below.
If the tested condition isn’t true, no further statements are executed. In other words, the workbook isn’t saved when the used has cancelled the Save As dialog box.
The Workbook.SaveAs Method: Parameters
The following table introduces the 10 most important optional parameters of the Workbook.SaveAs method:
Position | Name | Description |
---|---|---|
1 | Filename | Name of saved workbook. |
2 | FileFormat | File format for saved workbook. |
3 | Password | Protection password for saved workbook |
4 | WriteResPassword | Write-reservation password for saved workbook. |
5 | ReadOnlyRecommended | Determines whether workbook is saved as read-only recommended. |
6 | CreateBackup | Determines whether a backup file of the saved workbook is created. |
7 | AccessMode | Determines the access mode of the saved workbook. |
8 | ConflictResolution | Applies only if saved workbook is shared.
Determines how conflicts that show up when saving are resolved. |
9 | AddToMru | Determines whether saved workbook is added to list of recently used files. |
12 | Local | Determines whether the workbook is saved against the language of Excel (usually local) or VBA (usually US-English). |
2 parameters of the SaveAs method (#10, TextCodepage and #11, TextVisualLayout) aren’t included in the table above nor explained below. According to Microsoft’s Official Documentation (at the time of writing), both of these parameters are ignored.
Let’s take a closer look at each of the individual arguments of Workbook.SaveAs:
Argument #1: Filename
As implied by its name, you use the Filename argument of the Workbook.SaveAs method to specify the name of the saved workbook.
When working with the Filename argument, you can either:
- Specify the full file path; or
- Don’t specify the file path.
If you don’t specify the file path, Excel saves the workbook in the current folder.
For most users, specifying the file path isn’t very convenient. You (or the user) need to specify accurate file paths, names and extensions. The approach is tedious and error prone.
This is the main reason why the Application.GetSaveAsFilename used in the Save_Workbook_NewName is so helpful: it allows the user to browse the different folders and easily specify the full file path and name of the saved Excel workbook.
The initial basic version of the Save_Workbook_NewName macro uses the Filename argument, as shown in the screenshot below:
Argument #2: FileFormat
You can use the FileFormat argument of the Workbook.SaveAs method to specify the file format of the saved file.
If you don’t use the FileFormat argument, Excel determines the file format as follows:
- In the case of workbooks that already exist, the workbook is saved using the same file format as the last time.
- If the workbook is new, the workbook is saved using the format of the Excel version you’re using.
Even though this parameter (as all other arguments of the SaveAs method) is optional, you may want to develop the habit of using it.
You specify a particular file format using the XlFileFormat enumeration. The Microsoft Developer Network lists more than 50 different possible values.
In practice, you’re unlikely to need/use so many different formats. In fact, some of the formats that are listed at the Microsoft Developer Network are not supported in the more recent versions of Excel.
Therefore, I provide a basic overview and breakdown of the XlFileFormat values that you may actually encounter. Even though this list is much shorter than that at the Microsoft Developer Network, you’re still likely to use only a subset of the values I explain below.
The following are the 4 main file formats in Excel 2007-2013:
- 50: xlExcel12.
- 51: xlOpenXMLWorkbook.
- 52: xlOpenXMLWorkbookMacroEnabled.
- 56: xlExcel8.
As a general rule, it’s better to use the FileFormat values (numbers) instead of the names. The reason for this is that this avoids some compilation problems whenever you execute the relevant macro in an older version of Excel that may not recognize the name.
So let’s a look at some of the values that the FileFormat argument can take:
Value | Name | Description |
---|---|---|
Add-Ins And Templates | ||
17 | xlTemplate / xlTemplate8 | Template / Template 8.
Generally used in versions between Excel 97 and Excel 2003. |
18 | xlAddIn / xlAddIn8 | Excel 1997 to 2003 Add-In. |
53 | xlOpenXMLTemplateMacroEnabled | Macro-Enabled Open XML template. |
54 | xlOpenXMLTemplate | Open XML template. |
55 | xlOpenXMLAddIn | Open XML Add-In. |
Text Files | ||
-4158 | xlCurrentPlatformText | Text file format for platform in which workbook is saved. |
2 | xlSYLK | Symbolic Link Format file.
Only the active sheet is saved. |
6 | xlCSV | CSV (comma-separated values) text file format. |
9 | xlDIF | Data Interchange Format file.
Only saves the current active sheet. |
19 | xlTextMac | Mac text file format. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlTestMac saves only the active sheet. |
20 | xlTextWindows | Windows text file format. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlTestWindows saves only the active sheet. |
21 | xlTextMSDOS | MSDOS text file format. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlTestMSDOS saves only the active sheet. |
22 | xlCSVMac | CSV file format for Mac platform. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlCSVMac saves only the active sheet. |
23 | xlCSVWindows | CSV file format for Windows platform. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlCSVWindows saves only the active sheet. |
24 | xlCSVMSDOS | CSV file format for MS-DOS platform. Ensures that basic formatting (such as tab and line breaks) and characters are interpreted correctly.
xlCSVMSDOS saves only the active sheet. |
36 | xlTextPrinter | Formatted text file.
Only saves the current active worksheet. |
42 | xlUnicodeText | Unicode text file format. |
Spreadsheets (Excel and Others) | ||
-4143 | xlWorkbookNormal | Excel workbook file format. |
39 | xlExcel5 / xlExcel7 | Excel versions from 1993 (Excel 5.0) and 1995 (Excel 7.0). |
43 | xlExcel9795 | Excel versions from 1995 and 1997.
However, as explained by author Richard Mansfield in Mastering VBA for Microsoft Office 2013, this file format is generally compatible with Excel 95 and later versions. |
46 | xlXMLSpreadsheet | XML spreadsheet file format.
Generally used in Excel 2003. |
50 | xlExcel12 | Excel 2007 version. |
51 | xlOpenXMLWorkbook / xlWorkbookDefault | Open XML workbook / Workbook default file format. |
52 | xlOpenXMLWorkbookMacroEnabled | Macro-Enabled Open XML workbook. |
56 | xlExcel8 | Excel version from 1997. |
60 | xlOpenDocumentSpreadsheet | Open Document Spreadsheet file format.
OpenDocument Spreadsheet files can be opened using spreadsheet applications that use the OpenDocument Spreadsheet format. Examples of such applications are Google Sheets, Open Office Calc and Excel itself. Formatting may be affected when saving or opening Open Document Spreadsheet files. |
61 (&H3D) | xlOpenXMLStrictWorkbook | ISO Strict Open XML file format. |
Clipboard Files | ||
44 | xlHtml | HTML / webpage file format. |
If you save the Excel workbook to a CSV or text file format, the following 2 things happen:
- Excel selects the code page to use by checking the system locale configuration in the computer where the workbook is saved. The code page used is the one corresponding to the language for the system locale in use. In Windows 10, you can find these settings by going to Settings > Time & Language > Region & Language.
- Excel saves the file in logical layout. This is relevant, in particular, when working with files containing bi-directional text, where text may be in different directions (left-to-right and right-to-left). Whenever text in one direction is embedded within text in the other direction, the logical layout saves the file in such a way that the reading order is correct for all languages being used, regardless of their directionality. Then, when such a file is opened later, all the text within the file is (generally) displayed in the appropriate direction. This direction is determined by the character value ranges of the code page being used.
Let’s go back to the sample Save_Workbook_NewName. The following screenshot shows how the VBA code of this macro looks like when I add the FileFormat argument and set its value to 52 (Macro-Enabled Open XML workbooks).
Argument #3: Password
The Password argument of the Workbook.SaveAs method allows you to (as you may expect) enter a password to protect the saved Excel workbook.
The Password argument has the following 3 main characteristics:
- Is a string.
- Is case-sensitive.
- Its maximum length is 15 characters.
The following screenshot shows the VBA code behind the Save_Workbook_NewName macro with a password. In this case, the password is “Excel Tutorial”.
If you save a workbook using a macro such as the above, next time anyone (you or another user) tries to open the Excel workbook, Excel displays the Password dialog.
If the wrong password is entered, Excel doesn’t open the workbook. Instead, it displays a warning.
Argument #4: WriteResPassword
The WriteResPassword parameter of the Workbook.SaveAs method is, in some ways, similar to the Password argument that I explain above. However, Password and WriteResPassword differ in one essential characteristic:
They protect different things.
As explained above, Password protects the workbook. If you (or the relevant user) fail to provide the correct password, Excel doesn’t open the workbook.
WriteResPassword protects the write-reservation characteristic of the workbook. To see what this is, and how it works in practice, I add the WriteResPassword argument to the Save_Workbook_NewName macro. The password for these purposes is “Excel Course”.
The dialog box that Excel displays to ask for the WriteResPassword is slightly different than the one it uses when asking for the Password. Notice how it informs that the user who has saved the workbook reserved it and provides 2 options:
- You can enter the password and Excel grants you write access.
- Otherwise, you can open the workbook as read-only.
If I choose to open the workbook as read-only, Excel does precisely so. In that case, it warns in a few places that the workbook is read-only and changes aren’t saved.
If you enter the wrong WriteResPassword, Excel reacts in the same way as it does when you enter the wrong Password (as shown above). In other words, it doesn’t open the workbook and displays the following message:
Argument #5: ReadOnlyRecommended
The ReadOnlyRecommended argument provides you with a less strict way (when compared with the WriteResPassword above) to protect the Excel workbook you’re saving.
More precisely, if you set a particular workbook to be read-only recommended, Excel displays a message making such recommendation whenever the file is opened.
Setting a workbook to be read-only recommended doesn’t actually protect or reserve the workbook in the same way as the Password or the WriteResPassword do. Any user can open a read-only recommended Excel workbook normally (not as read-only) by, for example:
- Clicking “No” in the dialog box above.
- Setting the IgnoreReadOnlyRecommended argument of the Workbooks.Open argument to True when opening the workbook using VBA.
To determine that an Excel workbook is read-only recommended, you simply set the ReadOnlyRecommended argument to True.
Argument #6: CreateBackup
The CreateBackup argument of the Workbook.SaveAs method allows you to determine whether a backup of the workbook being saved is created.
If you want to create a backup of the saved Excel workbook, set the CreateBackup argument to True.
Argument #7: AccessMode
The AccessMode argument allows you to specify the access mode for the saved workbook. This argument can take the following 3 values:
- 1: Stands for xlNoChange. In this case, the default access mode is used.
- 2: Represents xlShared. In this case, the access mode is share list.
- 3: Value for xlExclusive. In this scenario, access mode is exclusive mode.
The following screenshot shows the VBA code of the Save_Workbook_NewName macro with the AccessMode parameter set to xlNoChange:
Argument #8: ConflictResolution
ConflictResolution applies when you’re working with shared workbooks. More precisely, this argument allows you to determine how conflicts (while saving the Excel workbook) are resolved.
You can set the ConflictResolution parameter to any of the following 3 values:
- 1: Stands for xlUserResolution. In this case, Excel displays a dialog box asking the user to resolve the conflict. This is the default setting in case you omit the ConflictResolution argument.
- 2: Represents xlLocalSessionChanges. If you choose this value, the changes made by the local user are accepted always.
- 3: The value for xlOtherSessionChanges. This is the opposite from the above: the changes made by the local user are rejected always.
The following screenshot shows the code of the Save_Workbook_NewName macro with the ConflictResolution parameter set to the default xlUserResolution.
Argument #9: AddToMru
MRU stands for Most Recently Used. This makes reference to Excel’s list of most recently used files which, generally, you find on the Backstage View.
The AddToMru argument of the Workbook.Save method allows you to determine whether the saved workbook is added to this most recently used list.
If AddToMru is set to True, the Excel workbook is added to the list. The default value of AddToMru is, however, False.
In the following image, you can see the VBA code behind the sample Save_Workbook_NewName macro with AddToMru set to True:
As mentioned above, I’m not covering in detail the TextCodePage and TextVisualLayout arguments (arguments #10 and #11).
Argument #12: Local
The last argument of the Workbook.SaveAs method is Local. As implied by its name, Local refers to language and localization aspects of the saved workbook.
More precisely, the Local parameter allows you to determine whether the saved workbook is saved against the language of:
- Excel, as generally determined from the control panel setting; or
- VBA, which is usually US-English. The basic exception to this rule of VBA’s language being US-English occurs when the VBA project that executes the Workbook.SaveAs method is an internationalized XL5/95 VBA project. My guess is that you’re unlikely to work with such projects often.
To determine how Excel proceeds in connection with this topic, you can set the Local argument to True or False.
- True: Saves the workbook against Excel’s language.
- False: Saves the Excel workbook against VBA’s language.
In the following image, you can see the sample Save_Workbook_NewName with the Local parameter set to True:
How To Save A Copy Of An Excel Workbook Using The Workbook.SaveCopyAs VBA Method
The Save and SaveAs methods explained above are the basic methods you’ll need to save Excel workbooks using VBA.
However, both of these methods save and modify the current open Excel workbook. You may encounter some situations where this isn’t the outcome you desire.
In other words, you’ll probably be in situations where you want a macro to simply:
- Save a copy of the current Excel workbook, but…
- Don’t actually modify the current file in the memory of the computer.
These type of situations are great for using the Workbook.SaveCopyAs VBA method. This method does precisely this. It takes the workbook and:
- Saves a copy to a file.
- Doesn’t modify it in memory.
The syntax of the SaveCopyAs method is, once again, relatively simple:
expression.SaveCopyAs(Filename)
Just as with the other methods explored in this Excel tutorial, “expression” represents a Workbook object. “Filename”, the only parameter of the SaveCopyAs method is the full file path, name and extension of the copy that you’re saving.
Since you’re likely to use this method on the active workbook most of the time, you’ll probably end up using the following syntax often:
ActiveWorkbook.SaveCopyAs(Filename)
Another commonly used alternative is to use the ThisWorkbook property instead of ActiveWorkbook. The main difference between ThisWorkbook and ActiveWorkbook is that:
- ActiveWorkbook refers to the current active workbook.
- ThisWorkbook refers to the workbook where the macro is actually stored.
Let’s take a look at an example of a macro that uses the Workbook.SaveCopyAs method to save a copy of the current active workbook:
The screenshot below shows a macro called “Save_Copy_Workbook”.
This macro has a single (quite long) statement. This goes as follows:
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & “Copy ” & Format(Now, “yy-mm-dd”) & ” ” & ActiveWorkbook.Name
Notice that the structure I use in the Save_Copy_Workbook macro follows the basic syntax of the Workbook.SaveCopyAs method explained above. However, let’s split the statement in 2 parts in order to understand better what’s going on, and what can this particular method do for you:
Part #1: ActiveWorkbook.SaveCopyAs
This is the reference to the SaveCopyAs method. It follows the basic syntax explained above.
“ActiveWorkbook” makes reference to the Application.Workbook property. This property returns a Workbook object representing the current active workbook. This active workbook is the one which is manipulated by the SaveCopyAs method.
In other words, the statement simply tells Excel to proceed as follows:
- Step #1: Take the current active workbook.
- Step #2: Save a copy of the current active workbook, without actually modifying it in memory.
Part #2: Filename:=ActiveWorkbook.Path & “Copy ” & Format(Now, “yy-mm-dd”) & ” ” & ActiveWorkbook.Name
This part of the statement specifies the only argument of the Workbook.SaveCopyAs method:
The Filename.
This particular file name for the copy is slightly long but, basically, is built by concatenating 5 items. You use the ampersand (&) operator to concatenate the different items.
Item #1: ActiveWorkbook.Path
This makes reference to the Workbook.Path property. The Path property returns the complete path to the relevant workbook.
In the case of the example above, “ActiveWorkbook.Path” is used to get the path to the current active workbook.
Let’s assume, for example, that the current active workbook (called “Book1”) is saved in the D drive. In this case the path is, simply “D:”.
This sample path (D:) isn’t very long or complicated. However, in practice, you’re more likely to work with longer and more complicated paths that you are to work with just the D drive.
Items #2 And #4: “Copy ” and ” “
This are, simply, text strings. The first string specifies that the first word in the file name is “Copy”. The second string adds a space ( ).
Item #3: Format(Now, “yy-mm-dd”)
This particular statement uses 2 VBA built-in functions, as follows:
- Now returns today’s date and the current time. Alternatively, you can use the Date function, which returns the current date.
- Format takes the date returned by Now and formats it according to the date format “yy-mm-dd”.
In other words, this part of the argument is responsible for returning the date in which the copy is saved in the format yy-mm-dd.
For example, if the date in which you save the copy of the workbook is November 30 of 2015, this item returns 15-11-30.
Item #5: ActiveWorkbook.Name
This item uses the Workbook.Name property to get the name of the workbook.
For example, if the name of the workbook is “Best Excel Tutorial”, Workbook.Name returns exactly that.
In order to make everything clear regarding the Workbook.SaveCopyAs method, let’s take a look at an example:
How To Save A Copy Of An Excel Workbook Using The Workbook.SaveCopyAs VBA Method: An Example
Let’s assume that the current active workbook is called “Best Excel Tutorial” and is saved in the D drive (D:). This is how the D drive looks like before I run the sample Save_Copy_Workbook macro:
The following screenshot shows how the same drive looks after I run the macro. Notice how, now, there’s a new Excel workbook. This is the copy created by the Save_Copy_Workbook Sub procedure.
Let’s go back to the Filename argument of the SaveCopyAs method used within the Save_Copy_Workbook macro:
Filename:=ActiveWorkbook.Path & “Copy ” & Format(Now, “yy-mm-dd”) & ” ” & ActiveWorkbook.Name
Notice how, each of the 5 items explained above expresses itself in practice once the macro is run:
- Item #1: The copy is saved in the same folder as the original workbook, as given by the Workbook.Path property.
- Items #2 and #4: The first word in the actual workbook name is Copy, as determined by the string “Copy”. Also, there is a space between the date (15-11-19) and the original workbook’s name (Best Excel Tutorial) as specified by ” “.
- Item #3: The date in which the workbook is saved (November 19 of 2015 in the example above) is added to the name in the format yy-mm-dd (15-11-19).
- Item #5: The name of the original workbook (Best Excel Tutorial) is added at the end of the copy’s name.
The following image shows this:
How To Name A Workbook Using The Application.GetSaveAsFilename Method
I introduced the Application.GetSaveAsFilename method above. This method is used by one of the sample macros (Save_Workbook_NewName) for purposes of opening the Save As dialog box and allow users to easily browse and enter the path, name and file extension of the saved Excel workbook.
The screenshot below shows the VBA code of the Save_Workbook_NewName macro. Notice the presence of the Application.GetSaveAsFilename method.
The Application.GetSaveAsFilename method doesn’t actually save a file. However, GetSaveAsFilename is a helpful method to use whenever you have a macro that needs to get a file name from the user in order to, among others, save a workbook.
GetSaveAsFilename is useful when the procedure needs to receive/know the name of the file to save. This gives the user the possibility of specifying the file’s path and filename.
As I explain below, you can use the Application.GetSaveAsFilename method precisely for these purposes.
The GetSaveAsFilename method has a few parameters that allow you to customize some of its characteristics. Let’s take a closer look at the method itself and its arguments, starting with:
The Application.GetSaveAsFilename Method: Purpose
The Application.GetSaveAsFilename method does 2 things:
- Displays the Save As dialog box.
- Gets the file name entered by the user in the Save As dialog box.
GetSaveAsFilename doesn’t save a workbook by itself. That’s why, for example, the Save_Workbook_NewName macro above includes uses the Workbook.SaveAs method to actually save the Excel workbook.
The Application.GetSaveAsFilename Method: Syntax
The full syntax of the Application.GetSaveAsFilename method is as follows:
expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
“expression” is used to represent the Application object. You’re, therefore, likely to usually use the following basic syntax for this method:
Application.GetSaveAsFilename
This is the syntax used in the version of the Save_Workbook_NewName method shown above.
All of the 5 arguments of the GetSaveAsFilename method are optional. Let’s take a look at them:
The Application.GetSaveAsFilename Method: Arguments
The following table provides a basic description of the 5 parameters of the Application.GetSaveAsFilename method. I explain each of them more thoroughly below.
Position | Name | Description |
---|---|---|
1 | InitialFilename | Specifies a suggested/default file name. |
2 | FileFilter | Determines file filtering criteria. |
3 | FilterIndex | Determines the default file filter. |
4 | Title | Determines the title of the (usually called) Save As dialog box. |
5 | ButtonText | Applies only in the Mac platform.
Determines the text of the (normally called) Save As button. |
There are quite a few similarities between the GetSaveAsFilename method and the GetOpenFilename method (which I describe here). In terms of their arguments, the main differences are as follows:
- GetSaveAsFilename has the InitialFilename argument. GetOpenFilename doesn’t.
- GetOpenFilename has the MultiSelect argument. GetSaveAsFilename doesn’t.
Both of these differences make sense. For example, MultiSelect allows you to determine whether a user can select multiple file names at the same time. This makes sense in the context of opening files. But not in the context of saving files with the GetSaveAsFilename method.
Let’s take a look at each of the parameters introduced above:
Argument #1: InitialFilename
The InitialFilename of the Application.GetSaveAsFilename method allows you to set a suggested file name. This suggested file name is the one that appears, by default, in the File name box of the Save As dialog.
The Save As dialog box displayed above is the result of running the following version of the Save_Workbook_NewName macro. Notice that the InitialFilename argument is added and the suggested name is “Best Excel Tutorial”, as displayed in the image above.
Argument #2: FileFilter
The FileFilter argument of the Application.GetSaveAsFilename method allows you to determine the criteria for file filtering within the Save As dialog box.
These file filtering criteria determine what appears in the Save as type drop-down list box of the Save As dialog box. If you omit the FileFilter argument, the default (as shown in the image below) is All Files.
This isn’t ideal because it may lead to the saved Excel workbook being of an unrecognizable file type if the user doesn’t enter the file extension when saving the file.
However, my guess is that you’ll be in situations where specifying the file filtering criteria is more convenient or, even, necessary. In order to be able to determine which file filters appear in the Save As dialog box, you’ll need to follow the 4 guidelines below.
Don’t worry if the guidelines don’t seem that clear at first. I show you a practical example of VBA code after making the introduction and basic description.
Guideline #1: Each Filter Consists Of A Pair Of Strings.
Each filter you specify when using the FileFilter argument is made up of 2 strings separated by a comma. This looks, roughly, as follows:
String1,String2
String1 and String2 have different structures and purposes. More precisely:
- String1: Is a descriptive string. This string determines what actually appears in the Save as type drop-down box of the Save As dialog box.
- String2: Is the MS-DOS wildcard file-type filter specification. In other words, this string determines how the files are actually filtered depending on their file format.
You don’t need to follow many guidelines regarding the way in which the first string (String1) is specified. However, you do need to follow a more specific syntax when specifying the second string (String2). Let’s take a look at it:
Guideline #2: Syntax To Specify The File-Type Filter.
The second string that you use to specify a file filter is itself composed of 3 elements which are, generally speaking, as follows:
- Element #1: An asterisk (*), used as a wildcard.
- Element #2: A dot (.).
- Element #3: An indication of the file extension used to filter the files. This particular element is usually composed of (where appropriate) an asterisk (*), used as a wildcard, and/or (if appropriate), some text.
The most basic filter is all files, which in practice means that there’s no filter. To specify a file-type filter than includes all files using the syntax above, you’d type asterisk dot asterisk (*.*).
Other examples of file-type filter specifications following this syntax are the following:
- *.txt for text files.
- *.xla for add-ins.
- *.xlsx for Excel workbooks.
- *.xlsm for Macro-Enable Excel workbooks.
- *.xls for Excel 97 to Excel 2003 workbooks.
- *.csv for CSV files.
Knowing these first 2 guidelines is enough for you to start using the FileFilter argument. However, they only explain how to specify a single filter according to a single file type.
However, when working with FileFilter, you can actually specify:
- Several different filters; as well as
- Several different file types for each filter.
The next 2 guidelines show how you can do each of these:
Guideline #3: Syntax To Specify Several Filters.
You can create more than a single filter with the FileFilter argument. In order to so, use commas (,) to separate the filters. In other words, separate each of the pair of strings that constitute a filter from the other pair of strings by using commas (,).
This looks, roughly, as follows:
String1Filter1,String2Filter1,String1Filter2,String2Filter2
Guideline #4: Syntax To Specify Several File Types In A Single Filter.
If you need to filter according to several different data types, you can use several filters by using the syntax explained above.
Alternatively, you can specify several data types for a particular single filter. To do this, separate the MS-DOS wildcard expressions that you use with semicolons (;). This looks roughly as follows:
String1,String2.1;String2.2
Those are the 4 basic guidelines you need to bear in mind to start using the FileFilter argument. Let’s go back to the Save_Workbook_NewName macro and create some file filters:
The following screenshot shows (again) the VBA code behind Save_Workbook_NewName. Notice that the FileFilter argument has been inserted and its syntax follows all of the guidelines I explained above.
To make this clearer, let’s break the argument value into its different parts and highlight how it complies with all of the guidelines described above.
The complete argument is as follows:
“Excel Workbook,*.xlsx,Excel Macro-Enabled Workbook,*xlsm,Excel Templates,*.xltx;*.xltm”
Notice the following things:
- There are 3 filters. Each of the filters is separated from the other by commas (,).
- Each filter is composed of 2 parts: a descriptive string and the relevant MS-DOS wildcard file-type filter specification. These 2 parts are separated by commas (,).
- MS-DOS wildcard file-type filter specifications follow the syntax described above: (i) asterisk (*); (ii) dot (.); and (iii) file extension specification, without wildcard asterisks in this case.
- The last filter uses 2 different file types. These file types are separated by a semicolon (;).
The following image shows how all of the above looks like in practice. Notice how, now, there are 3 different options within the Save as Type box of the Save As dialog box. These 3 filters are those created by the FileFilter argument of the Application.GetSaveAsFilename method.
Argument #3: FilterIndex
Notice how, in the image above, the default file filtering criteria is “Excel Workbook”. This is the first filter that was specified with the FileFilter argument.
You can, however, change the default file filtering criteria by using the FilterIndex argument. You do this by specifying the index number of the criteria you want to set as default.
As a consequence of the above, the FilterIndex argument can take any value between 1 (the first filter) and the number of filters you’ve specified with the FileFilter argument (3 in the example above).
If you set the FilterIndex value to a number higher than the amount of available filters (4 or higher in the case of the Save_Workbook_NewName macro), the first filter is used. In other words, the practical result of specifying an index number that is too high, is the same as that of omitting the FilterIndex parameter.
The following screenshot shows the code of the Save_Workbook_NewName macro with the FilterIndex parameter set to 2.
In the case of this macro, a FilterIndex value of 2 means that “Excel Macro-Enabled Workbook” is the new default filter.
Argument #4: Title
The Title argument of the Application.GetSaveAsFilename method allows you to modify the title of the (usually called) Save As dialog box. If you omit the argument, the default title (Save As) is maintained.
The following image shows how this argument can be used to change the title of the Save As dialog box when executing the Save_Workbook_NewName macro. In this case, the Title argument is set to “VBA Save Excel Workbook”.
When this macro is executed, the (previously called) Save As dialog looks as follows. Notice that the title has indeed changed to “VBA Save Excel Workbook”.
Argument #5: ButtonText
The ButtonText parameter is only applicable in the Mac platform. If you use this argument in Windows, it’s simply ignored.
For those cases where it is applicable, the ButtonText argument allows you to set the text that appears in the (usually known as) Save button.
Conclusion
Knowing how to save Excel workbooks using VBA is essential.
If you’ve read this Excel tutorial, you now know the basics of how to save workbooks using VBA. In fact, you’ve seen 3 different ways to achieve this:
- Using the Workbook.Save method.
- Using the Workbook.SaveAs method.
- Using the Workbook.SaveCopyAs method.
Each of these cases is explained with the help of a real example of VBA code.
Additionally, in the last section of this blog post, I explained the Application.GetSaveAsFilename method. Even though this method doesn’t actually save a file by itself, it allows you to display the Save As dialog so that the users of your macro can easily specify the path and file name of the workbook they’re saving.
На чтение 19 мин. Просмотров 14.2k.
John Naisbitt
Мы тонем в информации, но жаждем знаний
Эта статья содержит полное руководство по использованию рабочей книги VBA.
Если вы хотите использовать VBA для открытия рабочей книги, тогда откройте «Открыть рабочую книгу»
Если вы хотите использовать VBA для создания новой рабочей книги, перейдите к разделу «Создание новой рабочей книги».
Для всех
других задач VBA Workbook, ознакомьтесь с кратким руководством ниже.
Содержание
- Краткое руководство по книге VBA
- Начало работы с книгой VBA
- Доступ к рабочей книге VBA по индексу
- Поиск всех открытых рабочих книг
- Открыть рабочую книгу
- Проверить открыта ли книга
- Закрыть книгу
- Сохранить книгу
- Копировать книгу
- Использование диалогового окна «Файл» для открытия рабочей книги
- Использование ThisWorkbook
- Использование ActiveWorkbook
- Примеры доступа к книге
- Объявление переменной VBA Workbook
- Создать новую книгу
- With и Workbook
- Резюме
- Заключение
Краткое руководство по книге VBA
В следующей таблице приведено краткое руководство по
основным задачам книги VBA.
Задача | Исполнение |
Доступ к открытой книге с использованием имени |
Workbooks(«Пример.xlsx») |
Доступ к открытой рабочей книге (открывшейся первой) |
Workbooks(1) |
Доступ к открытой рабочей книге (открывшейся последней) |
Workbooks(Workbooks.Count) |
Доступ к активной книге | ActiveWorkbook |
Доступ к книге, содержащей код VBA |
ThisWorkbook |
Объявите переменную книги | Dim wk As Workbook |
Назначьте переменную книги | Set wk = Workbooks(«Пример.xlsx») Set wk = ThisWorkbook Set wk = Workbooks(1) |
Активировать книгу | wk.Activate |
Закрыть книгу без сохранения | wk.Close SaveChanges:=False |
Закройте книгу и сохраните | wk.Close SaveChanges:=True |
Создать новую рабочую книгу | Set wk = Workbooks.Add |
Открыть рабочую книгу | Set wk =Workbooks.Open («C:ДокументыПример.xlsx») |
Открыть книгу только для чтения |
Set wk = Workbooks.Open («C:ДокументыПример.xlsx», ReadOnly:=True) |
Проверьте существование книги | If Dir(«C:ДокументыКнига1.xlsx») = «» Then MsgBox «File does not exist.» EndIf |
Проверьте открыта ли книга | Смотрите раздел «Проверить открыта ли книга» |
Перечислите все открытые рабочие книги |
For Each wk In Application.Workbooks Debug.Print wk.FullName Next wk |
Открыть книгу с помощью диалогового окна «Файл» |
Смотрите раздел «Использование диалогового окна «Файл» |
Сохранить книгу | wk.Save |
Сохранить копию книги | wk.SaveCopyAs «C:Копия.xlsm» |
Скопируйте книгу, если она закрыта |
FileCopy «C:file1.xlsx»,»C:Копия.xlsx» |
Сохранить как Рабочая книга | wk.SaveAs «Резервная копия.xlsx» |
Начало работы с книгой VBA
Мы можем получить доступ к любой открытой книге, используя код Workbooks («Пример.xlsm»). Просто замените Пример.xlsm именем книги, которую вы хотите использовать.
В следующем примере показано, как записать в ячейку на листе. Вы заметите, что мы должны были указать рабочую книгу, рабочий лист и диапазон ячеек.
Sub ZapisVYacheikuA1() 'Записывает 100 в ячейку A1 листа "Лист1" в МойVBA.xlsm Workbooks("МойVBA.xlsm").Worksheets("Лист1").Range("A1") = 100 End Sub
Этот пример может показаться немного запутанным для новичка, но на самом деле он довольно прост.
Первая часть до десятичной запятой представляет собой
рабочую книгу, вторая часть представляет собой рабочую таблицу, а третья —
диапазон. Вот еще несколько примеров записи в ячейку
Sub ZapisiVYacheiku() ' Записывает 100 в ячейку A1 листа "Лист1" в МойVBA.xlsm Workbooks("МойVBA.xlsm").Worksheets("Лист1").Range("A1") = 100 ' Записывает «Иван» в ячейку B1 листа «Лист1» в МойVBA.xlsm Workbooks("МойVBA.xlsm").Worksheets("Лист1").Range("B1") = "Иван" ' Записывает 100 в ячейку A1 таблицы «Счета» в МойVBA.xlsm Workbooks("МойVBA.xlsm").Worksheets("Счета").Range("A1") = 100 ' Записывает дату в ячейку D3 рабочего листа "Лист2" в Книга.xlsx Workbooks("Книга.xlsx").Worksheets("Лист2").Range("D3") = "112019" End Sub
Это простой шаблон. Вы можете написать в любую ячейку любого листа из любой книги. Это просто вопрос изменения названия книги, имени листа и диапазона в соответствии с вашими потребностями.
Взгляните на часть книги
Ключевое слово Workbooks относится к совокупности всех открытых рабочих книг. Предоставление имени книги в коллекцию дает нам доступ к этой книге. Когда у нас есть объект, мы можем использовать его для выполнения задач с книгой.
Устранение неполадок в коллекции книг
Когда вы используете коллекцию Workbooks для доступа к книге, вы можете получить сообщение об ошибке:
Run-time Error 9: Subscript out of Range.
Это означает, что VBA не может найти книгу, которую вы
передали в качестве параметра.
Это может произойти по следующим причинам:
- Рабочая книга в настоящее время закрыта.
- Вы написали имя неправильно.
- Вы создали новую рабочую книгу (например, «Книга1») и попытались получить к ней доступ, используя Workbooks («Книга1.xlsx»). Это имя не Книга1.xlsx, пока оно не будет сохранено в первый раз.
- (Только для Excel 2007/2010) Если вы используете два экземпляра Excel, то Workbooks () относится только к рабочим книгам, открытым в текущем экземпляре Excel.
- Вы передали число в качестве индекса, и оно больше, чем количество открытых книг, например Вы использовали
Workbooks (3), и только две рабочие книги открыты.
Если вы не можете устранить ошибку, воспользуйтесь любой из функций в разделе Поиск всех открытых рабочих книг. Они будут печатать имена всех открытых рабочих книг в «Immediate Window » (Ctrl + G).
Примеры использования рабочей книги VBA
Следующие примеры показывают, что вы можете сделать с
книгой.
Примечание. Чтобы попробовать этот пример, создайте две открытые книги с именами Тест1.xlsx и Тест2.xlsx.
Sub SvoistvaRabocheiKnigi() ' Печатает количество открытых рабочих книг Debug.Print Workbooks.Count ' Печатает полное название книги Debug.Print Workbooks("Тест1.xlsx").FullName ' Отображает полное имя книги в диалоговом окне сообщения. MsgBox Workbooks("Тест1.xlsx").FullName ' Печатает количество листов в Тест2.xlsx Debug.Print Workbooks("Тест2.xlsx").Worksheets.Count ' Печатает имя активного в данный момент листа Тест2.xlsx Debug.Print Workbooks("Тест2.xlsx").ActiveSheet.Name ' Закрывает книгу под названием Тест1.xlsx Workbooks("Tест1.xlsx").Close ' Закрывает книгу Тест2.xlsx и сохраняет изменения Workbooks("Tест2.xlsx").Close SaveChanges:=True End Sub
Примечание: в примерах кода я часто использую Debug.Print. Эта функция печатает значения в Immediate Window. Для просмотра этого окна выберите View-> Immediate Window из меню (сочетание клавиш Ctrl + G)
Доступ к рабочей книге VBA по индексу
Вы также можете использовать индексный номер с книгами ().
Индекс относится к порядку, в котором книга была открыта или создана.
Workbooks (1) относится к книге, которая была открыта первой. Workbooks (2) относится к рабочей книге, которая была открыта второй и так далее.
' Первая рабочая книга, которая была открыта Debug.Print Workbooks(1).Name ' Третья рабочая тетрадь, которая была открыта Debug.Print Workbooks(3).Name ' Последняя рабочая книга, которая была открыта Debug.Print Workbooks(Workbooks.Count).Name
В этом примере мы использовали Workbooks.Count. Это количество рабочих книг, которые в настоящее время находятся в коллекции рабочих книг. То есть количество рабочих книг, открытых на данный момент. Таким образом, использование его в качестве индекса дает нам последнюю книгу, которая была открыта
Использование индекса не очень полезно, если вам не нужно знать порядок. По этой причине вам следует избегать его использования. Вместо этого вы должны использовать имя рабочей книги вместе с Workbooks ().
Поиск всех открытых рабочих книг
Иногда вы можете получить доступ ко всем рабочим книгам, которые открыты. Другими словами, все элементы в коллекции Workbooks ().
Вы можете сделать это, используя цикл For Each.
Sub PechatImeniFailaEach() ' Распечатывает полное имя файла всех открытых рабочих книг Dim wrk As Workbook For Each wrk In Workbooks Debug.Print wrk.FullName Next wrk End Sub
Вы также можете использовать стандартный цикл For для доступа ко всем открытым рабочим книгам.
Sub PechatImeniFailaFor() ' Распечатывает полное имя файла всех открытых рабочих книг Dim i As Long For i = 1 To Workbooks.Count Debug.Print Workbooks(i).FullName Next i End Sub
Для доступа к книгам подходит любой из этих циклов.
Стандартный цикл For полезен, если вы хотите использовать другой порядок или
вам нужно использовать счетчик.
Примечание. Оба примера читаются в порядке с первого открытого до последнего открытого. Если вы хотите читать в обратном порядке (с последнего на первое), вы можете сделать это
Sub PechatImeniFailaForKon() ' Распечатывает полное имя файла всех открытых рабочих книг ' в обратном порядке. Dim i As Long For i = Workbooks.Count To 1 Step -1 Debug.Print Workbooks(i).FullName Next i End Sub
Открыть рабочую книгу
До сих пор мы имели дело с рабочими книгами, которые уже открыты. Конечно, необходимость вручную открывать рабочую книгу перед запуском макроса не позволяет автоматизировать задачи. Задание «Открыть рабочую книгу» должно выполняться VBA.
Следующий код VBA открывает книгу «Книга1.xlsm» в папке «C: Документы»
Sub OtkritKnigu() ' Откройте книгу и распечатайте количество листов в ней Workbooks.Open ("C:ДокументыКнига1.xlsm") Debug.Print Workbooks("Книга1.xlsm").Worksheets.Count ' Закройте книгу без сохранения Workbooks("Книга1.xlsm").Close saveChanges:=False End Sub
Рекомендуется проверить, действительно ли существует книга,
прежде чем открывать ее. Это предотвратит ваши ошибки. Функция Dir позволяет
вам легко это сделать.
Sub OtkritKniguDir() If Dir("C:ДокументыКнига1.xlsm") = "" Then ' Файл не существует - сообщение пользователю MsgBox "Could not open the workbook. Please check it exists" Else ' открыть книгу и сделать что-нибудь с ней Workbooks.Open("C:ДокументыКнига1.xlsm").Open End If End Sub
Проверить открыта ли книга
Если вы открываете книгу только для чтения, то не имеет значения, открыта ли она уже. Тем не менее, если вы собираетесь обновить данные в рабочей книге, рекомендуется проверить, открыты ли они.
Приведенную ниже функцию можно использовать для проверки,
открыта ли книга в данный момент. Если нет, то откроется рабочая книга. В любом
случае вы получите открытую рабочую книгу.
Function GetWorkbook(ByVal sFullFilename As String) As Workbook Dim sFilename As String sFilename = Dir(sFullFilename) On Error Resume Next Dim wk As Workbook Set wk = Workbooks(sFilename) If wk Is Nothing Then Set wk = Workbooks.Open(sFullFilename) End If On Error Goto 0 Set GetWorkbook = wk End Function
Вы можете использовать эту функцию так:
Sub PrimerOtkritiyaKnigi() Dim sFilename As String sFilename = "C:ДокументыКнига2.xlsx" Dim wk As Workbook Set wk = GetWorkbook(sFilename) End Sub
Этот код хорош в большинстве ситуаций. Однако, если рабочая книга может быть открыта в режиме только для чтения или может быть открыта в данный момент другим пользователем, возможно, вы захотите использовать немного другой подход.
Простой способ справиться с этим в этом сценарии состоит в
том, чтобы настаивать на том, что файл должен быть закрыт для успешного запуска
приложения. Вы можете использовать функцию ниже, чтобы просто проверить, открыт
ли уже файл, и если это так, сообщить пользователю, что он должен быть закрыт в
первую очередь.
' Функция для проверки, если книга уже открыта Function IsWorkBookOpen(strBookName As String) As Boolean Dim oBk As Workbook On Error Resume Next Set oBk = Workbooks(strBookName) On Error GoTo 0 If Not oBk Is Nothing Then IsWorkBookOpen = True End If End Function
Пример использования этой функции показан ниже. В этом
случае, если рабочая книга уже открыта, вы сообщаете пользователю, что она
должна быть закрыта для продолжения макроса.
Sub PrimerIsp() Dim sFilename As String sFilename = "C:tempwritedata.xlsx" If IsWorkBookOpen(Dir(sFilename)) = True Then MsgBox "File is already open. Please close file and run macro again." Exit Sub End If ' Написать в книгу здесь End Sub
Если вам нужно проверить, открыта ли книга в другом экземпляре Excel, вы можете использовать атрибут ReadOnly книги. Будет установлено значение true, если оно открыто в другом экземпляре.
Закрыть книгу
Закрыть книгу в Excel VBA очень просто. Вы просто вызываете метод Close рабочей книги.
Обычно, когда вы закрываете книгу в VBA, вы не хотите видеть
сообщения из Excel, спрашивающие, хотите ли вы сохранить файл.
Вы можете указать, сохранять ли книгу или нет, и тогда
сообщения Excel не будут появляться.
' Не сохранять изменения wk.Close SaveChanges:= False ' Сохранить изменения wk.Close SaveChanges:= True
Очевидно, что вы не можете сохранить изменения в книге,
которая в данный момент открыта только для чтения.
Сохранить книгу
Мы только что видели, что вы можете сохранить книгу, когда закроете ее. Если вы хотите сохранить его на любом другом этапе, вы можете просто использовать метод Save.
Вы также можете использовать метод SaveAs
wk.SaveAs "C:Резервная копияСчета.xlsx"
Метод WorkAs SaveAs поставляется с двенадцатью параметрами, которые позволяют вам добавить пароль, установить файл только для чтения и так далее. Вы можете увидеть детали здесь.
Вы также можете использовать VBA для сохранения книги в виде копии с помощью SaveCopyAs.
Копировать книгу
Если рабочая книга открыта, вы можете использовать два метода в приведенном выше разделе для создания копии, т.е. SaveAs и SaveCopyAs.
Если вы хотите скопировать книгу, не открывая ее, вы можете использовать FileCopy, как показано в следующем примере:
Sub KopirovatKnigu() FileCopy "C:ДокументыДокументы.xlsm", "C:ДокументыПример копии.xlsm" End Sub
Использование диалогового окна «Файл» для открытия рабочей книги
В предыдущем разделе показано, как открыть книгу с заданным именем. Иногда вам может понадобиться, чтобы пользователь выбрал рабочую книгу. Вы можете легко использовать Windows File Dialog.
FileDialog настраивается, и вы можете использовать его так:
- Выберите файл.
- Выберите папку.
- Откройте файл.
- «Сохранить как» файл.
Если вы просто хотите, чтобы пользователь выбрал файл, вы можете использовать функцию GetOpenFilename.
Следующая функция открывает книгу с помощью диалога файлов.
Функция возвращает полное имя файла, если файл был выбран. Если пользователь
отменяет, он отображает сообщение и возвращает пустую строку.
Public Function UserSelectWorkbook() As String On Error Goto ErrorHandler Dim sWorkbookName As String Dim FD As FileDialog Set FD = Application.FileDialog(msoFileDialogFilePicker) ' Откройте диалоговое окно файла With FD ' Установить заголовок диалога .Title = "Please Select File" ' Добавить фильтр .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsm" ' Разрешить выбор только одного файла .AllowMultiSelect = False ' Диалог дисплея .Show If .SelectedItems.Count > 0 Then UserSelectWorkbook = .SelectedItems(1) Else MsgBox "Selecting a file has been cancelled. " UserSelectWorkbook = "" End If End With ' Убирать Set FD = Nothing Done: Exit Function ErrorHandler: MsgBox "Error: " + Err.Description End Function
Когда вы вызываете эту функцию, вы должны проверить, отменяет ли пользователь диалог.
В следующем примере показано, как легко вызвать функцию UserSelectWorkbook и обработать случай отмены пользователя.
Public Sub TestViborPolz() Dim userBook As Workbook, sFilename As String ' Вызовите функцию UserSelectworkbook sFilename = UserSelectWorkbook() ' Если имя файла возвращается пустым, пользователь отменил If sFilename <> "" Then ' Откройте книгу и сделайте что-нибудь с ней Set userBook = Workbooks.Open(sFilename) End If End Sub
Вы можете настроить диалог, изменив Title, Filters и AllowMultiSelect в функции UserSelectWorkbook.
Использование ThisWorkbook
Существует более простой способ доступа к текущей книге, чем использование Workbooks() . Вы можете использовать ключевое слово ThisWorkbook. Это относится к текущей книге, то есть к книге, содержащей код VBA.
Если наш код находится в книге, называемой МойVBA.xlsm, то ThisWorkbook и Workbooks («МойVBA.xlsm») ссылаются на одну и ту же книгу.
Использование ThisWorkbook более полезно, чем использование Workbooks (). С ThisWorkbook нам не нужно беспокоиться об имени файла. Это дает нам два преимущества:
- Изменение имени файла не повлияет на код
- Копирование кода в другую рабочую книгу не
требует изменения кода
Это может показаться очень маленьким преимуществом. Реальность такова, что имена будут меняться все время. Использование ThisWorkbook означает, что ваш код будет работать нормально.
В следующем примере показаны две строки кода. Один с помощью ThisWorkbook, другой с помощью Workbooks (). Тот, который использует Workbooks, больше не будет работать, если имя МойVBA.xlsm изменится.
Sub IzmenenieImeni() ' Обе строки делают одно и то же. Debug.Print ThisWorkbook.FullName Debug.Print Workbooks("МойVBA.xlsm").FullName End Sub
Использование ActiveWorkbook
ActiveWorkbook относится к книге, которая в данный момент активна. Это тот, который пользователь последний раз щелкнул.
Поначалу это может показаться полезным. Проблема в том, что
любая рабочая книга может стать активной простым щелчком мыши. Это означает,
что вы можете легко записать данные не в ту книгу.
Использование ActiveWorkbook также затрудняет чтение кода. Из кода может быть не очевидно, какая книга должна быть активной.
Надеюсь, я дал понять, что вам следует избегать использования ActiveWorkbook, если в этом нет необходимости. Если вы должны быть очень осторожны.
Примеры доступа к книге
Мы рассмотрели все способы доступа к книге. Следующий код показывает примеры этих способов.
Sub PrimerDostupaKKnige() ' Это рабочая книга, которая уже открыта и называется МойVBA.xlsm. Debug.Print Workbooks("МойVBA.xlsm").FullName ' Рабочая книга, содержащая этот код Debug.Print ThisWorkbook.FullName ' Открытая рабочая книга, которая была открыта первой Debug.Print Workbooks(1).FullName ' Открытая рабочая книга, которая была открыта последней Debug.Print Workbooks(Workbooks.Count).FullName ' Рабочая книга, которая в настоящее время активна Debug.Print ActiveWorkbook.FullName ' Рабочая книга не указана - будет использована активная Debug.Print Worksheets("Лист1").Name ' Закрытая рабочая книга с именем Книга1.xlsm в папке 'C:Документы Workbooks.Open ("C:ДокументыКнига1.xlsm") Debug.Print Workbooks("Книга1.xlsm").FullName Workbooks("Книга1.xlsm").Close End Sub
Объявление переменной VBA Workbook
Причина объявления переменной книги состоит в том, чтобы сделать ваш код более легким для чтения и понимания. Проще увидеть преимущество на примере:
Sub OtkrKnigaPerem() Dim wrk As Workbook Set wrk = Workbooks.Open("C:ДокументыКнига1.xlsm") ' Распечатать количество листов в каждой книге Debug.Print wrk.Worksheets.Count Debug.Print wrk.Name wrk.Close End Sub
Вы можете установить переменную книги с помощью любого из
методов доступа, которые мы видели.
Ниже показан тот же код без переменной рабочей книги.
Sub OtkrKnigaNetPerem() Workbooks.Open ("C:ДокументыКнига1.xlsm") Debug.Print Workbooks("Книга2.xlsm").Worksheets.Count Debug.Print Workbooks("Книга2.xlsm").Name Workbooks("Книга2.xlsm").Close End Sub
В этих примерах разница несущественная. Однако, когда у вас много кода, использование переменной полезно, в частности, для рабочего листа и диапазонов, где имена имеют тенденцию быть длинными, например thisWorkbook.Worksheets («Лист1»). Range («A1»).
Вы можете назвать переменную книги как wrkRead или wrkWrite. Затем вы можете сразу увидеть,
для чего используется эта книга.
Создать новую книгу
Для создания новой рабочей книги вы используете функцию добавления рабочих книг. Эта функция создает новую пустую книгу. Это то же самое, что выбрать «Новая книга» в меню «Файл Excel».
Когда
вы создаете новую книгу, вы, как правило, хотите сохранить ее. Следующий код
показывает вам, как это сделать.
Sub SozdatKnigu() Dim wrk As Workbook Set wrk = Workbooks.Add ' Сохранить как xlsx. Это по умолчанию. wrk.SaveAs "C:TempПример.xlsx" ' Сохранить как макрокоманду wrk.SaveAs "C:TempПример.xlsm", xlOpenXMLWorkbookMacroEnabled End Sub
Когда вы создаете новую книгу, она обычно содержит три листа. Это определяется свойством Application.SheetsInNewWorkbook.
Если вы хотите, чтобы в новой книге было другое количество
листов, измените это свойство перед созданием новой книги. В следующем примере
показано, как создать новую книгу с семью листами.
Sub SozdatKniguMnStr() ' Сохраните значение SheetsInNewWorkbook, чтобы мы могли сбросить его позже Dim sheetCnt As Long sheetCnt = Application.SheetsInNewWorkbook ' Установите листы в новой книге, чтобы быть 7 Application.SheetsInNewWorkbook = 7 ' Рабочая книга будет создана из 7 листов Dim wrk As Workbook Set wrk = Workbooks.Add ' Показать количество листов Debug.Print "number of sheets: " & CStr(wrk.Worksheets.Count) ' Сброс к первоначальному значению Application.SheetsInNewWorkbook = sheetCnt End Sub
With и Workbook
Ключевое слово With облегчает чтение и написание кода VBA.
Использование с означает, что вам нужно упомянуть только один раз. С
используется с объектами. Это такие элементы, как рабочие книги, рабочие
таблицы и диапазоны.
В следующем примере есть два Subs. Первый похож на код,
который мы видели до сих пор. Второй использует ключевое слово With. Вы можете
увидеть код гораздо понятнее во втором Sub. Ключевые слова End With обозначают
конец кода раздела с помощью With.
' Не используется ключевое слово With Sub NeIspWith() Debug.Print Workbooks("Книга2.xlsm").Worksheets.Count Debug.Print Workbooks("Книга2.xlsm").Name Debug.Print Workbooks("Книга2.xlsm").Worksheets(1).Range("A1") Workbooks("Книга2.xlsm").Close End Sub ' Использование With делает код легче читать Sub IspWith() With Workbooks("Книга2.xlsm") Debug.Print .Worksheets.Count Debug.Print .Name Debug.Print .Worksheets(1).Range("A1") .Close End With End Sub
Резюме
Ниже приводится краткое изложение основных моментов этой статьи.
- Чтобы получить рабочую книгу, содержащую код, используйте ThisWorkbook.
- Чтобы получить любую открытую книгу, используйте Workbooks («Пример.xlsx»).
- Чтобы открыть книгу, используйте Set Wrk = Workbooks.Open («C: Папка Пример.xlsx»).
- Разрешить пользователю выбирать файл с помощью функции UserSelectWorkbook, представленной выше.
- Чтобы создать копию открытой книги, используйте свойство SaveAs с именем файла.
- Чтобы создать копию рабочей книги без открытия, используйте функцию FileCopy.
- Чтобы ваш код было легче читать и писать, используйте ключевое слово With.
- Другой способ прояснить ваш код — использовать переменные Workbook.
- Чтобы просмотреть все открытые рабочие книги, используйте For Every wk в Workbooks, где wk — это переменная рабочей книги.
- Старайтесь избегать использования ActiveWorkbook и Workbooks (Index), поскольку их ссылка на рабочую книгу носит временный характер.
Вы можете увидеть краткое руководство по теме в верхней части этой статьи
Заключение
Это был подробная статья об очень важном элементе VBA — Рабочей книги. Я надеюсь, что вы нашли ее полезной. Excel отлично справляется со многими способами выполнения подобных действий, но недостатком является то, что иногда он может привести к путанице.
Чтобы получить максимальную пользу от этой статьи, я рекомендую вам попробовать примеры. Создайте несколько книг и поиграйтесь с кодом. Внесите изменения в код и посмотрите, как эти изменения влияют на результат. Практика — лучший способ выучить VBA.
Excel VBA Save As
VBA Save As is the method used to save the Excel file to a specific location. To save the workbook using VBA code, we use the object Workbook with the SaveAs function.
After all the hard work we have done in the workbook, we save it. It is painful to lose the data we have worked on. We have two kinds of saves in Excel or any file. One is “Save,” and another is “Save As.” Ctrl + S is the popular shortcut key as the Ctrl + C and Ctrl + V around the globe. But we are not that familiar with the concept of “Save As.” The worksheet shortcutAn Excel shortcut is a technique of performing a manual task in a quicker way.read more to Save As the file in the regular worksheet is the F12 key. In VBA, too, we can save the file as “Save As.”
Table of contents
- Excel VBA Save As
- What does VBA Save As Function do?
- How to use Save As Function?
- Example #1
- Example #2
- Recommended Articles
You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Save As (wallstreetmojo.com)
What does VBA Save As Function do?
It is a general task of saving work in the automation process. Finally, after all the work, we wish to save the file.
Workbooks("Sales 2019.xlsx").Save
This code reads a Workbook named “Sales 2019.xlsx” to save.
Similarly, replicating the workbook we are working on can be created using the “Save As” method.
- File Name: What is the file name you wish to give? One should combine this with the file folder path.
- File Format: What should be the format for the file you are saving?
- Password: Would you like to provide a password for the saving file?
- Write Res Password: Mention the reserved password for the workbook.
We think these parameters are enough to understand the Save As method.
How to use Save As Function?
You can download this VBA Save As Excel Template here – VBA Save As Excel Template
Example #1
We save a workbook, right? so it is important to mention the workbook name and its extension to use the SaveAs method. So, mention the workbook you are saving.
Code:
Sub SaveAs_Example1() Workbooks("Sales 2019.xlsx"). End Sub
Now, use the Save As method.
Code:
Sub SaveAs_Example1() Workbooks("Sales 2019.xlsx").SaveAs End Sub
Now, identify where you want to save.
Code:
Sub SaveAs_Example1() Workbooks("Sales 2019.xlsx").SaveAs "D:Articles2019 End Sub
Now, put backslash and enter the file name as per your wish with a file extension.
Code:
Sub SaveAs_Example1() Workbooks("Sales 2019.xlsx").SaveAs "D:Articles2019My File.xlsx" End Sub
Now, mention the file format as “xlWorkbook.”
Code:
Sub SaveAs_Example1() Workbooks("Sales 2019.xlsx").SaveAs "D:Articles2019My File.xlsx", FileFormat:=xlWorkbook End Sub
It will save the file in D drive > Folder Name (Articles) > Sub Folder Name (2019).
Example #2
Save All the Opened Workbooks
Assume you are working with 10 workbooks on your computer. You want to create a backup of these workbooks by saving them on the computer as one of the copies. When you want to work with more than one workbook, it is necessary to use the loops.
The below code will help you save all the workbooks as a copy.
Code:
Sub SaveAs_Example2() Dim Wb As Workbook For Each Wb In Workbooks ActiveWorkbook.SaveAs "D:Articles2019" & ActiveWorkbook.Name & ".xlsx" 'Change the file path Next Wb End Sub
You can use this code if you wish to select your folder path.
Code:
Sub SaveAs_Example3() Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename:=FilePath & ".xlsx", FileFormat:=xlOpenXMLWorkbook End Sub
When you run this code using the F5 key or manually, it will ask you to select the destination folder path. Select and click on “OK.” It will save the file.
Recommended Articles
This article has been a guide to VBA Save As. Here, we learn how to use Save As to save an Excel workbook, examples, and downloadable templates. Below are some useful articles related to VBA: –
- Use of DoEvents in VBA
- If Else in VBA
- Intersect in VBA
- Font Color in VBA
- VBA Borders
Содержание
- Метод Worksheet.SaveAs (Excel)
- Синтаксис
- Параметры
- Замечания
- Поддержка и обратная связь
- Worksheet.SaveAs method (Excel)
- Syntax
- Parameters
- Remarks
- Support and feedback
- Workbook.SaveAs method (Excel)
- Syntax
- Parameters
- Remarks
- Example
- Support and feedback
Метод Worksheet.SaveAs (Excel)
Сохраняет изменения на диаграмме или листе в другом файле.
Синтаксис
expression. SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
Выражение Переменная, представляющая объект Worksheet .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
FileName | Обязательный | String | Variant. Строка, указывающая имя сохраняемого файла. Можно включить полный путь; В противном случае Microsoft Excel сохранит файл в текущей папке. |
FileFormat | Необязательный | Variant | Формат файла, используемый при сохранении файла. Список допустимых вариантов см. в перечислении XlFileFormat . Для существующего файла форматом по умолчанию является последний указанный формат файла; Для нового файла по умолчанию используется формат используемой версии Excel. |
Password | Необязательный | Variant | Строка с учетом регистра (не более 15 символов), указывающая пароль защиты, который будет присвоен файлу. |
WriteResPassword | Необязательный | Variant | Строка, указывающая пароль резервирования записи для этого файла. Если файл сохраняется с паролем и пароль не предоставляется при открытии файла, он открывается только для чтения. |
ReadOnlyRecommended | Необязательный | Variant | Значение true для отображения сообщения при открытии файла, в котором рекомендуется открыть файл только для чтения. |
CreateBackup | Необязательный | Variant | Значение True для создания файла резервной копии. |
AddToMru | Необязательный | Variant | Значение true , чтобы добавить эту книгу в список недавно использовавшихся файлов. Значение по умолчанию — False. |
TextCodepage | Необязательный | Variant | Не используется в Microsoft Excel на английском языке США. |
TextVisualLayout | Необязательный | Variant | Не используется в Microsoft Excel на английском языке США. |
Local | Необязательный | Variant | Значение True сохраняет файлы на языке Excel (включая параметры панели управления). Значение False (по умолчанию) сохраняет файлы на языке Visual Basic для приложений (VBA) (как правило, на английском языке США, если проект VBA, из которого выполняется Workbooks.Open, не является старым проектом VBA с интернационализацией XL5/95). |
Замечания
Используйте надежные пароли, содержащие строчные и прописные буквы, цифры и знаки. В слабых паролях эти элементы не комбинируются. Надежный пароль: Y6dh!et5. Слабый пароль: House27. Используйте надежный пароль, который можно запомнить, чтобы не пришлось его записывать.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
Worksheet.SaveAs method (Excel)
Saves changes to the chart or worksheet in a different file.
Syntax
expression.SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
expression A variable that represents a Worksheet object.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
FileName | Required | String | Variant. A string that indicates the name of the file to be saved. You can include a full path; if you don’t, Microsoft Excel saves the file in the current folder. |
FileFormat | Optional | Variant | The file format to use when you save the file. For a list of valid choices, see the XlFileFormat enumeration. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used. |
Password | Optional | Variant | A case-sensitive string (no more than 15 characters) that indicates the protection password to be given to the file. |
WriteResPassword | Optional | Variant | A string that indicates the write-reservation password for this file. If a file is saved with the password and the password isn’t supplied when the file is opened, the file is opened as read-only. |
ReadOnlyRecommended | Optional | Variant | True to display a message when the file is opened, recommending that the file be opened as read-only. |
CreateBackup | Optional | Variant | True to create a backup file. |
AddToMru | Optional | Variant | True to add this workbook to the list of recently used files. The default value is False. |
TextCodepage | Optional | Variant | Not used in U.S. English Microsoft Excel. |
TextVisualLayout | Optional | Variant | Not used in U.S. English Microsoft Excel. |
Local | Optional | Variant | True saves files against the language of Excel (including control panel settings). False (default) saves files against the language of Visual Basic for Applications (VBA) (which is typically US English unless the VBA project where Workbooks.Open is run from is an old internationalized XL5/95 VBA project). |
Use strong passwords that combine uppercase and lowercase letters, numbers, and symbols. Weak passwords don’t mix these elements. Strong password: Y6dh!et5. Weak password: House27. Use a strong password that you can remember so that you don’t have to write it down.
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Источник
Workbook.SaveAs method (Excel)
Saves changes to the workbook in a different file.
Interested in developing solutions that extend the Office experience across multiple platforms? Check out the new Office Add-ins model. Office Add-ins have a small footprint compared to VSTO Add-ins and solutions, and you can build them by using almost any web programming technology, such as HTML5, JavaScript, CSS3, and XML.
Syntax
expression.SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression A variable that represents a Workbook object.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
FileName | Optional | Variant | A string that indicates the name of the file to be saved. You can include a full path; if you don’t, Microsoft Excel saves the file in the current folder. |
FileFormat | Optional | Variant | The file format to use when you save the file. For a list of valid choices, see the XlFileFormat enumeration. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used. |
Password | Optional | Variant | A case-sensitive string (no more than 15 characters) that indicates the protection password to be given to the file. |
WriteResPassword | Optional | Variant | A string that indicates the write-reservation password for this file. If a file is saved with the password and the password isn’t supplied when the file is opened, the file is opened as read-only. |
ReadOnlyRecommended | Optional | Variant | True to display a message when the file is opened, recommending that the file be opened as read-only. |
CreateBackup | Optional | Variant | True to create a backup file. |
AccessMode | Optional | XlSaveAsAccessMode | The access mode for the workbook. |
ConflictResolution | Optional | XlSaveConflictResolution | An XlSaveConflictResolution value that determines how the method resolves a conflict while saving the workbook. If set to xlUserResolution, the conflict-resolution dialog box is displayed. |
If set to xlLocalSessionChanges, the local user’s changes are automatically accepted.
If set to xlOtherSessionChanges, the changes from other sessions are automatically accepted instead of the local user’s changes.
If this argument is omitted, the conflict-resolution dialog box is displayed. AddToMru Optional Variant True to add this workbook to the list of recently used files. The default value is False. TextCodepage Optional Variant Ignored for all languages in Microsoft Excel.
NOTE: When Excel saves a workbook to one of the CSV or text formats, which are specified by using the FileFormat parameter, it uses the code page that corresponds to the language for the system locale in use on the current computer. This system setting is available in the Control Panel > Region and Language > Location tab under Current location. TextVisualLayout Optional Variant Ignored for all languages in Microsoft Excel.
NOTE: When Excel saves a workbook to one of the CSV or text formats, which are specified by using the FileFormat parameter, it saves these formats in logical layout. If left-to-right (LTR) text is embedded within right-to-left (RTL) text in the file, or vice versa, logical layout saves the contents of the file in the correct reading order for all languages in the file without regard to direction. When an application opens the file, each run of LTR or RTL characters are rendered in the correct direction according to the character value ranges within the code page (unless an application that is designed to display the exact memory layout of the file, such as a debugger or editor, is used to open the file). Local Optional Variant True saves files against the language of Microsoft Excel (including control panel settings). False (default) saves files against the language of Visual Basic for Applications (VBA) (which is typically US English unless the VBA project where Workbooks.Open is run from is an old internationalized XL5/95 VBA project).
Use strong passwords that combine uppercase and lowercase letters, numbers, and symbols. Weak passwords don’t mix these elements.
- Strong password: Y6dh!et5
- Weak password: House27
Use a strong password that you can remember so that you don’t have to write it down.
Example
This example creates a new workbook, prompts the user for a file name, and then saves the workbook.
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Источник