При создании Веб запроса в эксель, встроенный браузер IE открывает некоторые страницы (особенно на новых сайтах) с ошибками, часть не открывает вообще, часть в непонятной кодировке, не сохраняет пароли, и т.д.
Установка другого браузера по умолчанию в системе ни к чему не привела Обновление до последней версии IE ни к чему не привела. Такое ощущение, что в экселе какая-то доисторическая версия браузера, на которую никак не повлиять.
Возможно ли обновить, изменить или заменить браузер, который используется при подключении к внешним данным? Если да то как? в инете очень скудная информация на эту тему.
Здравствуйте,
При создании Веб запроса в эксель, встроенный браузер IE открывает некоторые страницы (особенно на новых сайтах) с ошибками, часть не открывает вообще, часть в непонятной кодировке, не сохраняет пароли, и т.д.
Установка другого браузера по умолчанию в системе ни к чему не привела Обновление до последней версии IE ни к чему не привела. Такое ощущение, что в экселе какая-то доисторическая версия браузера, на которую никак не повлиять.
Возможно ли обновить, изменить или заменить браузер, который используется при подключении к внешним данным? Если да то как? в инете очень скудная информация на эту тему.alex2609
Сообщение отредактировал alex2609 - Воскресенье, 23.10.2016, 22:02
Можно подключатся к Инету через запросы - без браузера. Можно через VBA получать данные при помощи как др. браузеров, так и встроенными функциями и браузером юзерформы. Что Вам нужно в итоге получить, или сделать?
Можно подключатся к Инету через запросы - без браузера. Можно через VBA получать данные при помощи как др. браузеров, так и встроенными функциями и браузером юзерформы. Что Вам нужно в итоге получить, или сделать?SLAVICK
Нужно получить данные с сайта и регулярно обновлять их.
Первая проблема. Я подключаюсь к сайту, ввожу логин и пароль, запоминаю его. импортирую данные но при обновлении эксель не обновляет данные, а при переходе по ссылке требует снова вводить пароль. т.е. не запоминает его.
Цитата
Можно подключатся к Инету через запросы - без браузера
Для этого нужно знать ссылку на страницу?
Цитата
Можно через VBA получать данные при помощи как др. браузеров, так и встроенными функциями и браузером юзерформы
Это я не умею Делаю так Данные - Получить данные из Интернета Хочется открыть сайт выбрать нужную информацию и импортировать ее. А в реальности при открытии страницы выдается туча ошибок сценария и нужная информация вообще не отображается.
Нужно получить данные с сайта и регулярно обновлять их.
Первая проблема. Я подключаюсь к сайту, ввожу логин и пароль, запоминаю его. импортирую данные но при обновлении эксель не обновляет данные, а при переходе по ссылке требует снова вводить пароль. т.е. не запоминает его.
Цитата
Можно подключатся к Инету через запросы - без браузера
Для этого нужно знать ссылку на страницу?
Цитата
Можно через VBA получать данные при помощи как др. браузеров, так и встроенными функциями и браузером юзерформы
Это я не умею Делаю так Данные - Получить данные из Интернета Хочется открыть сайт выбрать нужную информацию и импортировать ее. А в реальности при открытии страницы выдается туча ошибок сценария и нужная информация вообще не отображается.alex2609
Посмотрите тут, и тут попроще. А вообще все зависит от сайта. Может достаточно раз ввести логин и пароль вручную он запомнит, а может нужно каждый раз(день) обновлять, а может можно прямо в строке запроса его передать... Если достаточно один раз ввести пароль тогда достаточно так: [vba]
Код
Sub d() [a1] = getSiteIE("http://www.excelworld.ru/forum/2-30906-1", 1) End Sub
Function getSiteIE(strURL As String, Optional showIE As Boolean) Dim ie As Object Dim HTMLDoc As HTMLDocument Dim HTMLlinks As HTMLAnchorElement Set ie = CreateObject("InternetExplorer.Application") On Error Resume Next: Err.Clear ie.Visible = showIE ie.Navigate strURL t = Timer Do While ie.readyState <> 4 And Timer - t < 10000 / 1000 DoEvents If Err <> 0 Then Exit Do Loop
If ie.readyState = 4 Then Set HTMLDoc = ie.Document: getSiteIE = HTMLDoc.body.innerHTML Else getSiteIE = "Timeout Loading" End If ie.Quit Set ie = Nothing End Function
[/vba] Сначала откройте инетернет эксплорер - введите логин и пароль. Он сохранит куки - потом можете запускать вышепредложенный код(только ссылку свою введите.). и чтоб не мелькал ИЭ вместо: [vba]
Посмотрите тут, и тут попроще. А вообще все зависит от сайта. Может достаточно раз ввести логин и пароль вручную он запомнит, а может нужно каждый раз(день) обновлять, а может можно прямо в строке запроса его передать... Если достаточно один раз ввести пароль тогда достаточно так: [vba]
Код
Sub d() [a1] = getSiteIE("http://www.excelworld.ru/forum/2-30906-1", 1) End Sub
Function getSiteIE(strURL As String, Optional showIE As Boolean) Dim ie As Object Dim HTMLDoc As HTMLDocument Dim HTMLlinks As HTMLAnchorElement Set ie = CreateObject("InternetExplorer.Application") On Error Resume Next: Err.Clear ie.Visible = showIE ie.Navigate strURL t = Timer Do While ie.readyState <> 4 And Timer - t < 10000 / 1000 DoEvents If Err <> 0 Then Exit Do Loop
If ie.readyState = 4 Then Set HTMLDoc = ie.Document: getSiteIE = HTMLDoc.body.innerHTML Else getSiteIE = "Timeout Loading" End If ie.Quit Set ie = Nothing End Function
[/vba] Сначала откройте инетернет эксплорер - введите логин и пароль. Он сохранит куки - потом можете запускать вышепредложенный код(только ссылку свою введите.). и чтоб не мелькал ИЭ вместо: [vba]