Зависимость работы c ListObjects(**) контекста

@Павел2019 · Регистрация: 06.04.2019

Студворк — интернет-сервис помощи студентам

Коллеги! Нужна помощь!
Обладаю весьма приличным опытом в VBA Excel, но безуспешно потратил много (очень много!) времени на борьбу с ListObjects(**) и «умной таблицей» в связи с добавлением строки.
Необходимо всего лишь (даже как-то стыдно!) программным способом увеличить размер таблицы на одну строку. Использовал несколько вариантов
1. Изменение размера методом ….Resize
2. Добавление строки методом .Add
3. Добавление строки вниз таблицы с автоматическим изменением размера.

В тестах и простеньких макросах все работает прекрасно, но в составе достаточно сложного макроса дает системную ошибку – Excel вылетает. Все простые варианты (контролирую нахождение на лист и в активном файле, погасил все окна и объекты, контролирую адреса таблиц и ячеек и пр. мелочи). Острое ощущение, что что-то блокирует методы работы с таблицей и объектом и это критически зависит от контекста макроса.

Если конкретно, то, например, строка
>>> ActiveSheet.ListObjects("Spisok").Resize Range("$A$1:$E$92") <<<
в отдельном макросе работает, а в составе системы системную ошибку.

Остап Бонд · 06.04.2019, 12:48

Павел2019, много слов... Файлик бы с проблемой?

@Павел2019 · 06.04.2019, 13:00 **[ТС]**

Вот это и есть проблема!

Visual Basic
1
2
3
Sub Макрос2()
    ActiveSheet.ListObjects("Spisok").Resize Range("$A$1:$E$92")
End Sub

Работает безупречно.
Однако ссылка на него из системы макросов, или вставка этой строки в большой макрос (систему)
приводят к ошибке. Адекватность листов, файлов, ячеек ппри этом контролируется и не вызывает соинений.

SoftIce · 06.04.2019, 13:11

Сообщение от Павел2019

Адекватность листов

А почему бы к листам не обращаться по имени, на всякий случай ?

Добавлено через 1 минуту

Сообщение от Павел2019

ActiveSheet.

Да мало ли что происходит в "большом" макросе ? Вы уверены что в каждый конкретный момент активен нужный Вам лист ?

Добавлено через 59 секунд
Я не говорю, что ошибка именно в этом, просто на всякий случай.

@Павел2019 · 06.04.2019, 13:21 **[ТС]**

Сообщение от SoftIce

А почему бы к листам не обращаться по имени, на всякий случай

Пробовал и так. Не помогает

Добавлено через 59 секунд

Сообщение от SoftIce

Вы уверены что в каждый конкретный момент активен нужный Вам лист ?

Не просто уверен - контролирую в пошаговой трассировке.

SoftIce · 06.04.2019, 16:58

Не по теме:

Сообщение от Павел2019

Адекватность листов, файлов, ячеек ппри этом контролируется и не вызывает соинений

Третий закон Финейгла
В любом наборе исходных данных самая надежная величина, не требующая никакой
проверки, является ошибочной.

@Павел2019 · 06.04.2019, 19:53 **[ТС]**

Сообщение от SoftIce

Сообщение от Павел2019
Адекватность листов, файлов, ячеек ппри этом контролируется и не вызывает соинений
Третий закон Финейгла
В любом наборе исходных данных самая надежная величина, не требующая никакой
проверки, является ошибочной.

Вы меня неправильно поняли:
Не вызывает сомнения потому, что проверено и продемонстрировано достаточно убедительно в отладочном режиме. Я понимаю, что "исчерпывающее тестирование невозможно", но все что мне известно я применил для проверки.

@Павел2019 · 17.04.2019, 22:09 **[ТС]**

ИТОГО:
Хотелось увидеть конструктивную идею: что же может сформировать в большом макросе ситуацию, когда перестают работать методы .Add, .Resize, .Del и просто добавление вниз умной таблицы строки с автоматическим изменением размера? При том, что все тесты на маленьких макросах проходят успешно.
Так вот какой получается итог обсуждения в 3х форумах:
1. НЕТ НИКАКИХ КОНСТРУКТИВНЫХ ИДЕЙ! Видимо глюк VBA Exel+Microsoft.
2. Получается только "некрасивый и тупой" вариант - удалить таблицу (преобразовать в диапазон), дописать строку и вновь создать таблицу.
Спасибо всем за обсуждение.

@Казанский · 18.04.2019, 01:16

Сообщение от Павел2019

что же может сформировать в большом макросе ситуацию, когда перестают работать методы .Add, .Resize, .Del

- Защита листа
- Наличие другой умной таблицы ниже этой
- Формула массива, занимающая диапазон, который должен быть сдвинут или изменен при изменении размера УТ

Попробуйте проверить работу на другой версии Excel, желательно на 2007 - это минимальная версия, поддерживающая УТ.

@Павел2019 · 18.04.2019, 20:54 **[ТС]**

Первые три возможности отработаны тщательно и безрезультатно.

Я работаю с 2010 и 2016. Вопрос про 2007 для меня имеет только "академический интерес" - мне нужно работать с новыми версиями. Попробую конечно....

Спасибо!

Добавлено через 17 минут
Первые три возможности отработаны тщательно и безрезультатно.

Я работаю с 2010 и 2016. Вопрос про 2007 для меня имеет только "академический интерес" - мне нужно работать с новыми версиями. Попробую конечно....

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Павел2019 0 / 0 / 0 Регистрация: 06.04.2019 Сообщений: 6

	Зависимость работы c ListObjects() контекста 06.04.2019, 11:43. Показов 1829. Ответов 9 Метки нет (Все метки) Коллеги! Нужна помощь! Обладаю весьма приличным опытом в VBA Excel, но безуспешно потратил много (очень много!) времени на борьбу с ListObjects() и «умной таблицей» в связи с добавлением строки. Необходимо всего лишь (даже как-то стыдно!) программным способом увеличить размер таблицы на одну строку. Использовал несколько вариантов 1. Изменение размера методом ….Resize 2. Добавление строки методом .Add 3. Добавление строки вниз таблицы с автоматическим изменением размера. В тестах и простеньких макросах все работает прекрасно, но в составе достаточно сложного макроса дает системную ошибку – Excel вылетает. Все простые варианты (контролирую нахождение на лист и в активном файле, погасил все окна и объекты, контролирую адреса таблиц и ячеек и пр. мелочи). Острое ощущение, что что-то блокирует методы работы с таблицей и объектом и это критически зависит от контекста макроса. Если конкретно, то, например, строка >>> ActiveSheet.ListObjects("Spisok").Resize Range("$A$1:$E$92") <<< в отдельном макросе работает, а в составе системы системную ошибку. 0

Остап Бонд Заблокирован
	06.04.2019, 12:48
	Павел2019, много слов... Файлик бы с проблемой? 0

@Павел2019 0 / 0 / 0 Регистрация: 06.04.2019 Сообщений: 6
	17.04.2019, 22:09 [ТС]
	ИТОГО: Хотелось увидеть конструктивную идею: что же может сформировать в большом макросе ситуацию, когда перестают работать методы .Add, .Resize, .Del и просто добавление вниз умной таблицы строки с автоматическим изменением размера? При том, что все тесты на маленьких макросах проходят успешно. Так вот какой получается итог обсуждения в 3х форумах: 1. НЕТ НИКАКИХ КОНСТРУКТИВНЫХ ИДЕЙ! Видимо глюк VBA Exel+Microsoft. 2. Получается только "некрасивый и тупой" вариант - удалить таблицу (преобразовать в диапазон), дописать строку и вновь создать таблицу. Спасибо всем за обсуждение. 0

@Павел2019 0 / 0 / 0 Регистрация: 06.04.2019 Сообщений: 6
	18.04.2019, 20:54 [ТС]
	Первые три возможности отработаны тщательно и безрезультатно. Я работаю с 2010 и 2016. Вопрос про 2007 для меня имеет только "академический интерес" - мне нужно работать с новыми версиями. Попробую конечно.... Спасибо! Добавлено через 17 минут Первые три возможности отработаны тщательно и безрезультатно. Я работаю с 2010 и 2016. Вопрос про 2007 для меня имеет только "академический интерес" - мне нужно работать с новыми версиями. Попробую конечно.... Спасибо! 0