Макрос книги excel закрыть книгу - Word и Excel - помощь в работе с программами

How to close an Excel workbook using VBA and macros, including how to save the file before you close it or discard any changes.

Sections:

Selecting Which Workbook to Close

Close Workbook While Saving Changes

Close Workbook Without Saving Changes

Let the User Decide to Save Changes or Not

Notes

Selecting Which Workbook to Close

First, we need to tell the macro to choose the current workbook to close or another workbook to close.

Current Workbook

We use this piece of code to close the current or currently active workbook and close that.

Other Workbook

We use this piece of code to close any specific open workbook.


Workbooks("test.xlsx").Close

Replace test.xlsx with the name of the file that you want to close.

Close Workbook While Saving Changes

To have Excel automatically save any changes for the workbook that you want to close, just put True behind the close workbook code from above like this:


ActiveWorkbook.Close True

or, to close a specific file like this:


Workbooks("test.xlsx").Close True

Close Workbook Without Saving Changes

To have an Excel window close WITHOUT saving any changes, just put False behind the close workbook code from above like this:


ActiveWorkbook.Close False

or, to close a specific file like this:


Workbooks("test.xlsx").Close False

Let the User Decide to Save Changes or Not

You use the basic code from the first section and don’t include a True or False after it and a dialog box will open asking if you want to save the file or not; it looks like this:

Close the currently active or visible workbook:

Close a specific workbook:


Workbooks("test.xlsx").Close

Notes

You may run into issues with messages popping up depending on your implementation of this code and your setup and it can help to turn off ScreenUpdating for Excel. Make sure to turn it back on when you are finished though.

If Application.DisplayAlerts is set to False before you close the workbook, you won’t see a popup asking if you want to save it or not before closing it. If this is the case, you may lose data if you wanted to save the file before closing it, so test your code on a sample workbook first.

Download the sample files for this tutorial to test everything out.

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

Источник

Как закрыть сразу все книги

На чтение 2 мин. Просмотров 1.5k.

Что делает макрос: Данный макрос позволяет закрыть все открытые рабочие книги одновременно.

Содержание

Как макрос работает
Код макроса
Как работает этот код
Как использовать

Как макрос работает

В этом макросе, коллекция Workbooks перебирает все открытые рабочие книги. По мере того, как макрос проходит через каждую книгу, он сохраняет и закрывает их.

Код макроса

Sub ZakritVseKnigi()
'Шаг 1: Объявляем переменные
Dim wb As Workbook
'Шаг 2: Перебираем все открытые книги
For Each wb In Workbooks
'Шаг 3: Закрываем
wb.Close 
'Шаг 4: Сохраняем изменения
SaveChanges:=True
Next wb
End Sub

Как работает этот код

Объявляем переменную, которая представляет собой объект книга. Это позволит перебирать все открытые книги.
С помощью цикла просто проходит через все открытые книги.
Закрываем книгу (Excel затем выдаст сообщение с предложением сохранить изменения).
Сохраняем изменения. Если Вы не хотите, чтобы их сохраняли, нужно изменить аргумент Savechanges значение с True на false.

Как использовать

Лучшее место, чтобы сохранить этот макрос — это ваша книга личных макросов. Таким образом, макрос всегда будет доступен для вас. Книга личных макросов загружается при запуске Excel. В окне VBE проекта, он назван personal.xlsb.

Активируйте редактор Visual Basic, нажав ALT + F11 на клавиатуре.
Щелкните правой кнопкой мыши personal.xlb в окне Project.
Выберите Insert➜Module.
Введите или вставьте код во вновь созданном модуле.

Если вы не видите personal.xlb в окне проекта, он еще не существует. Вы должны записать макрос, используя книгу личных макросов в качестве конечного пункта.

Чтобы записать макрос в личной книге макросов, выберите пункт: Личная книга макросов в диалоговом окне записи макроса перед началом записи. Просто записать пару кликов, а затем остановить запись. Вы можете сбросить записанный макрос и заменить его с этим.

Источник

Открытие книги Excel из кода VBA. Проверка существования книги. Создание новой книги, обращение к открытой книге и ее закрытие. Методы Open, Add и Close.

Открытие существующей книги

Существующая книга открывается из кода VBA Excel с помощью метода Open:

Workbooks.Open Filename:=«D:test1.xls»

или

Workbooks.Open («D:test1.xls»)

В кавычках указывается полный путь к открываемому файлу Excel. Если такой файл не существует, произойдет ошибка.

Проверка существования файла

Проверить существование файла можно с помощью функции Dir. Проверка существования книги Excel:

If Dir(«D:test1.xls») = «» Then

MsgBox «Файл не существует»

Else

MsgBox «Файл существует»

End If

Или, если файл (книга Excel) существует, можно сразу его открыть:

If Dir(«D:test1.xls») = «» Then

MsgBox «Файл не существует»

Else

Workbooks.Open Filename:=«D:test1.xls»

End If

Создание новой книги

Новая рабочая книга Excel создается в VBA с помощью метода Add:

Созданную книгу, если она не будет использоваться как временная, лучше сразу сохранить:

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=«D:test2.xls»

В кавычках указывается полный путь сохраняемого файла Excel, включая присваиваемое имя, в примере — это «test2.xls».

Обращение к открытой книге

Обращение к активной книге:

Обращение к книге с выполняемым кодом:

Обращение к книге по имени:

Workbooks(«test1.xls»)

Workbooks(«test2.xls»)

Обратиться по имени можно только к уже открытой книге, а чтобы из кода VBA Excel книгу открыть, необходимо указать полный путь к файлу.

Открытая рабочая книга закрывается из кода VBA Excel с помощью метода Close:

Workbooks(«test1.xlsx»).Close

Если закрываемая книга редактировалась, а внесенные изменения не были сохранены, тогда при ее закрытии Excel отобразит диалоговое окно с вопросом: Вы хотите сохранить изменения в файле test1.xlsx? Чтобы файл был закрыт без сохранения изменений и вывода диалогового окна, можно воспользоваться параметром метода Close — SaveChanges:

Workbooks(«test1.xlsx»).Close SaveChanges:=False

или

Workbooks(«test1.xlsx»).Close (False)

Закрыть книгу Excel из кода VBA с сохранением внесенных изменений можно также с помощью параметра SaveChanges:

Workbooks(«test1.xlsx»).Close SaveChanges:=True

или

Workbooks(«test1.xlsx»).Close (True)

Фразы для контекстного поиска: открыть книгу, открытие книги, создать книгу, создание книги, закрыть книгу, закрытие книги, открыть файл Excel, открытие файла Excel, существование книги, обратиться к открытой книге.

Источник

Эти макросы помогут вам закрыть все открытые файлы Excel, оставив лишь текущий файл.

Выбирайте любой из них — они мало чем отличаются.

Первый оставляет открытой только активную книгу, независимо от того, из какого файла запущен этот макрос:

Sub CloseAllWorkbooks1()
    ' закрываем все книги, кроме текущей (активной)
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If Not wb Is ActiveWorkbook Then    ' если это не этот файл
            If wb.Windows(1).Visible Then wb.Close    ' закрываем его
        End If
    Next wb
End Sub

Второй макрос оставляет открытой только ту книгу, из которой запущен этот самый макрос, независимо от того, какая книга активна на момент запуска:

Sub CloseAllWorkbooks2()
    ' закрываем все книги, кроме той, из которой запущен макрос
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If Not wb Is ThisWorkbook Then If wb.Windows(1).Visible Then wb.Close
    Next wb
End Sub

Третья версия макроса отличается от первой лишь тем, что все файлы закрываются с сохранением изменений:
(первый макрос в этом случае выдаёт диалоговое окно — сохранять файл, или нет)

Sub CloseAllWorkbooks3()
    ' закрываем все книги, кроме текущей (активной), С СОХРАНЕНИЕМ изменений
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If wb.Windows(1).Visible = True And (Not wb Is ActiveWorkbook) Then
            ' закрываем с сохранением только изменённые файлы
            wb.Close (Not wb.Saved) ' ранее сохранённые файлы просто закрываются
        End If
    Next wb
End Sub

Ну и четвертый вариант — тоже закрывает все открытые файлы, только изменения в этих файлах не сохраняются:

Sub CloseAllWorkbooks4()
    ' закрываем все книги, кроме текущей (активной), БЕЗ СОХРАНЕНИЯ изменений
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If wb.Windows(1).Visible Then If Not wb Is ActiveWorkbook Then wb.Close False
    Next wb
End Sub

Источник

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

Смотрите такжеPrivate Sub CommandButton4_Click()
и получать нужный как правильно? #2 объект, точка As Excel.Application DimSet 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 SubApplication.Run «ВосстановитьИнтерфейс»Юрий МKSV

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

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

 Long Set oExcel что хочу программно? закрыться, наверное вы (обычно с названием модули в VBA возвращаемое функциейopenid.mail.ru/mail/vlad3622340Application.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 = … равным 14oExcel.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.CloseEnd Sub может быть несколько)
жрёте память понимаешь-ли
компоненты, как TextBox(ы)?
Правильно, вот к
ошибки те же
в Ворде, на

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

planetaexcel.ru

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

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

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

 или в каком-либоwertt strPath & ‘*’
Но это ерунда.
Application.Quit сохранением (без запроса: получаем вечноживущую книгу: (хотя это неironeggPrivate 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 TrueEnd SubЛузер что это код что-то вроде: так
Ципихович Эндрю property assigment
oExcel.Workbooks.Close SaveChanges = с именем файла * .Height) End MsgBox «Excel не
без сохранения.: Пардон, при выходе.sitcomopenid.mail.ru/mail/vlad3622340openid.mail.ru/mail/vlad3622340’ закрыть безОткрывает возможность не: Артем! Просят закрыть для Access.Private Sub CommandButton4_Click()oExcel.Worksheets(«Лист1»).Range(«a1»).Font.Size = 14что,Что мне там
Trueвыделяет .Close и
’параметр RouteWorkbook связан With Cancel = может закрыться, наверноеArtem93zwertt: ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges: Да, Юрий, в
: Спасибо, Юрий! сохранения (без запроса закрывать книгу до

CyberForum.ru

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

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

говорит о том, Err_CommandButton4_Click DoCmd.RunCommand acCmdUndoWorksheets(«Лист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
Про закрытие всё эта: а насчёт 12Vlanib
верный???????так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.QuitEnd 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 пустых окон - вот чего я
85Muslim85Marat 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 AsExcel.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.SavedActiveDocument.Close False - имени файла? Что
Application.Quit

End SubActiveWorkbook.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 FalsewbItems.Close False - в ТекстБоксы изменения я не долженпопробовал сейчас в2 отличие это
Excel 12.0 Object
Ворде, поэтому создаю ‘;’.Много информации перерыл, «taskkill /f /PIDNight Ranger
выйти без сохранения.ошибку 13(несоответствие типа

CyberForum.ru

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

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

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

CyberForum.ru

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

Источник