Здравствуйте. Почему-то перестал работать макрос на строке .Refresh BackgroundQuery:=False и выдает ошибку 1004 "Не удается открыть: https://iss.mo... Не удается загрузить нужные данные". До этого работал прекрасно, теперь работает только на другом компьютере. В этот макрос изменений не вносил. Однако, было дело, в другом документе добавлял/удалял библиотеки в Tools—References, но вроде как вернул все к исходному. Проблему изучал в интеренете, там этих вариаций ошибки 1004 тьма тьмущая и решения именно к моей проблеме так и не нашлось. Эксель переустановил с чисткой реестра и временных файлов, однако на итог это никак не повлияло.
[vba]
Код
Sub Basic_Web_Query() Worksheets("Sheet1").Range("A1:J10000").ClearContents ' очистка листа
With Sheet1.QueryTables.Add(Connection:= _ "URL;https://iss.moex.com/iss/engines/stock/markets/bonds/boards/TQCB/securities?iss.only=securities&iss.meta=off&securities.columns=YIELDATPREVWAPRICE,ISSUESIZE,MATDATE", Destination:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone .WebTables = "1" ' таблицы на странице .Refresh BackgroundQuery:=False .Delete ' отключение дублирования подключений End With
Application.UseSystemSeparators = True
End Sub
[/vba]
Здравствуйте. Почему-то перестал работать макрос на строке .Refresh BackgroundQuery:=False и выдает ошибку 1004 "Не удается открыть: https://iss.mo... Не удается загрузить нужные данные". До этого работал прекрасно, теперь работает только на другом компьютере. В этот макрос изменений не вносил. Однако, было дело, в другом документе добавлял/удалял библиотеки в Tools—References, но вроде как вернул все к исходному. Проблему изучал в интеренете, там этих вариаций ошибки 1004 тьма тьмущая и решения именно к моей проблеме так и не нашлось. Эксель переустановил с чисткой реестра и временных файлов, однако на итог это никак не повлияло.
[vba]
Код
Sub Basic_Web_Query() Worksheets("Sheet1").Range("A1:J10000").ClearContents ' очистка листа
With Sheet1.QueryTables.Add(Connection:= _ "URL;https://iss.moex.com/iss/engines/stock/markets/bonds/boards/TQCB/securities?iss.only=securities&iss.meta=off&securities.columns=YIELDATPREVWAPRICE,ISSUESIZE,MATDATE", Destination:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone .WebTables = "1" ' таблицы на странице .Refresh BackgroundQuery:=False .Delete ' отключение дублирования подключений End With
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
