|
Требуется запускать макрос при каждом закрытии книги. Сам макрос: Sub Макрос6() ‘ |
|
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
В модуль книги: Я сам — дурнее всякого примера! … |
|
Можно немного оптимизировать макрос: Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sub Макрос6() Вставьте весь этот код в модуль книги. |
|
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
Игорь, автору надо вставлять значения. А просто Copy вставит все. А дальше он активирует Sheets(«Объекты (2)») с выделением диапазона(не знаю зачем, но мож так надо)… Я не стал трогать. Я сам — дурнее всякого примера! … |
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
Спасибо за участие. Но что то не выходит :(. Если не сложно прошу помочь вставить макрос в книгу.Sub Макрос1()<BR>'<BR>’ Макрос1 Макрос<BR>’ Макрос записан 23.08.2010 (Nikolay)<BR>’ ‘<BR> Sheets(«Лист1»).Select<BR> Range(«D70:I84»).Select<BR> Selection.Copy<BR> Sheets(«Архив»).Select<BR> Range(«A2″).Select<BR> Cells.Find(What:=»666666», After:=ActiveCell, LookIn:=xlValues, LookAt _<BR> :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _<BR> False, SearchFormat:=False).Activate<BR> ActiveCell.Offset(0, 2).Range(«A1»).Select<BR> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<BR> :=False, Transpose:=False<BR> ActiveCell.Offset(-32, -2).Range(«A1»).Select<BR> Sheets(«Объекты»).Select<BR> ActiveCell.Range(«A1:C1»).Select<BR>End Sub <BR><STRONG>Файл удален</STRONG> — велик размер. [Модераторы] Я сам — дурнее всякого примера! … |
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
nik105, Вы бы правила почитали по поводу размера файла. И еще. Очень не понравилось, сто Вы подписались моим ником в последнем сообщении. Ваш файл модеры удалят. Поэтому потрудитесь выложить тот же файл сжатый раром или зипом. И подпишитесь своим ником. Я сам — дурнее всякого примера! … |
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
Я уже писал:»В модуль книги:». А Вы в общий модуль вставили. Понимаю, с ВБА туго. Я сам — дурнее всякого примера! … |
|
nik105 Гость |
#8 25.08.2010 02:03:30 Здравствуйте, Сергей. С уважением, Николай. |
Во многих случаях мы можем использовать код VBA для выполнения операций, которые встроенные функции Excel не поддерживают. Но пробовали ли вы когда-нибудь запускать макрос VBA при каждом открытии или закрытии книги? В этой статье я расскажу вам, как запускать код VBA при каждом открытии или закрытии книги.
Запускать код VBA при закрытии или открытии книги
Запускать код VBA при закрытии или открытии книги
1. Включите книгу, нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Двойной клик ThisWorkbook в проекте — VBAProject панель, чтобы открыть ThisWorkbook (Код) окно.
2. В окне кода выберите Workbook из раскрывающегося списка слева. Обратите внимание, что по умолчанию Откройте будет отображаться в правом раскрывающемся списке, если нет, измените его на Откройте.
3. Затем скопируйте свой собственный код без первой и последней строки и вставьте между Private Sub Workbook_Open() и End Sub как показано ниже.
4. Затем нажмите Сохраните кнопку, чтобы сохранить код, в появившемся диалоговом окне напоминания нажмите Нет.
5 Тогда Сохранить как появится диалоговое окно, сохраните файл как Excel Macro-Enabled Workbook и выберите папку для размещения файла.
6. Нажмите Сохраните кнопка. Теперь код будет работать, пока рабочая книга открыта.
Если вы хотите запускать код при закрытии книги каждый раз, выберите Деактивировать из правого раскрывающегося списка в Code окно и скопируйте код, который вы будете запускать, и вставьте между Private Sub Workbook_Deactivate() и End Sub.
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (1)
Оценок пока нет. Оцените первым!
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.
Similar Content on TeachExcel
Open Excel Workbook Using VBA Macros
Tutorial:
Simple way to open an Excel workbook using VBA and macros.
Syntax
Workbooks.Open («File…
Macro to get Data from Another Workbook in Excel
Tutorial:
Macro to get data from a workbook, closed or open, over a network or locally on your comp…
Get User Submitted Data from a Prompt in Excel using VBA Macros
Tutorial: How to prompt a user for their input in Excel.
There is a simple way to do this using VBA …
Interactive Clickable Buttons and Interface Without Using VBA/Macros in Excel
Tutorial:
How to make your Excel dashboards and worksheets more interactive and easier to view and …
Loop through a Range of Cells in Excel VBA/Macros
Tutorial: How to use VBA/Macros to iterate through each cell in a range, either a row, a column, or …
Kill Command in Excel (Delete Files Using VBA)
Tutorial:
How to safely remove, delete, kill any Excel file, or other file, using VBA Macros in Exc…
Subscribe for Weekly Tutorials
BONUS: subscribe now to download our Top Tutorials Ebook!
Макрос закрытия книги без сохранения
Смотрите также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
не работает, а