ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при выполнии макроса
10 сообщений из 10, страница 1 из 1
Ошибка при выполнии макроса
    #39970100
berzau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berzau
Гость
Добрый день!

Внезапно стала возникать ошибка при выполнении нижеследующего кода.

Код: vbnet
1.
2.
3.
4.
5.
Sub disknameletter()

Worksheets("main").Cells(1, 1) = ThisWorkbook.Path
 
End Sub



Текст ошибки:
Run-time error '-21473197697 (80028029)'
Automation error
Неверная ссылка вперед или ссылка на не откомпилированный тип.

До этого не один месяц всё отлично выполнялось, также код отлично исполняется в любом другом файле, но только не в этом.

Подскажите, пожалуйста, в чем может быть проблема?
...
Рейтинг: 0 / 0
17.06.2020, 11:33
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970101
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А если перед Worksheets указать ссылку на нужную книгу?
...
Рейтинг: 0 / 0
17.06.2020, 11:35
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970111
berzau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berzau
Гость
Shocker.Pro,

нет, но при этом работает вот так:

Код: vbnet
1.
Cells(1, 1) = ThisWorkbook.Path



Вообще любая ссылка на любой лист в этой книге вызывает эту ошибку, если снести этот лист, создать новый и переименовать его в "main", то макрос срабатывает. Более того в основной книге ни один макрос не хочет срабатывать на "старые" листы, но при создании новых с тем же содержимым и названием все нормально работает.
Никаких защит на лист не ставил.
...
Рейтинг: 0 / 0
17.06.2020, 11:55
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970135
berzau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berzau
Гость
Проверил на другом компе и всё работает корректно. Очень странно.
...
Рейтинг: 0 / 0
17.06.2020, 12:41
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970156
berzau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berzau
Гость
Вопрос решился переустановкой Office.
Макрос первоначально запускался на лицензионной win10 office365, на этой этой же версии после переустановки и запустился.
Причина возникновения проблемы для меня так и осталась не ясна.
...
Рейтинг: 0 / 0
17.06.2020, 13:18
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970240
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ldfanate
Участник
Код: vbnet
1.
Worksheets("main").Cells(1, 1) = ThisWorkbook.Path



а просто функция рабочего листа в ячейке А1 вас не устроит?
=ИНФОРМ("КАТАЛОГ")
...
Рейтинг: 0 / 0
17.06.2020, 15:25
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39970508
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
berzau
на "старые" листы
А Вы тип листов проверьте. Вдруг это листы макросов, они не относятся к семейству Worksheets.
Как вариант попробуйте так:
Код: vbnet
1.
sheets("main").Cells(1, 1) = ThisWorkbook.Path


ну а вообще сам бы файлик посмотреть - тогда сказать можно было бы точнее.

Упс. Позже увидел, что все решилось банально :)
...
Рейтинг: 0 / 0
18.06.2020, 13:40
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39976955
Alexey795
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey795
Гость
berzau,

Получил такую же ошибку с тем же кодом. До этого больше года все выполнялось безотказно. Сталкиваюсь с проблемой второй раз. В первый раз где-то в июне.
У меня ошибка возникает во время сохранения динамической таблицы в переменную.
Код: plaintext
Set TB = Workbooks(имя).worksheets(имя).listobjects(имя)
При этом такая же конструкция работает в начале скрипта и в друг их процедурах. В первый раз я обнулял переменную с сохраненной таблицей-1 перед сохранением в др переменную новой таблицы-2. И все тогда обошлось хотя потратил пол дня. Сейчас это не помогает.
...
Рейтинг: 0 / 0
07.07.2020, 10:03
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39978099
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Alexey795
Код: plaintext
Workbooks(имя)

имя - указано с расширением или без? Если без - надо добавить. На некоторых ПК установлена опция "Скрывать расширения для зарегистрированных типов файлов" и тогда в макросе расширение указывать не обязательно. Но если галка не установлена - то без расширения будет ошибка. Хотя если расширение указывать сразу, то работать будет в любом случае(с галкой и без)
...
Рейтинг: 0 / 0
10.07.2020, 13:12
| Ответить | Цитировать | Написать  
Ошибка при выполнии макроса
    #39991271
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
The_Prist
Alexey795
Код: plaintext
Workbooks(имя)

имя - указано с расширением или без? Если без - надо добавить. На некоторых ПК установлена опция "Скрывать расширения для зарегистрированных типов файлов" и тогда в макросе расширение указывать не обязательно. Но если галка не установлена - то без расширения будет ошибка. Хотя если расширение указывать сразу, то работать будет в любом случае(с галкой и без)


да, один раз пару часов потратил на эту проблему.
...
Рейтинг: 0 / 0
21.08.2020, 00:57
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при выполнии макроса
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=3&tid=2154789]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 296ms
total:  430ms
созд. / загр.: 430ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]