Автоматическое нажимание "Сохранить"

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Автоматическое нажимание "Сохранить" (Макросы/Sub)

ant6729

Дата: Пятница, 20.10.2017, 10:11 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Добрый день, как прописать автоматическое нажатие сохранить?

Например в коде

[vba]

Код

Sub sss()

ChDir "G:\"
ActiveWorkbook.SaveAs Filename:="G:\345.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

' xlsApplication.ActiveWorkbook.Saved = True

End sub

[/vba]

Как прописать последнюю строчку? Не работает так... все равно спрашивает сохранить или нет...

Ответить

buchlotnik

Дата: Пятница, 20.10.2017, 10:27 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Эту строчку в модуль книги писать надо:
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

[/vba]

Ответить

_Boroda_

Дата: Пятница, 20.10.2017, 10:36 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Или по крайней мере перед Closeтом

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

RAN

Дата: Пятница, 20.10.2017, 10:59 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[offtop]В предложении сохранять перед клозетом, что-то есть...

[/offtop]

Быть или не быть, вот в чем загвоздка!

Ответить

ant6729

Дата: Пятница, 20.10.2017, 11:01 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Думал, что после этой строчки [vba]

Код

ActiveWindow.Close

[/vba] вызывается диалоговое окно на сохранение(оно то так и есть...), и я ее тут же снимаю этой [vba]

Код

ActiveWorkbook.Saved = True

[/vba] поэтому писал после нее...ан нет)

Перед Close сработало, спасибо!

Ответить

ant6729

Дата: Пятница, 20.10.2017, 11:05 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Вообще, не знаю.. раньше в процедуре не было запроса на сохранение, все сохранялось самостоятельно... и не задавало лишних вопросов...) Но потом что-то пошло не так... пришлось дописать...Честно сказать, я так и не понял, почему.

Ответить

Автоматическое нажимание "Сохранить" (Макросы/Sub)

Страница 1 из 1
1