Похожие вопросы из справочника EXCEL: Отключение округления чисел Вставка объекта в электронной таблице Excel Как ввести отрицательное число в Excel

Модератор форума: китин 
закрытие екселя с сохранением и без предупреждения
85Muslim85 Дата: Суббота, 21.03.2015, 14:08 | Сообщение № 1
Репутация: -23±
Замечаний: 80%±

Excel 2007
добрый день, скажите как закрыть ексель (полностью выйти) с сохранением под таким же названием и без предупреждения
скажите что в этом коде не так((((

[vba]
Sub вава()
Range("A1") = 1
Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")
Workbooks.Close
End Sub
[/vba]
добрый день, скажите как закрыть ексель (полностью выйти) с сохранением под таким же названием и без предупреждения
скажите что в этом коде не так((((

[vba]
Sub вава()
Range("A1") = 1
Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")
Workbooks.Close
End Sub
[/vba]85Muslim85


Сообщение отредактировал 85Muslim85 - Суббота, 21.03.2015, 16:26
 
Ответить

KSV Дата: Суббота, 21.03.2015, 14:29 | Сообщение № 2
Репутация: 255±
Замечаний: 0%±

Excel 2013
все правильно

[vba]
' подавляет предупреждения Excel
Workbooks.Application.DisplayAlerts = False

' сохраняет книгу в файл С ДРУГИМ именем
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")

' сохраняет книгу в файл С ТЕМ ЖЕ именем
Excel.ActiveWorkbook.Save

' закрывает книгу
Workbooks.Close

' закрыть с сохранением (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close True

' закрыть без сохранения (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close False

' закрыть Excel (закроется только если в этом же Application больше нет открытых и не сохраненных книг,
' иначе будет запрашивать подтверждения сохранения, при .DisplayAlerts = True)
Application.Quit
[/vba]
все правильно

[vba]
' подавляет предупреждения Excel
Workbooks.Application.DisplayAlerts = False

' сохраняет книгу в файл С ДРУГИМ именем
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")

' сохраняет книгу в файл С ТЕМ ЖЕ именем
Excel.ActiveWorkbook.Save

' закрывает книгу
Workbooks.Close

' закрыть с сохранением (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close True

' закрыть без сохранения (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close False

' закрыть Excel (закроется только если в этом же Application больше нет открытых и не сохраненных книг,
' иначе будет запрашивать подтверждения сохранения, при .DisplayAlerts = True)
Application.Quit
[/vba]KSV


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Суббота, 21.03.2015, 14:34
 Ответить

85Muslim85 Дата: Суббота, 21.03.2015, 14:35 | Сообщение № 3
Репутация: -23±
Замечаний: 80%±

Excel 2007
все отлично)) спасибки... вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save
Application.Quit
все отлично)) спасибки... вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save
Application.Quit85Muslim85
 
Ответить

Источник: http://www.excelworld.ru/forum/10-16508-1

Модератор форума: китин 
закрытие екселя с сохранением http://profexcel.ru/raznie-voprosi/otobrazhaem-nevidimie-obekti-na-liste-ms-excel.php без предупреждения
85Muslim85 Дата: Суббота, 21.03.2015, 14:08 Сообщение № 1
Репутация: -23±
Замечаний: 80%±

Excel 2007
добрый день, скажите как закрыть ексель (полностью выйти) с сохранением под таким же названием и без ссылка
скажите что в этом коде не так((((

[vba]
Sub вава()
Range("A1") = 1
Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")
Workbooks.Close
End Sub
[/vba]
добрый день, скажите как закрыть ексель (полностью выйти) с сохранением под таким же названием и без предупреждения узнать больше скажите что в этом коде не так((((

[vba]
Sub вава()
Range("A1") = 1
Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")
Workbooks.Close
End Sub
[/vba]85Muslim85


Сообщение отредактировал 85Muslim85 - Суббота, 21.03.2015, 16:26
 
Ответить

KSV Дата: Суббота, 21.03.2015, 14:29 Сообщение № 2
Репутация: 255±
Замечаний: 0%±

Excel 2013
все правильно

[vba]
' подавляет предупреждения Excel
Workbooks.Application.DisplayAlerts = False

' сохраняет книгу в файл С ДРУГИМ именем
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")

' сохраняет книгу в файл С ТЕМ ЖЕ именем
Excel.ActiveWorkbook.Save

' http://profexcel.ru/raznie-voprosi/kak-v-excel-zapolnit-pustie-yacheyki-nulyami-ili-znacheniyami-iz-yacheek-vishe-nizhe.php книгу
Workbooks.Close

' закрыть с сохранением (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close True

' закрыть без сохранения (без запроса подтверждения по этой ссылке, даже если .DisplayAlerts = True)
Workbooks.Close False

' закрыть Excel (закроется только если в этом же Application больше нет открытых и не сохраненных книг,
' иначе будет запрашивать подтверждения сохранения, при .DisplayAlerts = True)
Application.Quit
[/vba]
все правильно

[vba]
' подавляет предупреждения Excel
Workbooks.Application.DisplayAlerts = False

' сохраняет книгу в файл С ДРУГИМ именем
Excel.ActiveWorkbook.SaveAs ("rl.xlsm")

' сохраняет книгу в файл С ТЕМ ЖЕ именем
Excel.ActiveWorkbook.Save ссылка ' закрывает книгу
Workbooks.Close

' закрыть с сохранением (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close True

' закрыть без сохранения (без запроса подтверждения пользователя, даже если .DisplayAlerts = True)
Workbooks.Close False

' закрыть Excel (закроется только если в этом же Application больше нет открытых и не сохраненных книг,
' иначе будет запрашивать подтверждения сохранения, при .DisplayAlerts = True)
Application.Quit
[/vba]KSV


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Ссылка, 21.03.2015, 14:34
 Ответить

85Muslim85 Дата: Суббота, 21.03.2015, 14:35 Сообщение № 3
Репутация: -23±
Замечаний: 80%±

Excel 2007
все отлично)) спасибки. вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save
Application.Quit
все отлично)) спасибки. вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save посетить страницу Application.Quit85Muslim85
 
Ответить

Источник: http://www.excelworld.ru/forum/10-16508-1