Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: китин, _Boroda_, DrMini  
закрытие книг excel
StoTisteg Дата: Суббота, 17.11.2018, 20:09 | Сообщение № 41
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 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
 
Ответить
Сообщение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:09
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!