Excel vba auto close

Содержание

  1. Метод Workbook.Close (Excel)
  2. Синтаксис
  3. Параметры
  4. Замечания
  5. Пример
  6. Поддержка и обратная связь
  7. Workbook.Close method (Excel)
  8. Syntax
  9. Parameters
  10. Remarks
  11. Example
  12. Support and feedback
  13. Excel VBA Close Workbook: 8 Ready-To-Use Macro Code Examples To Close Workbooks
  14. Workbook.Close Method
  15. SaveChanges Parameter
  16. Filename Parameter
  17. RouteWorkbook Parameter
  18. Workbook.Close Method And Auto_Close Macros
  19. Workbook.Close Method And Add-Ins
  20. Workbooks.Close Method
  21. Excel VBA To Close Workbook Without Prompts
  22. Application.DisplayAlerts Property
  23. Workbook.Saved Property
  24. Macro Code Examples To Close Workbook With Excel VBA
  25. Macro Code Example #1: Excel VBA Close Workbook
  26. Macro Code Example #2: Excel VBA Close Workbook Without Saving Changes
  27. Macro Code Example #3: Excel VBA Close Workbook And Save Changes
  28. Macro Code Example #4: Excel VBA Close Workbook And Save Changes With Filename
  29. Macro Code Examples #5 And #6: Excel VBA Close All Workbooks
  30. Line #1: Dim myWorkbook As Workbook
  31. Line #2: For Each myWorkbook In Workbooks
  32. Line #3: myWorkbook.Close
  33. Line #4: Next myWorkbook
  34. Macro Code Examples #7 And #8: Excel VBA Close Workbook Without Prompt
  35. Line #1: With ActiveWorkbook
  36. Line #2: .Saved = True
  37. Line #3: .Close
  38. Line #4: End With
  39. Conclusion

Метод Workbook.Close (Excel)

Синтаксис

expression. Close (SaveChanges, FileName, RouteWorkbook)

Выражение Переменная, представляющая объект Workbook .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Savechanges Необязательный Variant Если в книге нет изменений, этот аргумент игнорируется. Если в книге есть изменения, а книга отображается в других открытых окнах, этот аргумент игнорируется. Если в книге есть изменения, но книга не отображается в других открытых окнах, этот аргумент указывает, следует ли сохранять изменения. Если задано значение True, изменения сохраняются в книге.

Если имя файла еще не связано с книгой, используется имя файла . Если параметр FileName опущен, пользователю будет предложено указать имя файла. FileName Необязательный Variant Сохраняет изменения под этим именем файла. RouteWorkbook Необязательный Variant Если книга не требуется маршрутизировать к следующему получателю (если она не имеет скольжения маршрутизации или уже была перенаправлена), этот аргумент игнорируется. В противном случае Microsoft Excel направляет книгу в соответствии со значением этого параметра.

Если задано значение True, книга отправляется следующему получателю. Если задано значение False, книга не отправляется. Если этот параметр опущен, пользователю будет предложено отправить книгу.

Замечания

При закрытии книги из Visual Basic в ней не выполняются макросы Auto_Close. Используйте метод RunAutoMacros для запуска макросов Auto_Close.

Пример

Этот пример закрывает Book1.xls и удаляет все внесенные в него изменения.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Workbook.Close method (Excel)

Closes the object.

Syntax

expression.Close (SaveChanges, FileName, RouteWorkbook)

expression A variable that represents a Workbook object.

Parameters

Name Required/Optional Data type Description
SaveChanges Optional Variant If there are no changes to the workbook, this argument is ignored. If there are changes to the workbook and the workbook appears in other open windows, this argument is ignored. If there are changes to the workbook but the workbook doesn’t appear in any other open windows, this argument specifies whether changes should be saved. If set to True, changes are saved to the workbook.

If there is not yet a file name associated with the workbook, FileName is used. If FileName is omitted, the user is asked to supply a file name. FileName Optional Variant Saves changes under this file name. RouteWorkbook Optional Variant If the workbook doesn’t need to be routed to the next recipient (if it has no routing slip or has already been routed), this argument is ignored. Otherwise, Microsoft Excel routes the workbook according to the value of this parameter.

If set to True, the workbook is sent to the next recipient. If set to False, the workbook is not sent. If omitted, the user is asked whether the workbook should be sent.

Closing a workbook from Visual Basic doesn’t run any Auto_Close macros in the workbook. Use the RunAutoMacros method to run the Auto_Close macros.

Example

This example closes Book1.xls and discards any changes that have been made to it.

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.

Источник

Excel VBA Close Workbook: 8 Ready-To-Use Macro Code Examples To Close Workbooks

When working with an Excel workbook, there are a few basic operations that any user needs to know how to carry out. The following are 2 of the most important ones:

These 2 actions are just as important if you’re working with Visual Basic for Applications.

In this tutorial, I focus on topic #2: How you can easily close an Excel workbook with VBA.

For these purposes, in the first few sections of this tutorial, I introduce some VBA constructs that help you create macros that close workbooks. My focus is, mainly, in the Workbook.Close method. However, I also introduce the Workbooks.Close method, which allows you to quickly close all open workbooks. At the end of that first section, I discuss the topic of closing Excel workbooks without prompts and introduce some of the most common ways of achieving this.

In the second section of this post, I go through 8 macro code examples. These VBA code samples use the constructs introduced in the first section for purposes of closing Excel workbooks in different situations. All of the macros are accompanied by an explanation. You can easily adjust the code samples in order to fit your own needs.

This Excel VBA Close Workbook Tutorial is accompanied by an Excel workbook containing the macros I use in the examples below. You can get immediate free access to this example workbook by subscribing to the Power Spreadsheets Newsletter.

Please use the following table of contents to quickly navigate to the section that interests you the most. For best results, you may want to read the whole blog post.

Table of Contents

Let’s start by taking a look at the…

Workbook.Close Method

You can use the Workbook.Close method for purposes of closing the applicable workbook object.

The basic syntax of Workbook.Close is as follows:

expression.Close(SaveChanges, Filename, RouteWorkbook)

The following are the applicable definitions for purposes of the statement above:

    expression: Workbook object.

SaveChanges: Optional argument. You use SaveChanges for purposes of specifying whether to save changes (True) or not (False).

Filename: Optional argument. Filename allows you to specify the filename used by Excel when saving.

  • RouteWorkbook: Optional argument. Makes reference to workbook routing. In that context, it allows you to determine whether the workbook is sent to the next recipient (True) or not (False).

    • Since expression represents a Workbook object, I simplify the syntax above to the following:

    Workbook.Close(SaveChanges, Filename, RouteWorkbook)

    Let’s start by taking a closer look at the 3 parameters (SaveChanges, Filename and RouteWorkbook) above. After covering these arguments, I provide a few additional comments about the Workbook.Close method.

    SaveChanges Parameter

    You use the SaveChanges parameter to specify whether Visual Basic for Applications saves changes to the workbook (or not) when the workbook:

      Has unsaved changes.
  • Doesn’t appear in any other open windows.

    • Both of these conditions must be met in order for VBA to consider SaveChanges. In other words, VBA ignores SaveChanges in the following situations:

      When there aren’t any unsaved changes to the workbook.
  • Where there are changes to the workbook, but the workbook appears within other open windows.

    • SaveChanges is an optional argument. You generally use the following values when working with it:

      True: Close workbook and save changes.
  • False: Close workbook without saving changes.

    • If you omit the SaveChanges parameter and the relevant workbook contains unsaved changes, Excel displays a dialog box. This dialog asks the user whether the changes should be saved or not.

    Filename Parameter

    Filename allows you to specify the filename under which Excel saves the changes to the closed workbook.

    Filename is an optional parameter. Additionally, Filename is only relevant if you set SaveChanges to True. Whenever you set the SaveChanges parameter to False, the changes aren’t saved at all.

    If you omit Filename and the workbook has no previous filename, Excel displays the Save As dialog box and asks the user to provide the filename.

    Despite the above, if you want to ensure that a particular workbook is saved under a certain name and close it, you can generally proceed as follows:

  • Close the workbook by using the Workbook.Close method.

    • This way of proceeding is suggested by authorities such as author Richard Mansfield (in Mastering VBA for Microsoft Office 2016). Some of the advantages of using the SaveAs method (vs. the Filename parameter) for these purposes are the following:

      Ensures that the workbook is always saved under the filename you specify.
  • Allows you to take advantage of the 10 parameters of the SaveAs method. By using these parameters, you can specify items such as (i) file format, and (ii) protection password.

    • RouteWorkbook Parameter

    The RouteWorkbook parameter is associated to workbook routing. You can use RouteWorkbook to specify whether the workbook is routed to the next recipient or not.

    RouteWorkbook is optional.

    The main rules that Visual Basic for Applications uses to determine how to deal with RouteWorkbook are as follows:

      If there’s no need to send the workbook to the next recipient, VBA ignores RouteWorkbook.

    For example, the workbook doesn’t need to be routed if (i) there’s no routing slip attached, or (ii) the routing has already occurred.

    If the workbook needs to be routed, VBA applies the value you specify for RouteWorkbook. You can use the following 2 values:

      True: VBA routes the workbook to the next recipient.

    False: The workbook isn’t sent.

  • If you omit RouteWorkbook and the workbook need to be send, Excel asks the user whether the workbook is routed or not.

    • Workbook.Close Method And Auto_Close Macros

    Auto_Close macros aren’t executed when you close the workbook from VBA. This is relevant if your workbook uses Auto_Close macros (vs. the BeforeClose event) for purposes of automatically running a macro before a workbook closes. The Workbook.Close method does trigger the BeforeClose event.

    If you need to deal with Auto_Close macros and want the macro to be executed when you use the Workbook.Close method, use the Workbook.RunAutoMacros method.

    Workbook.Close Method And Add-Ins

    Usually, you install and uninstall add-ins through the Add-Ins dialog.

    You can also open and close add-ins. In other words, you can theoretically apply the Workbook.Close method to an add-in.

    As a consequence of the above, if you’ve accessed an add-in as a workbook (vs. using the Add-Ins dialog box), you can close it with the Close method. However, as a general rule, this isn’t the most appropriate way to deal with add-ins.

    The reason for this is explained by Excel authorities Dick Kusleika and Mike Alexander in Excel 2016 Power Programming with VBA, as follows:

    Using the Close method on an installed add-in removes the add-in from memory but does not set its Installed property to False. Therefore, the Add-Ins dialog box still lists the add-in as installed, which can be confusing.

    Therefore, as a general rule, use the AddIn.Installed property for purposes of installing and removing add-ins.

    Workbooks.Close Method

    You can also apply the Close method to the collection of all open Excel workbooks. In other words, you can use the Workbooks.Close method to close all Excel workbooks at once.

    The basic syntax of Workbooks.Close is as follows:

    “expression” represents the Workbooks collection. Therefore, I simplify the above as follows:

    The Workbooks.Close method is, to a certain extent, similar to the Workbook.Close method I explain above. For example, Auto_Close macros aren’t executed when you close a workbook with either of these methods. Therefore, my comments above regarding Auto_Close macros and Workbook.Close are also generally applicable to Workbooks.Close.

    There’s, however, a very important difference between Workbook.Close and Workbooks.Close:

    Workbooks.Close takes no parameters. As I explain above, Workbook.Close has 3 parameters (SaveChanges, Filename and RouteWorkbook).

    As a consequence of the above, if you want to use any (or all) of the parameters I describe above while closing all open workbooks, you generally have to rely on loops.

    Further below, I provide macro code examples that you can use to close all open workbooks using either of these 2 methods:

    Excel VBA To Close Workbook Without Prompts

    In certain cases, you want to ensure that Excel closes a particular workbook without showing any prompts.

    When working with the Close VBA method, the prompts that you usually have to deal with ask one of the following questions:

      Should Excel save the changes?

    What filename should Excel use?

    There are a few different ways in which you can handle this using Visual Basic for Applications. The most common ways of tackling this issue are the following 4:

      Saving the workbook prior to using the Close method.

    Appropriately using the SaveChanges and Filename parameters of the Workbook.Close method.

    Using the Application.DisplayAlerts property.

  • Setting the Workbook.Saved property to True.

    • I cover the topic of how to save a workbook using VBA (#1 above) in a separate blog post that you can find in the Archives. I cover both the SaveChanges and Filename arguments (#2 above) in this tutorial.

    Therefore, in the following sections, I introduce the remaining VBA constructs #3 (Application.DisplayAlerts) and #4 (Workbook.Saved). Using either of these 2 properties results in Excel closing the workbook without prompts. In both cases, Excel closes the file without saving the changes.

    Application.DisplayAlerts Property

    The Application.DisplayAlerts property allows you to specify whether or not Excel displays certain prompts and alerts. For these purposes, you can set Application.DisplayAlerts to either of the following values:

      True: The default value. Excel displays alerts and messages.
  • False: The alerts and messages aren’t displayed. If a particular alert or message requires a user response, Excel uses the default.

    • The basic syntax of Application.DisplayAlerts is as follows:

    “expression” is the Excel Application object. Therefore, I simplify the above as follows:

    Macro example #7 below uses the Application.DisplayAlerts property for purposes of closing a workbook without prompts. There are, however, other (better) ways of using VBA to close an Excel workbook without displaying prompts. I provide further explanation of this matter in the relevant section (for macro sample #7) further below.

    Workbook.Saved Property

    From a general perspective, the Workbook.Saved property indicates whether changes have been made to a particular Excel workbook since the last time it was saved. In other words, Workbook.Saved indicates whether the workbook has unsaved changes.

    The basic syntax of Workbook.Saved is as follows:

    “expression” is a Workbook object. Therefore, I simplify the above as follows:

    The Saved property is, however, read/write. Therefore, you can set Workbook.Saved to either of the following values:

      True: No changes have been made since the last time the workbook was saved.
  • False: Changes have been made.

    • By setting Saved to True prior to closing a workbook, you can close a workbook without Excel displaying a prompt. In such case, the changes to the workbook aren’t saved.

    I provide a practical code example showing how you can easily do this further below (macro example #8).

    Macro Code Examples To Close Workbook With Excel VBA

    In the following sections, I provide 8 macro code examples that allow you to close an Excel workbook using VBA. These 8 macro samples cover several of the most common situations you’re likely to encounter.

    The Sub procedure examples I provide work with the active workbook. For these purposes, I use the Application.ActiveWorkbook property (ActiveWorkbook). By replacing the object reference, you can easily adjust these macros in order to work with other workbooks.

    Macro Code Example #1: Excel VBA Close Workbook

    At the most basic level, you can use a statement with the following structure to close an Excel workbook:

    The following sample macro (Close_Workbook) closes the active workbook:

    The macro example has a single statement that follows the structure I describe above:

    This statement is built by using the following items:

      ActiveWorkbook: The Application.ActiveWorkbook property returns the active workbook.
  • Close: The Close method closes the active workbook returned by item #1.

    • Macro Code Example #2: Excel VBA Close Workbook Without Saving Changes

    If you want to close a workbook without saving changes, you can use a statement that uses the following syntax:

    The following macro example (Close_Workbook_Without_Saving_Changes) closes the active workbook without saving changes:

    The following are the items within the macro’s single statement:

      ActiveWorkbook: The active workbook.

    Close: The Close method.

  • SaveChanges:=False: The SaveChanges parameter of the Workbook.Close method is set to False. Therefore, Excel doesn’t save changes prior to closing the workbook.

    • This macro is substantially the same as the previous example #1. The only new item is the SaveChanges argument (#3).

    Macro Code Example #3: Excel VBA Close Workbook And Save Changes

    You can use the following statement structure to close a workbook and save the changes:

    The following sample Sub procedure (Close_Workbook_Save_Changes) closes the active workbook and saves changes:

    The only statement within the macro has the following 3 components:

      ActiveWorkbook: Reference to the active workbook.

    Close: The Close method.

  • SaveChanges:=True: Sets the SaveChanges parameter of Workbook.Close to True. As a consequence of this, Excel saves the changes when closing the workbook.

    • This procedure is almost identical to macro sample #2 above. The only difference is the value to which the SaveChanges parameter (#3 above) is set (True vs. False).

    Macro Code Example #4: Excel VBA Close Workbook And Save Changes With Filename

    The VBA statement structure that I show below allows you to do the following:

      Save the workbook before closing.
  • Set the filename that Excel uses if the workbook has no previously associated filename.

    • The following VBA statement structure allows you to do the above:

    Workbook.Close SaveChanges:= True , Filename:=”fileNameString”

    For these purposes, “fileNameString” is the file name you want Excel to use.

    As I mention further above (section about the Filename parameter), using the statement I provide in this section doesn’t always result in the workbook being saved with the filename you want. In order to ensure that the workbook is saved always under the desired filename, you can generally use the Workbook.SaveAs method prior to calling the Workbook.Close method.

    The following macro example (Close_Workbook_Save_Changes_Filename) closes the active workbook and saves changes under the specified filename. The filename under which the workbook is saved (if applicable) is “Excel VBA Close Workbook”.

    The statement within the macro above has the following components:

      ActiveWorkbook: Application.ActiveWorkbook property.

    Close: Workbook.Close method.

    SaveChanges:=True: Sets the SaveChanges parameter of Workbook.Close to True.

  • Filename:=”Excel VBA Close Workbook”: The Filename argument of the Close method. Specifies that the filename that Excel uses is “Excel VBA Close Workbook”.

    • This sample macro is very similar to the previous example #3. The only new item is the Filename parameter (#4).

    Macro Code Examples #5 And #6: Excel VBA Close All Workbooks

    In this section, I provide 2 macro examples that you can use to close all Excel workbooks at once.

    As I mention above, you can use the Workbooks.Close method in order to close all the members of the Workbooks collection (i.e. all open workbooks). Therefore, you can use the following statement for purposes of closing all open Excel workbooks:

    The following macro code sample (Close_All_Workbooks) closes all workbooks with the Workbooks.Close method. The single statement within this macro is the one I explain above.

    However, as I explain above, Workbooks.Close takes no parameters.

    The Workbook.Close method does take parameters. The Workbook.Close method works with only one workbook at a time. In order to close all open workbooks at once, you can use a For Each… Next loop. The resulting structure of the relevant VBA loop is as follows:

    For Each Workbook In Workbooks

    The following procedure example (Close_All_Workbooks_Loop) uses the Workbook.Close method and a For Each… Next loop to close all workbooks:

    The process followed by this macro to close all open workbooks is as follows:

      Close the first open workbook.

    Check whether there are elements left within the collection of open workbooks.

    If there are open workbooks left:

      Close the next workbook.

    Repeat step #2 above.

  • If there are no open workbooks left (step #2), exit the For Each… Next loop and end the macro.

    • The following diagram illustrates this procedure:

    Let’s take a closer look at each of the lines of code within this sample macro:

    Line #1: Dim myWorkbook As Workbook

    The Dim statement declares the myWorkbook object variable.

    Line #2: For Each myWorkbook In Workbooks

    Opening statement of a For Each… Next loop. This repeats the execution of the statement within the loop (line #3 below) for each workbook within the Workbooks collection.

    The 2 relevant items within this line of code are the following:

      myWorkbook: myWorkbook variable. Used to iterate through all the elements within the Workbooks collection (item #2).
  • Workbooks: The Application.Workbooks property returns the collection of all open workbooks.

    • Line #3: myWorkbook.Close

    This statement is exactly the same as that in macro sample #1 above. You can easily modify this statement to use the SaveChanges and/or Filename properties. Examples #2 through #4 are examples of how you can do this.

    When within the For Each… Next loop, this line #3 results in Excel closing the applicable workbook. The closed workbook, therefore, is dependent on the current iteration of the loop.

    Line #4: Next myWorkbook

    Closing statement of the For Each… Next loop.

    Macro Code Examples #7 And #8: Excel VBA Close Workbook Without Prompt

    This section provides 2 macro code examples that allow you to close a workbook without prompts.

    The first macro sample (#7) uses the following basic structure:

    This results in Excel closing the workbook without prompts. Additionally, the workbook isn’t saved.

    As I mention above when introducing the Application.DisplayAlerts property, you’re generally better off avoiding this particular VBA code structure. The other options I discuss in this tutorial (saving the workbook prior to calling Close, or using the SaveChanges and Filename parameters of Close) are more appropriate in most situations.

    The following macro example (Close_Workbook_Without_Prompt_1) turns off Excel’s prompts and alerts prior to closing the workbook. Therefore, Excel closes the active workbook without prompts.

    This sample macro is composed of the following 2 statements:

      Application.DisplayAlerts = False: Sets the Application.DisplayAlerts property to False. As a consequence, Excel turns off prompts.
  • ActiveWorkbook.Close: The Application.ActiveWorkbook property and the Workbook.Close method are used to close the active workbook.

    • The second macro within this section uses the following syntax:

    By setting the Workbook.Saved property to True, you indicate that no changes have been made since the last time the workbook was saved. In other words, you’re telling Excel that the workbook you’re closing doesn’t need to be saved.

    The following macro code sample (Close_Workbook_Without_Prompt_2) sets the Saved property to True prior to calling the Workbook.Close method. As a consequence of this, the active workbook is closed without displaying prompts.

    Let’s take a closer look at each of the lines of code within this sample Sub procedure:

    Line #1: With ActiveWorkbook

    Opening line for a With… End With block. As a consequence of this, the statements within the block (lines #2 and #3) work with the object specified in this line #1. That object is the active workbook (ActiveWorkbook).

    Line #2: .Saved = True

    Sets the Workbook.Saved property to True. Indicates that no changes have been made to the active workbook (in line #1 above) since last time the workbook was saved.

    Line #3: .Close

    Calls the Workbook.Close method. Closes the active workbook (in line #1 above).

    Line #4: End With

    Closing line of the End… End With statement.

    Conclusion

    After reading this Excel VBA tutorial, you have the knowledge you need to start crafting macros that quickly close Excel workbooks in several different scenarios.

    In the first section of this tutorial, you read about the 2 VBA methods you can use to close Excel workbooks:

    In addition to reading about how you can easily use each of these methods, you’ve seen why most VBA Sub procedures rely on the Workbook.Close method. You’ve also read about how, by appropriately using the parameters of Workbook.Close or combining this method with other VBA constructs, you can specify how Excel acts when closing a workbook.

    Finally, you’ve seen 8 examples of macro code that put the above VBA constructs and information in practice.

    Overall, the information and examples within this tutorial allow you to easily and quickly create Excel macros that achieve a variety of objects. The following are some examples of what you can now do with Visual Basic for Applications:

      Close a particular Excel workbook.

    Close a workbook without saving changes.

    Close a workbook and save the changes. This includes the possibility of setting the filename Excel uses when saving.

    Close all open workbooks at once.

  • Close an Excel workbook without any prompts.

    • This Excel VBA Close Workbook Tutorial is accompanied by an Excel workbook containing the macros I use in the examples above. You can get immediate free access to this example workbook by subscribing to the Power Spreadsheets Newsletter.

    Источник

    Источник

    Whenever the code is executed while multiple workbooks are open, office stops working with a message

    Microsoft Office Excel has stopped working

    Windows can try to recover your information and restart the program.

    What’s wrong with the code? I’m using MS Office 2007 on Windows7

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    close_without_saving
End Sub

Sub close_without_saving()
    Application.DisplayAlerts = False
    ThisWorkbook.Saved = True

    If Application.Workbooks.Count < 2 Then
        Application.Quit
    Else
        ThisWorkbook.Close
    End If
End Sub

    Community's user avatar

    asked May 27, 2016 at 5:11

    ZuriPow's user avatar

    17

    If you want to close the workbook without incorporating changes. Then you can use code like this in workbook module ~

    Sub Auto_Close() 
    ThisWorkbook.Saved = True 
End Sub

    You can also use this for closing workbook without saving changes. 

    Sub CloseBook2() 
    ActiveWorkbook.Close savechanges:=False 
End Sub

    This routine can be attached to Close X Button. Workbook never closes partially, it will always close with all sheets contained in this workbook. DisplayAlerts = False and subsequently True can be incorporated in the routine. That should not create a problem like

    Sub CloseBook() 
    Application.DisplayAlerts = False 
    ActiveWorkbook.Close 
    Application.DisplayAlerts = True 
End Sub

    answered May 27, 2016 at 5:45

    skkakkar's user avatar

    skkakkarskkakkar

    2,7322 gold badges16 silver badges29 bronze badges

    2

    Источник

    Return to VBA Code Examples

    Run Macro When Excel Closes – Auto_Close

    Do you need to run a macro when Excel closes? You can use the Auto_Close sub.

    Simply create a subroutine called Auto_Close and place code in it, or call another sub from there. Automatically your code runs when Excel closes.

    Private Sub auto_close()



MsgBox "This code ran at Excel close!"



End Sub

    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!

    alt text

    Learn More!

    <<Return to VBA Examples

    vba-free-addin

    VBA Code Examples Add-in

    Easily access all of the code examples found on our site.

    Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

    (No installation required!)

    Free Download

    Источник
    title keywords f1_keywords ms.prod api_name ms.assetid ms.date ms.localizationpriority

    Workbook.Close method (Excel)

    vbaxl10.chm199085

    vbaxl10.chm199085

    excel

    Excel.Workbook.Close

    c0376cab-a2db-c606-67bf-0a4921b81e03

    05/29/2019

    medium

    Workbook.Close method (Excel)

    Closes the object.

    Syntax

    expression.Close (SaveChanges, FileName, RouteWorkbook)

    expression A variable that represents a Workbook object.

    Parameters

    Name Required/Optional Data type Description
    SaveChanges Optional Variant If there are no changes to the workbook, this argument is ignored. If there are changes to the workbook and the workbook appears in other open windows, this argument is ignored. If there are changes to the workbook but the workbook doesn’t appear in any other open windows, this argument specifies whether changes should be saved. If set to True, changes are saved to the workbook.

    If there is not yet a file name associated with the workbook, FileName is used. If FileName is omitted, the user is asked to supply a file name.
    FileName Optional Variant Saves changes under this file name.
    RouteWorkbook Optional Variant If the workbook doesn’t need to be routed to the next recipient (if it has no routing slip or has already been routed), this argument is ignored. Otherwise, Microsoft Excel routes the workbook according to the value of this parameter.

    If set to True, the workbook is sent to the next recipient. If set to False, the workbook is not sent. If omitted, the user is asked whether the workbook should be sent.

    Remarks

    Closing a workbook from Visual Basic doesn’t run any Auto_Close macros in the workbook. Use the RunAutoMacros method to run the Auto_Close macros.

    Example

    This example closes Book1.xls and discards any changes that have been made to it.

    Workbooks("BOOK1.XLS").Close SaveChanges:=False

    [!includeSupport and feedback]

    Источник

    Макрос закрытия книги без сохранения

    ​Смотрите также​​Private Sub CommandButton4_Click()​
    ​ и получать нужный​ как правильно?​ #2 объект, точка​ As Excel.Application Dim​Set oExcel =​ это сделать через​ & » /T»,​Ответ:​

    ​ что при событии​​ к строковым переменным​
    ​ActiveWorkbook.Close True​ так:​ кликом сохранялся файл​Workbooks.Close​
    ​ не работает (​vadim​ Set_windows.Hide End Subпри​ результат???​Но ведь в​

    ​ Клозе, ну сделал​​ oWorkbook As Excel.Workbook​ CreateObject(«Excel.Application») ‘создать объект​ regional settings, а​
    ​ vbHide Else: MsgBox​Разместите этот код​ открытия файла из​Вы пытаетесь прицепить​
    ​End If​
    ​Sub TestClose()​ и закрывался Excel?​

    ​End Sub​​Юрий М​

    ​: ActiveWindow.Close​​ закрытии все настройки​

    ​oExcel.Worksheets(«Лист1»).Range(«a1»).Font.Size = 14​​ Ворде в том​ так​ Dim Количество_найденного_текста As​ Microsoft Excelзатем делаю​

    ​ вот как бы​​ «Excel не может​ в модуле книги,​ некоторой папки, переписываются​

    ​ значение типа Integer,​​End Sub​Application.Run «ВосстановитьИнтерфейс»​Юрий М​KSV​

    ​: Вы, если спрашиваете,​​При закрытии книги​
    ​ сохраняются, при открытии​
    ​Busine2009​

    ​ скрипте который я​так как не​

    ​ Long Set oExcel​​ что хочу​ программно?​ закрыться, наверное вы​ (обычно с названием​ модули в VBA​ возвращаемое функцией​openid.mail.ru/mail/vlad3622340​Application.Quit​: Не это ищете:​: все правильно​
    ​ то хоть читайте​ появляется окно «Сохранить​
    ​ снова этой формы​
    ​:​

    ​ представил не ругается,​​ знаю как правильно,​
    ​ = CreateObject(«Excel.Application») ‘создать​………………..​
    ​Ципихович Эндрю​
    ​ не сказали пожалуйста»,​
    ​ ЭтаКнига)​ в открытый файл.​InStr(sName, »&»)Андрей​: Спасибо, Юрий, ещё​ActiveWorkbook.Close True​

    ​ Workbooks(имя).Close true Или​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>’ подавляет предупреждения Excel​ ответы. Ведь ясно​ изменения в файле?»​ с следующий раз-​Ципихович Эндрю​ выполнается и есть​ приходится угадывать​ объект Microsoft Excel​

    ​хочу закрыть без​
    ​: Вроде изучил этот​
    ​ 16: Cancel =​

    ​Option Explicit Private​​ Модули предназначены для​

    planetaexcel.ru

    закрытие екселя с сохранением и без предупреждения (Макросы/Sub)

    ​wertt​​ раз!​End Sub​ активная книга​Workbooks.Application.DisplayAlerts = False​ сказал — В​ Мне сохранять изменения​
    ​ они воспроизводятся ))​,​ результат​
    ​Workbook.Close savechanges =​
    ​ oExcel.Workbooks.Open ("L:Г.xls") oExcel.Visible​
    ​ вопросов, пишу так:​
    ​ вопрос​
    ​ 1 End If​
    ​ Sub Workbook_BeforeClose(Cancel As​

    ​ того что-бы не​​: Все равно ошибка​
    ​Вроде разобрался.​
    ​А в модуле​
    ​openid.mail.ru/mail/vlad3622340​' сохраняет книгу​ МОДУЛЬ КНИГИ. В​
    ​ не надо. Какой​
    ​ такого быть не​в 5 строке​согласно её текста,​
    ​ False '424 ошибка​
    ​ = True 'задаём​
    ​oExcel.Workbooks.Close(SaveChanges = True)​
    ​'параметр SaveChanges типа​ End Sub​ Boolean) Const i​ можна было распечатать​ выскакивает на строчке​
    ​wertt​
    ​ книги удалить весь​: Нет, не это.​ в файл С​ ответ: "Вставил отдельным​ надо написать макрос​
    ​ должно?))​
    ​ помести в переменную​ что за подвох??​ oExcel.Close savechanges =​ размер шрифта для​ 'ошибка аргумент не​ Boolean, если установить​
    ​Night Ranger​ = "Excel закройся​ документ и сохранять.Что-то​ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges.​
    ​: Нужно закрыть документ​

    ​ код.​​Открыта всего одна​ ДРУГИМ именем​ модулем…» Тогда или​
    ​ чтобы это окно​
    ​Ципихович Эндрю​
    ​ oWorkBook открываемый документ.​

    excelworld.ru

    Закрытие Excel макросом без запроса о сохранении

    ​Busine2009​​ False ‘438 ошибка​

    ​ листа …, ячейки​
    ​ верный???????если напишу так:​

    ​ True сделанные изменения​: теперь Excel убегает,​
    ​ пожалуйста» MsgBox _​ я совсем невнимательно​Пишет Run-time error​ без сохранения. К​openid.mail.ru/mail/vlad3622340​

    ​ книга и нажатием​​Excel.ActiveWorkbook.SaveAs («rl.xlsm»)​ вызывайте этот макрос​ не появлялось?​

    ​: так и должно​​так запрограммировано.​
    ​:​ oWorkbook.Close savechanges =​ … равным 14​oExcel.Workbooks.Closeвсё работает, но​ сохранятся​

    ​ когда я его​​ «Вы уверенны что​

    ​ читал условие твоей​​ 4198​
    ​ сожалению ничего неполучается.​
    ​: Спасибо!​
    ​ на кнопку нужно​
    ​’ сохраняет книгу​ или явно на​

    ​Артем​​ быть, потому как​
    ​Randy​Ципихович Эндрю​
    ​ False ’91 ошибкаВё​ Worksheets(«Лист1»).Range(«a1»).Font.Size = 14​ мне так не​

    ​’в противном случае​ пытаюсь закрыть,​ завершили свою работу​ задачи (​

    ​Ошибка команды.​Private Sub Document_Close()​
    ​Всё получилось!​
    ​ её сохранить и​

    ​ в файл С​ событие пишите:​

    ​: вот так​​ Вы не выгрузили​: здравствуйте! Подскажите, пожалуйста,​,​
    ​ мимо, ещё 8​
    ​ oExcel.Workbooks.Close 1 oExcel.Workbooks.Close​ надо, так как​
    ​ нет, если параметр​
    ​Ужос!​
    ​ ?» & vbCrLf​
    ​Вот решение:​Может потому что​ Application.DisplayAlerts = True​Немного, конечно, не​

    ​ закрыть Excel.​​ ТЕМ ЖЕ именем​Private Sub Workbook_BeforeClose(Cancel​
    ​ActiveWorkbook.Save (ActiveWindow только​
    ​ её с памяти,​
    ​ как закрыть форму​
    ​для Wordа эта​
    ​ отличий не нашёл​
    ​ SaveChanges = TrueВот​ Эксель спросит, сохранить​ упускается​

    ​Option Explicit Private​​ & _ «может​
    ​Sub AutoClose() ActiveWindow.Close​
    ​ закрыть мы хотим​ strPath = ‘C:Моя​ удобно, когда при​Юрий М​Excel.ActiveWorkbook.Save​ As Boolean)​

    ​ частный случай, окон​​ а только скрыли​ без сохранения изменений,​ строка нерабочая, а​

    ​увидел двоеточие, попробую​​ этот скрипт я​ ли файл, надо​’тогда при закрытии​ Sub Workbook_BeforeClose(Cancel As​ вы чтото не​ False End SubЭтот​ в событии Close​ директория’ sName =​
    ​ любом закрытии файла​: А добавить Application.Quit​’ закрывает книгу​

    ​ActiveWindow.Close False​​ в одном файле​ с глаз -​
    ​ внесенных в такие​ не для Excel.​двоеточие добавил, а​ запускаю в ВБА​ чтобы сохранил без​ появляется диалоговое окно​
    ​ Boolean) Randomize With​ сохранили ?», 64​

    ​ ‘авто-макрос’ надо разместить​​wertt​
    ​ ActiveDocument.Name If ActiveDocument.FullName​
    ​ изменения всегда будут​
    ​Юрий М​Workbooks.Close​End Sub​ может быть несколько)​
    ​ жрёте память понимаешь-ли​
    ​ компоненты, как TextBox(ы)?​
    ​Правильно, вот к​
    ​ ошибки те же​
    ​ в Ворде, на​

    ​ вопросов​​ с вопросом о​ Application .WindowState =​
    ​ If InputBox(«Напишите такие​

    planetaexcel.ru

    Выход из документа без сохранения.

    ​ или в ThisDocument,​​: Попробуй SaveChanges:=False​ Like ‘*’ &​ сохраняться без спроса.​
    ​: Sub TestClose()​’ закрыть с​k61​Application.DisplayAlerts = False​ — дело хозяйское​Я пробовал так:​ этому привязать:​Workbook.Close savechanges:=False ‘424​ двух последних строчках​Busine2009​ необходимости сохранения​

    ​ xlNormal .Width =​​ слова: » &​

    ​ или в каком-либо​​wertt​ strPath & ‘*’​
    ​ Но это ерунда.​
    ​Application.Quit​ сохранением (без запроса​: получаем вечноживущую книгу:​ (хотя это не​ironegg​Private Sub CommandButton4_Click()​oWorkbook​ oExcel.Close savechanges:=False ‘438​ выделяет​: вытащи из скобок​’параметр FileName необходим,​ 300: .Height =​

    ​ i) = i​​ модуле, находящемся внутри​
    ​: Ошибок нет, но​ And InStr(sName, ‘&’)​Юрий М​ActiveWorkbook.Close True​ подтверждения пользователя, даже​Private Sub Workbook_BeforeClose(Cancel​ спасет, если файл​: префикс​
    ​ Set_windows.Hide End SubНо​Ципихович Эндрю​ oWorkbook.Close savechanges:=False ’91​
    ​’.Close и сообщение:​ и пробелом отбей.​ когда идёт вопрос​
    ​ 200 .Left =​ Then Shell «taskkill​ документа.​
    ​ привходе спрашивает о​

    ​ Then Application.DisplayAlerts =​​: Добавьте MsgBox, который​End Sub​
    ​ если .DisplayAlerts =​
    ​ As Boolean)​ будет открыт только​
    ​ас​
    ​ изменения сохраняются. Поискал​: Я Вас уверяю​Busine2009​

    ​ wrong Number of​​Ципихович Эндрю​

    ​ о закрытии книги​​ Fix(Rnd * .Width):​ /f /IM excel.exe​Документ захлопнется без​

    ​ сохранении файла.​​ False ActiveDocument.Close End​

    ​ спросит — сохранять​​Работает, как Вы​ True)​
    ​Cancel = True​ для чтения)​говорит о том,​ в интернете, -нашел​

    ​ в Ворде, что​:​
    ​ arguments or invalid​
    ​: теперь​ не связанной ещё​
    ​ .Top = Fix(Rnd​ /T», vbHide Else:​ лишних вопросов и​
    ​wertt​ If End Sub​ или нет?​ и хотели.​Workbooks.Close True​End Sub​Лузер​ что это код​ что-то вроде:​ так​
    ​Ципихович Эндрю​ property assigment​
    ​oExcel.Workbooks.Close SaveChanges =​ с именем файла​ * .Height) End​ MsgBox «Excel не​
    ​ без сохранения.​: Пардон, при выходе.​sitcom​openid.mail.ru/mail/vlad3622340​openid.mail.ru/mail/vlad3622340​’ закрыть без​Открывает возможность не​: Артем! Просят закрыть​ для Access.​Private Sub CommandButton4_Click()​oExcel.Worksheets(«Лист1»).Range(«a1»).Font.Size = 14что​,​Что мне там​
    ​ Trueвыделяет .Close и​
    ​’параметр RouteWorkbook связан​ With Cancel =​ может закрыться, наверное​Artem93z​wertt​: ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges​: Да, Юрий, в​
    ​: Спасибо, Юрий!​ сохранения (без запроса​ закрывать книгу до​

    CyberForum.ru

    Закрыть Excel, не сохраняя файл

    ​ без сохранения, а​​а это​ On Error GoTo​ так​теперь 10 строку​ нужно изменить, чтобы​ сообщение Wrong number​ с одновременной работой​ 1 End Sub​ вы не сказали​: Как можно закрыть​: Ну не знаю​wertt​ последнем Вашем посте​Но работает не​ подтверждения пользователя, даже​ тех пор пока​ ты предлагаешь сохранить.​

    ​говорит о том,​​ Err_CommandButton4_Click DoCmd.RunCommand acCmdUndo​Worksheets(«Лист1»).Range(«a1»).Font.Size = 14работает!​

    ​ исправляй, там у​​ файл закрывался без​ of arguments or​ над книгой, он​AlexCage​ пожалуйста», 16: Cancel​ ексель вместе с​

    ​ тогда.​​: Пишет Run-time error​

    ​ этого недостатка нет,​​ так, как хотел.​​ если .DisplayAlerts =​
    ​ не будут выполнены​ActiveWorkbook.Saved = True​ что, скорее всего,​ DoCmd.Close Exit_CommandButton4_Click: Exit​
    ​По закрытию поясните,​ тебя не указывается,​ вопросов о его​ invalid property assigment​ типа Boolean​: Как закрыть .xls​ = 1 End​ книгой с макросами?​Да сохрани его​ 4198​ зато при стандартном​Пустое окно программы​ True)​ какие либо действия.​ — говорит, что​ код выполняется в​ Sub Err_CommandButton4_Click: DoCmd.CloseНо​ пожалуйста, как строка​ к какой книге​ сохранении???​Busine2009​Но пишу так​ без сохранения, чтобы​

    ​ If End Sub​​ Application.Quit спрашивает, сохранить​​ перед закрытием отдельной​​Ошибка команды.​ закрытии Excel крестиком​ Excel всё-равно остаётся​Workbooks.Close False​
    ​Alex_ST​ книга уже сохранена,​ Word или Excel.​ на команду​ будет??​ относится лист.​Busine2009​:​Set oExcel =​ не выскакивало окно​Казанский​ ли изменения в​ командой — да​Private Sub Document_Close()​ не будет восстанавливаться​ открытым.​’ закрыть Excel​: Вполне можно событие​ ничего не сохраняя​в этом и​DoCmd.RunCommandкомпилятор ругается. Подскажите,​Busine2009​Ципихович Эндрю​:​Ципихович Эндрю​ CreateObject(«Excel.Application») ‘создать объект​ с вопросом о​:​

    ​ файле (в книжке).​​ и всех делов.​ Application.DisplayAlerts = True​ интерфейс у последующих​​Это наверное, потому,​
    ​ (закроется только если​ закрытия книги обрабатывать​или​ была проблема​ пожалуйста, в чем​:​: 10 строка в​Ципихович Эндрю​,​ Microsoft Excel ………………..​ сохранении изменений в​Night Ranger​

    CyberForum.ru

    Как зарыть файл без сохранения (Excel/VBA )?

    ​ мне не нужно​​Вообщем то цель​ strPath = ‘C:Моя​ открываемых файлов.​ что при закрытии​ в этом же​ не в модуле​
    ​ActiveWindow.Close False -​

    ​Теххи​​ дело..​Ципихович Эндрю​

    ​ моём 9 м​​,​всё правильно, см.​

    ​ oExcel.Workbooks.Close(SaveChanges = True)​ файле?​
    ​, угу, и вдруг​ сохранить их. А​ не сохранять.)​ директория’ sName =​Всем запросам не​ выполняется ещё один​ Application больше нет​ книги (как положено),​ закрыть без сохранения​: Народ, подскажите, как​KoGG​,​ сообщениии, это вот​11 строку удали,​ #2.​ ‘ошибка аргумент не​Зарание спасибо, Alex​ закроется другой экземпляр​

    CyberForum.ru

    Закрыть файл Excel с сохранением сделанных изменений

    ​ если я перед​​затупил я что-то​ ActiveDocument.Name If ActiveDocument.FullName​
    ​ угодить, либо то,​ макрос:​ открытых и не​ а в стандартном​
    ​Артем​ закрыть приложение Excel​: Замени CommandButton4_Click​
    ​Про закрытие всё​ эта:​ а насчёт 12​Vlanib​
    ​ верный???????так​AlexCage​ приложения Excel с​ куайтом закрою книгу​Тогда ни черта​
    ​ Like ‘*’ &​ либо это:)​Sub Workbook_BeforeClose(Cancel As​ сохраненных книг,​
    ​ модуле (как попытался​
    ​: ага, ошибся, сорри​ из VB без​Private Sub CommandButton4_Click()​ уже разъяснено. Вставьте​Worksheets(«Лист1»).Range(«a1»).Font.Size = 14Во​ строки:​
    ​: Вот так напиши:​oExcel.Workbooks.Closeвопросов нет, но​: ThisWorkbook.Close (SaveChanges =​

    ​ кучей несохраненных данных​​ без сохранения -​
    ​ не понимаю.​​ strPath & ‘*’​​openid.mail.ru/mail/vlad3622340​ Boolean)​’ иначе будет​
    ​ сделать marat), но​vadim​ сохранения изменений?​ Unload Me End​
    ​ ещё раз ваш​

    ​ всяком случае она​​найди 10 отличий​oExcel.Workbooks.Close 1​
    ​ мне так не​ False)​Тогда уж так​
    ​ до куайта не​Только что сделал​ And InStr(sName, ‘&’)​: А MsgBox куда​
    ​Application.Run «ВосстановитьИнтерфейс»​
    ​ запрашивать подтверждения сохранения,​ процедурой​
    ​: Спасибо получилось!!!​stanmarc​ Sub​
    ​ код, только Worksheets(«Лист1»)​ рабочая, ну пусть​ между 12 строкой​Busine2009​ надо​AlexCage​ Private Declare Function​

    ​ дойдет, т.к. закроется​​ процедуру с единственной​ Then Application.DisplayAlerts =​

    ​ добавить?​​End Sub​
    ​ при .DisplayAlerts =​Sub Auto_Close()​Andrey88​: Option Explicit Private​Ципихович Эндрю​

    ​ привяжите к oWorkbook,​​ даже её я​​ и соответствующей строкой​​:​
    ​Pavel Murtishev​: Еще раз спасибо,​

    ​ GetCurrentProcessId Lib «kernel32″​​ файл, а вместе​
    ​ строчкой:​

    ​ False ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges​​В макрос «ВосстановитьИнтерфейс»​​Как это можно​​ True)​
    ​ActiveWindow.Close False​: ActiveWindow.Close False -​ appExl As Excel.Application​: как видите не​ а не oExcel.​

    ​ заремарчу, ничего ведь​​ из #2.​Vlanib​: Эндрю,​ за HELP!​ () As Long​ с ним и​ActiveDocument.Close FalseВ пустом​ End If End​ (запускаемый при закрытии​ обойти?​Application.Quit​End Sub​ А куда конкретно​ Private wbItems As​ есть проблема​Ципихович Эндрю​ не изменится​Ципихович Эндрю​,​Workbook​Уважаю таких как​ Private Sub Workbook_BeforeClose(Cancel​ макрос с куайтом.​ документе напечатал текст​ Sub​ книги) при условии,​Юрий М​85Muslim85​
    ​ran​ это надо прописать​ Excel.Workbook Public Sub​а вот если​
    ​: запускаю с Ворда​Busine2009​: 11 строку удалил​так не надо​s​

    ​ ты.​​ As Boolean) Const​​ вот.​​ и, не сохраняя​
    ​sitcom​ если книга ещё​: У меня никаких​
    ​: все отлично)) спасибки…​:​ или вставить???​ ExitExcel() If Not​

    ​Закрыть форму с​​Dim oExcel As​
    ​:​
    ​12 строку​ писать — это​- это коллекция​
    ​А то бывают​ i = «Excel​
    ​Апострофф​ документ, переключился в​: непонятна строка​ не сохранена MsgBox​ пустых окон -​ вот чего я​
    ​85Muslim85​Marat​ wbItems Is Nothing​ сохранением изменений придётся​ Excel.Application Dim oWorkbook​
    ​Ципихович Эндрю​oExcel.Workbooks.CLOSE SaveChanges =​ для профессиональных программистов​
    ​ объектов Workbook. Попробуйте​ такие, им ответишь,​ закройся пожалуйста» MsgBox​: ThisWorkbook.Saved = True​ окно VBA и​If ActiveDocument.FullName Like​ есть, иначе нет.​ всё закрывается.​
    ​ хотел)​
    ​: добрый день, скажите​: Так куда все​
    ​ Then wbItems.Close SaveChanges:=False​ что-то предпринять​ As Excel.Workbook Dim​

    ​,​​ Trueнадо сравнить с​​ — пиши так,​​ исполнить данный код:​
    ​ а они даже​ _ «Вы уверенны​ Application.Quit?​ выполнил эту процедуру.​ »*» & strPath​

    ​Как такое условие​​Попробуйте так:​Workbooks.Application.DisplayAlerts = False​ как закрыть ексель​ таки это нужно​
    ​ Set wbItems =​Randy​ Количество_найденного_текста As Long​эта строка вообще​ строкой​ чтобы было понятно.​

    ​Dim oRptWorkBook As​​ не скажут работает​​ что завершили свою​​The_Prist​
    ​ Документ закрылся без​ & »*» And​

    ​ задать?​​Sub Workbook_BeforeClose(Cancel As​Excel.ActiveWorkbook.Save​ (полностью выйти) с​ прописать ?​ Nothing End If​:​
    ​ Set oExcel =​ не рабочая.​oRptWorkBook.Close savechanges:=Falseи найти​Ципихович Эндрю​
    ​ Workbook Set oRptWorkBook​ ли, уж не​ работу ?» &​: Sub CloseNotSave() Dim​ всяких вопросов.Да конечно,​ InStr(sName, »&») ThenВо-первых,​
    ​Юрий М​ Boolean)​

    ​Application.Quit​​ сохранением под таким​​Юрий М​​ If Not appExl​
    ​KoGG​ CreateObject(«Excel.Application») ‘создать объект​Ципихович Эндрю​
    ​ 10 отличий​: ‘экспорт найденного текста​
    ​ = Application.Workbooks.Add oRptWorkBook.Close​

    ​ говоря про ‘спасибо’Слушай,​​ vbCrLf & _​ wb As Workbook​ если запустить отдельно​
    ​ что Вы пытаетесь​: Попробуйте так:​
    ​Application.Run «ВосстановитьИнтерфейс»​
    ​openid.mail.ru/mail/vlad3622340​ же названием и​: Как куда -​

    ​ Is Nothing Then​​, огромное спасибо. Работает​​ Microsoft Excel oExcel.Workbooks.Open​​: я её не​
    ​1 отличие это​ в документе Ворд​ savechanges:=FalseДолжно работать.​ назрел еще один​ «может вы чтото​ For Each wb​

    ​ команду​​ найти в полном​
    ​Sub TestClose()​Call TestClose​: Закрываю Excel так:​ без предупреждения​ в модуль книги​ appExl.Quit Set appExl​ отлично!​ («L:Глаголы.xls») oExcel.Visible =​ с потолка взял,​ Фальше-Труе, пока не​ в Microsoft Excel​
    ​BR​ вопрос. Мне надо​ не сохранили ?»,​ In Workbooks wb.Saved​ActiveDocument.Close False -​ имени файла? Что​
    ​Application.Quit​

    ​End Sub​​ActiveWorkbook.Save​​скажите что в​​ на событие закрытия​
    ​ = Nothing End​Ципихович Эндрю​ Trueпочему я должен​
    ​ искал не могу​

    CyberForum.ru

    Закрыть форму без сохранения изменений

    ​ важно, так как​​ ‘подключаем библиотеку Tools​Ципихович Эндрю​ сохранить .xls в​ 64 If InputBox(«Напишите​ = True Next​
    ​ все работает нормально.​
    ​ значит »&»?​If MsgBox(«Сохранить данные»,​или непосредственно две​Application.Quit​ этом коде не​
    ​ книги.​ If End SubwbItems.Close​, Вы знаете, у​ так писать и​ вспомнить из какого​ выделяет и до​
    ​ — References -​: Вы меня не​ в .csv, но​

    ​ такие слова: «​​ Application.Quit End Sub​
    ​А тут событие​во-вторых, эта строка​ vbYesNo + vbQuestion,​

    ​ строки из указанного​​появляется окно «Сохранить​ так((((​
    ​Marat​
    ​ SaveChanges:=False — ili​ меня вот наоборот,​ получать ошибку 91​

    ​ места я её​​ этой строки ещё​​ Microsoft Excel 11.0​​ поняли:​ только с разделителями​
    ​ & i) =​​Farad​ на закрытие файла,​ у меня совершенно​ «Ваш выбор?») =​ макроса после Application.Run​ изменения в файле?»​
    ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub вава()​: Sub zakrutie()​ prosto -​ когда я вношу​oWorkbook.Worksheets(«Лист1»).Range(«a1»).Font.Size = 14почему​ взял​ не дошёл​ Object Library или​я работаю в​

    ​ ‘,’, а не​​ i Then Shell​: ActiveWorkbook.Close False​ из кторого нужно​ справедливо вызывает​ vbNo Then​ «ВосстановитьИнтерфейс»​Как сделать, чтобы​Range(«A1») = 1​

    ​ActiveWindow.Close False​​wbItems.Close False -​​ в ТекстБоксы изменения​​ я не должен​попробовал сейчас в​2 отличие это​
    ​ Excel 12.0 Object​
    ​ Ворде, поэтому создаю​ ‘;’.Много информации перерыл,​ «taskkill /f /PID​Night Ranger​
    ​ выйти без сохранения.​ошибку 13(несоответствие типа​

    CyberForum.ru

    Как закрыть приложение Excel из VB без сохранения изменений?

    ​ActiveWorkbook.Close False​​Юрий М​ этот запрос не​Workbooks.Application.DisplayAlerts = False​End Sub​

    ​ eto to,chto tebe​​ в рабочем режиме​ так писать и​ макросе Экселя действительно​ то что в​ Library Dim oExcel​ объект​ нашел что можно​ » & GetCurrentProcessId​:​Дело в том​ данных) так как​Else​: Или (на кнопке)​ появлялся, а одним​Excel.ActiveWorkbook.SaveAs («rl.xlsm»)​Вставил отдельным модулем.​
    ​ nuzhno​ программы по команде​ не получать ошибку,​

    CyberForum.ru

    ​ не работает, а​

    Источник

    Home / VBA / VBA Close Workbook (Excel File)

    To close an Excel file, you need to use the “Close” method. With this method you can, specify if you want to save the changes or not. And, if you want to save and close a file that is not saved yet you can specify the path where you want to save it before closing.

    The following is the syntax for the close method.

    Workbook.Close (SaveChanges, FileName, RouteWorkbook)

    Steps to Close a Workbook

    1. Specify the workbook that you want to close.
    2. Use the close method with that workbook.
    3. In the code method, specify if you want to save the file or not.
    4. In the end, mention the location path where you want to save the file before closing.

    In this tutorial, we will look at different ways that you can use to close a workbook in Excel using VBA.

    Helpful Links: Run a Macro – Macro Recorder – Visual Basic Editor – Personal Macro Workbook

    Close a Workbook without Saving

    If you want to save the active workbook without saving you need to use code like the following.

    ActiveWorkbook.Close SaveChanges:=False

    In this code, I have specified the “False” for the “SaveChanges” argument. So VBA will ignore if there are any changes in the workbook which are not saved. And if you want to close a specific workbook you can use the name of that workbook. Just like the following code.

    Workbooks("book1").Close SaveChanges:=False

    If you have data in the workbook and you skip the “SaveChanges” argument, then Excel will show a dialog box to confirm if you want to save the workbook or not. The point is: It is better to specify the “SaveChanges” argument even if it’s optional.

    Close a Workbook after Saving

    As you have seen, there’s an argument in the CLOSE method to specify the path location. Let’s say if you wish to save the “Book6” to the folder on the desktop. Here’s the code that you need to use.

    Workbooks("Book6").Close _
SaveChanges:=True, _
Filename:="C:UsersDellDesktopmyFoldermyFile.xlsx"

    This code is going to save the workbook “Book6” into the folder that is saved on my desktop with the name “myFIle.xlsx”. But here’s one thing that you need to take care of: IF you already have a workbook with the same name then it will replace that file with the new one.

    Don’t worry, there’s a solution that you can use. The following code checks if there’s any file exists with the name that you want to use

    Sub vba_close_workbook()
Dim wbCheck As String
wbCheck = Dir("C:UsersDellDesktopmyFoldermyFile.xlsx")
If wbCheck = "" Then
    Workbooks("Book6").Close _
    SaveChanges:=True, _
    Filename:="C:UsersDellDesktopmyFoldermyFile.xlsx"
Else
    MsgBox "Error! Name already used."
End If
End Sub

    More on VBA Workbooks

    VBA Save Workbook | VBA Delete Workbook | VBA ThisWorkbook | VBA Rename Workbook | VBA Activate Workbook | VBA Combine Workbook | VBA Protect Workbook (Unprotect) | VBA Check IF a Workbook is Open | VBA Open Workbook | VBA Check IF an Excel Workbook Exists in a Folder| VBA Create New Workbook (Excel File)

    • VBA Workbook

    Источник

    Like this post? Please share to your friends:
  • Excel vba ascii кодов
  • Excel vba array with strings
  • Excel vba array with range
  • Excel vba array split
  • Excel vba array sort