Запрос QueryTables с yahoo невозможен из-за JavaScript

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

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

Запрос QueryTables с yahoo невозможен из-за JavaScript (Макросы/Sub)

friz-isuct

Дата: Воскресенье, 08.12.2019, 00:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Добрый вечер уважаемые форумчане, помогите пожалуйста решить проблему с запросом QueryTables:

Цель: получить HTML таблицу на листе Excel c активными гиперссылками в отдельных ячейках.

Как это делать мне известно, вот пример работающего кода:

[vba]

Код

Sub subWebLoad_HTML(txtURL As String)

Worksheets("Temp").Cells.Clear

'
Sheets("Temp").Select

'
    Application.CutCopyMode = False

    txtURL = "URL;https://finance.yahoo.com/screener/unsaved/bfd0d3b0-9328-4fe8-ad4b-c55e87104768?offset=0&count=100"
    With ActiveSheet.QueryTables.Add(Connection:=txtURL, Destination:=Range("$A$3"))
        '"URL;https://yandex.ru/search/?text=marketscreener.com%2FTHYSSENKRUPP-AG%20consensus&lr=115169&clid=2041431&win=87" _
        ', Destination:=Range("$A$3"))
        '.CommandType = 0
        .Name = txtURL
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

[/vba]

ПРОБЛЕМА:
Данный код в данный момент не работает с сайтом finance.yahoo.com

Причина:
При первом посещении сайта выходит сообщение на JavaScript, которое не поддерживается допотоптным встроенным браузером Excel.
Окно выглядит примерно так:
ScreenShot_1

Результат:
В результате макрос выдает мне текст этого окна

ScreenShot_2

Вопрос:

Есть ли возможность как то програмно закрыть это окно?
Таким образом была бы возможность использовать вышеприведеный макрос далее.

PS:

Я знаю как сохранить HTML/TEXT с помощью

Set IE = CreateObject("InternetExplorer.Application")
или
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

Но эти варианты для меня не совсем удобные, так как дальнейшая переработка информации требует дополнительных решений. А в случае с QueryTables получается довольно простое решение.
Хотелось бы в идеале получать вот такую таблицу (см. файл).

Код

К сообщению приложен файл: _1.xls (36.0 Kb)

Сообщение отредактировал friz-isuct - Воскресенье, 08.12.2019, 00:49

Ответить

СообщениеДобрый вечер уважаемые форумчане, помогите пожалуйста решить проблему с запросом QueryTables:

Цель: получить HTML таблицу на листе Excel c активными гиперссылками в отдельных ячейках.

Как это делать мне известно, вот пример работающего кода:

[vba]

Код

Автор - friz-isuct
Дата добавления - 08.12.2019 в 00:40

doober

Дата: Воскресенье, 08.12.2019, 09:51 | Сообщение № 2

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

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

Сообщений: 971

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

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

Excel 2010

У меня без проблем Ваш код работает на 11 ишаке

Ответить

friz-isuct

Дата: Понедельник, 09.12.2019, 00:11 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Цитата doober, 08.12.2019 в 09:51, в сообщении № 2 ()

У меня без проблем Ваш код работает на 11 ишаке

Спасибо за тест кода! Мне остается только Вам завидовать! yes

Так как у меня он выдает текст сообщения всплывающего при ПЕРВОМ посещении Yahoo.
Возможно Вы уже на этом сайте были до этого и как то обошли это окно. Либо оно всплывает у меня из-за немецкого IP...

Суть вопроса остается прежней, можно ли как то програмно закрывать такие окна с помощью vba. Либо решить данную проблему путем копирования настроек/истории excel браузера.
Насколько я понимаю (возможно я ошибаюсь) excel использует свой браузер, который не поддерживает JavaSkript, поэтому я не могу закрыть это окно (ScreenShot_1) при создании запроса (см. видео).

QueryTable_Yahoo

В связи с этим у меня два варианта:
1. У браузера excel где то должны храниться файлы настроек и истории, тогда можно бы было их скопировать, например Ваши настройки.
2. Возможно есть варианты написать небольшой код, который закроет это окно и оно больше не будет мешать:

см. на Видео_2

Так же HTML код страницы с мешающим окном в приложении. Там по сути нужно нажать программно вот эту кнопку:
[vba]

Код

[/vba]
Возможно у кого то есть уже готовые решения?

Цитата doober, 08.12.2019 в 09:51, в сообщении № 2 ()

У меня без проблем Ваш код работает на 11 ишаке

Спасибо за тест кода! Мне остается только Вам завидовать! yes

Код

[/vba]
Возможно у кого то есть уже готовые решения?friz-isuct

К сообщению приложен файл: 3733153.xls (35.0 Kb)

Сообщение отредактировал friz-isuct - Понедельник, 09.12.2019, 00:18

Ответить

Сообщение

Цитата doober, 08.12.2019 в 09:51, в сообщении № 2 ()

У меня без проблем Ваш код работает на 11 ишаке

Спасибо за тест кода! Мне остается только Вам завидовать! yes

Код

[/vba]
Возможно у кого то есть уже готовые решения?

Автор - friz-isuct
Дата добавления - 09.12.2019 в 00:11

friz-isuct

Дата: Понедельник, 09.12.2019, 01:47 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Нашел удовлетворяющее меня решение проблемы тут:

planetaexcel.ru

Суть идеи делать QueryTable запрос к локальному HTML файлу, который можно сохранить с помощью Set IE = CreateObject("InternetExplorer.Application").

Так что тему можно считать закрытой, но было бы интересно узнать и другие решения, если они возможны (для общего развития):

Цитата

В связи с этим у меня два варианта:
1. У браузера excel где то должны храниться файлы настроек и истории, тогда можно бы было их скопировать, например Ваши настройки.
2. Возможно есть варианты написать небольшой код, который закроет это окно и оно больше не будет мешать:

Сообщение отредактировал friz-isuct - Понедельник, 09.12.2019, 03:27

Ответить

Запрос QueryTables с yahoo невозможен из-за JavaScript (Макросы/Sub)

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