закрытие книг excel - Страница 3

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/закрытие книг excel - Страница 3 - Мир MS Excel

Страница 3 из 3 « 1 2 3
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин

Мир MS Excel » Вопросы и решения » Вопросы по VBA » закрытие книг excel (Макросы/Sub)

закрытие книг excel

Asretyq

Дата: Пятница, 16.11.2018, 18:01 | Сообщение № 41

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

Ранг: Форумчанин

Сообщений: 175

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

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

Excel 2013

StoTisteg, Пришел с работы, скачал те же файлы, что скинул на работе, работают отлично. Ничего не пойму... На работе ексель 2010, дома 2013... Значит версионность дело всему...

Ответить

RAN

Дата: Пятница, 16.11.2018, 18:10 | Сообщение № 42

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

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

Сообщений: 4913

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

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

2010

W7 E2010 :ok:

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

Сообщение отредактировал RAN - Пятница, 16.11.2018, 18:11

Ответить

StoTisteg

Дата: Суббота, 17.11.2018, 20:09 | Сообщение № 43

Группа: Авторы

Ранг: Старожил

Сообщений: 1151

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

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

Excel 2010

Asretyq, на работе гоняйте макрос со счётчиком по F8 и смотрите, выйдет ли из цикла по Exit For и если да, то когда и чему при этом будет равен Workbooks.Count. Если вылетит, то меняйте [vba]

Код

If i>Workbooks.Count Then Application.Quit Else ThisWorkbook.Close

[/vba]на [vba]

Код

If i>Workbooks.Count Then
    Application.Quit
    Else
        Dim s As String
        s=Workbooks(i).Name
End If

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

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Суббота, 17.11.2018, 20:34

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » закрытие книг excel (Макросы/Sub)

Страница 3 из 3
«
1
2
3