Ошибка 1004 в таблице

[-FH- 612]

Скажите пожалуйста ошибка 1004 - Тут региональные настройки менять надо? 

DANpoliBtAl-Update.xlsm

[Серёжа Салуха 0]

2 часа назад, -FH- сказал:

Скажите пожалуйста ошибка 1004 - Тут региональные настройки менять надо? 

DANpoliBtAl-Update.xlsm 1 \u041c\u0411 · 4 загрузки

только что попробывал..всё работает..не какой ошибки нет.

[Anaz87 229]

Ошибка 1004 неверный адрес сайта

[zxxxa 75]

У меня такая же ошибка выскакивает

[zxxxa 75]

2 часа назад, Anaz87 сказал:

Ошибка 1004 неверный адрес сайта

Интересно было бы знать - а на какой он сайт лезет?

[GeeGs 595]

Для работы привлекается сайт tipstersarea.com.  Используйте переключатель

 

[spaun21 7]

В 08.06.2021 в 19:28, GeeGs сказал:

Для работы привлекается сайт tipstersarea.com.  Используйте переключатель

 

скачивает файл потом резко его закрывает , и через ексель ошибка 1004

[GeeGs 595]

11 часов назад, spaun21 сказал:

скачивает файл потом резко его закрывает , и через ексель ошибка 1004

Мало информации, чтобы поставить диагноз. Видео происходящего облегчило бы задачу. 

[spaun21 7]

2 часа назад, GeeGs сказал:

Мало информации, чтобы поставить диагноз. Видео происходящего облегчило бы задачу. 

вот вам запись 

[Anton 457]

3 часа назад, spaun21 сказал:

вот вам запись 

я думаю из-за заставки на рабочем столе

попробуй разархивировать в папку и от туда запусти

 

и Debug немешало бы нажать, на что он ругается

[GeeGs 595]

3 часа назад, spaun21 сказал:

вот вам запись

Для работы в среде 64-битной операционной системы - а я, таки, думаю, что такая разрядность установлена - следует запускать файлик переключателя соответствующей разрядности - 64bit., а не 32bit как на видео. Ну и да, было бы не плохо первоначально распаковать архив в отдельную папку.  Пытаться работать с любым файлом, запуская его из архива - дурной вкус и ламерство, приводящее к куче ненужных вопросов.  И на всякий случай, для надёжной работы файлов автоматических парсеров в среде Excel 2013 версии категорически рекомендовано скачать и установить  сервис-пак SP1 для Excel2013 c сайта производителя.

[spaun21 7]

16 минут назад, Anton сказал:

я думаю из-за заставки на рабочем столе

попробуй разархивировать в папку и от туда запусти

 

и Debug немешало бы нажать, на что он ругается

отправляю debug

[GeeGs 595]

Только что, spaun21 сказал:

отправляю debug

Это необязательно. Дело однозначно не в нём.

[spaun21 7]

2 минуты назад, GeeGs сказал:

Для работы в среде 64-битной операционной системы - а я, таки, думаю, что такая разрядность установлена - следует запускать файлик переключателя соответствующей разрядности - 64bit., а не 32bit как на видео. Ну и да, было бы не плохо первоначально распаковать архив в отдельную папку.  Пытаться работать с любым файлом, запуская его из архива - дурной вкус и ламерство, приводящее к куче ненужных вопросов.  И на всякий случай, для надёжной работы файлов автоматических парсеров в среде Excel 2013 версии категорически рекомендовано скачать и установить  сервис-пак SP1 для Excel2013 c сайта производителя.

для 64 бит не работает

[spaun21 7]

антивирусник ругается когда распаковываешь в папку

[GeeGs 595]

1 минуту назад, spaun21 сказал:

для 64 бит не работает

Распакуйте уже файлы из архива в отдельную папку и запускайте их , как положено.  Какая разрядность вашей операционки?

[GeeGs 595]

4 минуты назад, spaun21 сказал:

антивирусник ругается когда распаковываешь в папку

Это естественно для него. Отключайте или прописывайте файл в исключения. 

Для вашего случая, например здесь: https://remontka.pro/exclusions-defender-windows-10/

[spaun21 7]

2 минуты назад, GeeGs сказал:

Это естественно для него. Отключайте или прописывайте файл в исключения. 

ладно спасибо но я все равно не понимаю в этом ничего (значит не судьба)

[Anton 457]

.Refresh BackgroundQuery:=False

попробуй заменить на это:

 

          If Index = ctr Then

          Else
               .Refresh BackgroundQuery:=False
          End If

Изменено 10 июня, 2021 пользователем Anton

[GeeGs 595]

14 минут назад, spaun21 сказал:

ладно спасибо но я все равно не понимаю в этом ничего (значит не судьба)

Как добавить скаченный файл в исключения вашего Антивируса описано, например, здесь: https://remontka.pro/exclusions-defender-windows-10/

Результатом этого добавления должна стать работа файла переключателя NEW_OLD_TipsterArea_Switcher_RUS_64bit или NEW_OLD_TipsterArea_Switcher_RUS_32bit в зависимости от установленной разрядности , показанная в этом видео:

[GeeGs 595]

2 часа назад, Anton сказал:

.Refresh BackgroundQuery:=False

попробуй заменить на это:

 

          If Index = ctr Then

          Else
               .Refresh BackgroundQuery:=False
          End If

Можете обосновать появление двух неизвестных параметров (Index и ctr) в коде стандартной процедуры web-запроса? Без их объявления на более ранних шагах в коде этого макроса всё ваше предлагаемое условие теряет всякий смысл: значения параметров Index и ctr всегда будут оставаться неопределёнными, а значит - пустыми и веб-запрос не будет выполнен. Если не будет выполнен этот web-запрос, значит не будут определены все остальные ссылки, необходимые для работы парсера. А значит ошибка о невозможности получить данные с запрашиваемого ресурса будет появляться на следующих этапах обязательно.  Вы сами пробовали проверить у себя то, что предлагаете или просто бездумно списали откуда-то?

[Anton 457]

6 минут назад, GeeGs сказал:

Можете обосновать появление двух неизвестных параметров (Index и ctr) в коде стандартной процедуры web-запроса? Без их объявления на более ранних шагах в коде этого макроса всё ваше предлагаемое условие теряет всякий смысл: значения параметров Index и ctr всегда будут оставаться неопределёнными, а значит - пустыми и веб-запрос не будет выполнен. Если не будет выполнен этот web-запрос, значит не будут определены все остальные ссылки, необходимые для работы парсера. А значит ошибка о невозможности получить данные с запрашиваемого ресурса будет появляться на следующих этапах обязательно.  Вы сами пробовали проверить у себя то, что предлагаете или просто бездумно списали откуда-то?

Не пробовал, не пользуюсь этой таблицей, своего хватает, просто загуглил ошибку, бывает помогает) Тоже обратил внимание, на ctr, но я не шарю, может это какая встроеная фишка, в коде по ссылке этой переменной тоже нет

https://coderoad.ru/5559644/VBA-Excel-QueryTables-add-Refresh-BackgroundQuery-ошибка

 

 

[GeeGs 595]

35 минут назад, Anton сказал:

Не пробовал, не пользуюсь этой таблицей, своего хватает, просто загуглил ошибку, бывает помогает) Тоже обратил внимание, на ctr, но я не шарю, может это какая встроеная фишка, в коде по ссылке этой переменной тоже нет

https://coderoad.ru/5559644/VBA-Excel-QueryTables-add-Refresh-BackgroundQuery-ошибка

В следующий раз будьте аккуратнее с подобным желанием помочь. Ошибки - одни и те же - они могут проявляться при совершенно разных ситуациях. По ссылке в статье описывалась ситуация, когда запросы целенаправленно добавлялись через функцию QueryTables и в определённый момент понадобилось их прерывание. Кстати, используя условия с двумя неопределёнными параметрами,  человек в статье по факту получил требуемый результат - принудительное прерывание, но по сути не понял, почему оно произошло, о чём сам же и сообщил в самом начале своего ответа...))
В нашем рассматриваемом выше случае всё гораздо проще - в стандартном web-запросе просто отсутствует корректный URL-адрес из-за обращения парсера к обновлённой главной странице сайта. В результате код загрузки данных прерывается на последней стандартной процедуре,  сигнализируя сообщением об ошибке.  Чтобы парсер заработал, в кеше Excel необходимо прописать обращение к прежней "старой" форме главной страницы. Это можно сделать либо вручную, через однократную загрузку данных "старой" страницы из формы встроенного web-запроса Excel, либо используя приложение "Переключатель" для нового сайта Tipsterarea, который проделывает ту же процедуру, но в автоматическом режиме.