Не всегда открывается форма

Старая форма входа

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

Не всегда открывается форма (Макросы/Sub)

Sobirjon

Дата: Понедельник, 02.03.2020, 12:52 | Сообщение № 1

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

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

Сообщений: 151

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

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

2016

Доброго времени суток, уважаемые форумчане!
Очередная головоломка от эксель

Имеются две книги "Запуск" и "Файл".
Книга "Запуск" копирует "Файл" в папку "Temp", запускает книгу "Файл" и сама книга "Запуск" закрывается (Этот вопрос ранее решалась здесь на форуме, спасибо всем кто участвовал)
Теперь проблема возникла в следующем:
Если Имеется любая открытая книга и запустить книгу "Запуск", то форма из книги "Файл" закрывается (именно закрывается при закрытии киги "Запуск")
Проблема не наблюдается, если нет открытых книг перед открытием книги "Запуск".
Обнаружил что причиной этому является формулы в листе Price.
Пробовал отключить авторасчет в настройках и в макросе не помогает.
Есть ли решение данной проблемы?
В приложенном архиве имеются 3 файла
1 • Запуск
2 • Файл формулы
3 • Файл без формул
Если засунуть в книгу "Запуск" книгу "Файл формулы" проблема есть
Если засунуть в книгу "Запуск" книгу "Файл без формул" проблем нет
В примере книга "Файл без формул" приложена только для ознакомления, в "жизни" используется книга с формулами

К сообщению приложен файл: 4605266.7z (391.6 Kb)

Сообщение отредактировал Sobirjon - Понедельник, 02.03.2020, 12:52

Ответить

doober

Дата: Понедельник, 02.03.2020, 20:33 | Сообщение № 2

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

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

Сообщений: 971

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

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

Excel 2010

Если я все верно понял, но у меня проблем нет
Открыл 2 файла, потом Ваш

К сообщению приложен файл: 9352495.png (175.6 Kb)

Сообщение отредактировал doober - Понедельник, 02.03.2020, 20:34

Ответить

Sobirjon

Дата: Вторник, 03.03.2020, 03:20 | Сообщение № 3

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

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

Сообщений: 151

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

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

2016

doober, все правильно поняли, у Вас какая версия экселья?
Пробовал 2016, 2019 проблема остается актуальной. Попробовал на 2010 запустился.
Может виной этому не формулы, но ни как не могу, не понять, не отловить....
Оригинал файла большой, пробовал там удалить формулы, проблема сохраняется.
Причем когда книга "Запуск" открывает книгу "Файл", форма появляется, а при закрытие книги "Запуск", вместе с книгой и форма закрывается.
Обнаружил что форма закрывается когда книга "Файл" запускается на заднем фоне. В макросе в лоб прописывал активировать книгу "Файл".
Все равно не хочет запуститься на переднем фоне книги "Запуск", хотя при этом активной книгой является книга "Файл".
Подождем, может кто уже решал подобную проблему.

Ответить

Sobirjon

Дата: Вторник, 03.03.2020, 03:37 | Сообщение № 4

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

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

Сообщений: 151

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

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

2016

doober Сейчас разархивировал и проверил по новой, файл запустился без поддержи макроса. Нажал на разрешить, сработал как и должно было.
Но когда папка из которого запускаются книги находится в надежном расположении, проблема повторяется.
Одним словом, если книга будет запускаться с включенным макросом, тогда форма закрывается.

Ответить

doober

Дата: Вторник, 03.03.2020, 13:31 | Сообщение № 5

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

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

Сообщений: 971

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

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

Excel 2010

У меня 2010 32
Попробуйте на другой машине проверить

Ответить

boa

Дата: Вторник, 03.03.2020, 21:10 | Сообщение № 6

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

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

Сообщений: 559

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

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

365

Здравствуйте,
Проблема в "каше" которую вы написали. Одна и таже версия excel может реагировать по разному и без каких-то обновлений не проходить компиляцию или вообще "вылетать"
постарайтесь разобраться с объектами таблицы. Интернет вам в помощь, вот здесь хорошая статья.
[vba]

Код

'    Или обращайтесь к колонке данных по номеру
    arrChanSours = shDop.ListObjects("tb_ChanSours").DataBodyRange.Columns(1).Value     ' источник канала
'    или обращайтесь к данным по имени колонки
    arrListLift = shDop.ListObjects("tb_Lift").ListColumns("Лифт").Range.Value          ' лифт
'    но т.к. у вас таблицы состоят из одной колонки, то можно вообще без колонки
    arrListProduct = shDop.ListObjects("tb_ProductCategory").DataBodyRange.Value        ' список товаров

[/vba]

Сообщение отредактировал boa - Вторник, 03.03.2020, 21:10

Ответить

Sobirjon

Дата: Среда, 04.03.2020, 03:07 | Сообщение № 7

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

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

Сообщений: 151

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

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

2016

boa Спасибо за ссылку. Спорить не буду на счет макроса!
только позвольте не поверить на

Цитата boa, 03.03.2020 в 21:10, в сообщении № 6 ()

Проблема в "каше"

Попробовал убрать папку из "надежные расположения". Пока не сглазить бы, запускается как и планировался.
Тем не мене спасибо за поправку, буду исправлять код :ok:

Ответить

Не всегда открывается форма (Макросы/Sub)

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