Консультация № 177353
19.03.2010, 17:40
35.77 руб.
0 23 0
Уважаемые эксперты по данному коду открываю страницу, которая на сервере в закрытой локальной сети, в интернете её нет!!!
Dim control As Object
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер

ie.navigate ("http://10.196.192.26:9204/") 'открывает указанную в кавычках страницу
Do While ie.ReadyState <> 4 'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState
Loop
DoEvents

Открывается страница как я понимаю в неправильной кодировке:

Îøèáêà âûïîëíåíèÿ Microsoft VBScript ошибка '800a004c'
То есть страница открывается не корректно. Как этого избежать???

Обсуждение

Неизвестный
19.03.2010, 18:02
общий
Ципихович Эндрю:
Так страница открывается или нет?
Вообще то:
Microsoft VBScript runtime error '800a004c' Path not found

Смотрим здесь и, если не поможет, здесь
Неизвестный
19.03.2010, 19:09
общий
согласен с Patriotix-N
"Îøèáêà âûïîëíåíèÿ Microsoft VBScript" - это "Ошибка выполнения Microsoft VBScript"
Неизвестный
19.03.2010, 22:00
общий
Patriotix-N:
Как написано в вопросе так и есть
То есть страница открывается не корректно
ОТКРЫВАЕТСЯ а иначе как бы я уидел "Îøèáêà âûïîëíåíèÿ Microsoft VBScript" это видно на самой странице
давно
Профессионал
848
1596
20.03.2010, 10:31
общий
а если просто браузером IE открыть страницу ошибка тоже появляется?
Неизвестный
20.03.2010, 10:41
общий
Цитата: 238244
"Îøèáêà âûïîëíåíèÿ Microsoft VBScript" это видно на самой странице

А что еще видно?
Неизвестный
20.03.2010, 11:46
общий
PsySex:
если просто браузером IE открыть страницу ошибка не появляется, иначе если бы она появлялась я бы мог и не понять что это ошибка подумал бы, что так и должно быть
Неизвестный
20.03.2010, 11:51
общий
Patriotix-N:
еще видно
вверху страницы на русском языке слово, какое не помню, оно никакого значения не имеет, уж поверьте, это то слово если бы страница открылась просто браузером IE
ниже
Îøèáêà âûïîëíåíèÿ Microsoft VBScript
ниже две строчки в таком же греческом стиле Îøèáêà âûïîëíåíèÿ
Неизвестный
20.03.2010, 12:05
общий
Цитата: 238244
Îøèáêà âûïîëíåíèÿ Microsoft VBScript
ниже две строчки в таком же греческом стиле Îøèáêà âûïîëíåíèÿ

Ну это же не ваша страница?
Вы видите хоть какие-нибудь признаки признаки того, что это нужная вам страница?
Это же не она! Страница открылась не "не корректно", а вообще не открылась! Об этом и свидетельствует сообщение об ошибке!

P.S. Неужели в IE нету нужной кодировки? Или вы даже не пытались ее поменять?
Неизвестный
20.03.2010, 12:10
общий
Îøèáêà âûïîëíåíèÿ - Ошибка выполнения
это ошибка самого VBA, а не ошибка IE

конечно если страница не содержит кода на VBScript!
Неизвестный
20.03.2010, 12:37
общий
Patriotix-N:
Да я вижу хоть какие-нибудь признаки признаки того, что нужная мне страница
вверху страницы на русском языке написано слово, какое не помню, оно никакого значения не имеет, уж поверьте, это то слово если бы страница открылась просто браузером IE
По поводу изменения кодировки - установлена правильная кодировка, а то иначе как бы при помощи ВБА открылась плохо а напрямую хорошо
Также посмотрите последний ответ Vasiliy83, Бакалавр
Неизвестный
20.03.2010, 12:38
общий
Vasiliy83:
И как эту ошибку исправить??
Неизвестный
20.03.2010, 12:49
общий
Ципихович Эндрю:
кстати, код выполняется из VBA или VBScript?
Неизвестный
20.03.2010, 13:06
общий
Vasiliy83:
код выполняется из VBA
Неизвестный
21.03.2010, 08:46
общий
Ципихович Эндрю:
представьте пожалуйста и тут копию страницы, чтобы все можно было увидеть воочию, а не гадать
Неизвестный
21.03.2010, 08:56
общий
Vasiliy83:
Хорошо, завтра, то есть в понедельник
Неизвестный
22.03.2010, 17:00
общий
Vasiliy83:
Файл Dve_stranicy_otkryto_IE_i_VBA.rar успешно загружен.
Ссылка для скачивания
https://rfpro.ru/upload/1933
без пароля
Неизвестный
23.03.2010, 08:57
общий
Ципихович Эндрю:
тут все предельно ясно - ошибка появляется при выполнении скриптов самой страницы, если быть более точным, то судя по
statdolg.asp, line 27

ошибка происходит при выполнении 27 строки кода страницы http://10.196.192.12/statdolg.asp
прошу предоставить эту страницу, чтобы можно было самостоятельно смоделировать ситуацию, при которой возникает Ваша проблема.
Неизвестный
23.03.2010, 11:03
общий
Vasiliy83:
Я вроде представил страницу, если не правильно представил подскажите как это сделать, лучше пошагово
Неизвестный
23.03.2010, 12:10
общий
Ципихович Эндрю:
все верно, но страница, с которой Вы работаете - динамическая, и для того, чтобы сохранить ее целиком, необходимо открыть ее без аргументов
откройте в IE http://10.196.192.12/statdolg.asp и после сохраните ее в формате htm (страница полностью) через меню Файл - Сохранить как...
Неизвестный
23.03.2010, 16:24
общий
Vasiliy83:
Так я так и делал, сохранить как, после чего сохранается файл и папка, файл прислал а папку нет, нужен файл и папка?
Неизвестный
23.03.2010, 20:10
общий
Ципихович Эндрю:
да, пришлите, пожалуйста, все одним архивом
Неизвестный
23.03.2010, 21:34
общий
Vasiliy83:
Ошибка появляется не всегда, когда вопрос писал была, сегодня не было появится пришлю
Неизвестный
12.04.2010, 20:03
общий
Vasiliy83:
Видимо ошибка появляется по понедельникам
Вот настал тот час, когда произошла ошибка, я уже про неё стал забывать
Файл - страница с ВЭБ «Греция ближе» по ссылке https://rfpro.ru/upload/2112

При сохранении страницы через сохранить как папка не сохранялась, как мне поясняли из за того что страница не имеет в своём теле ничего, что и есть на самом деле
html код:

<html>
<head>
<title>Текущая статистика 12.04.2010</title>

</head>
<center><H1>Долги по задачам<BR></h1></center><a href='?SeltctedFile='>Список форм</a>
<font face="Arial" size=2>
<p>Îøèáêà âûïîëíåíèÿ Microsoft VBScript</font> <font face="Arial Cyr" size=2>ошибка '800a0035'</font>
<p>
<font face="Arial" size=2>Ôàéë íå íàéäåí</font>
<p>
<font face="Arial" size=2>/statdolg.asp</font><font face="Arial" size=2>, line 71</font>





Форма ответа