Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/excel и javascript - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
excel и javascript
Михаил1 Дата: Пятница, 28.09.2012, 21:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Привет всем.
Есть файл Excel, на листе которого расположен элемент ActiveX - WebBrowser, который при открытии файла excel и разрешении макросов загружает web страницу с расчетом. В расчете, по видимому, участвует javascript, при выполнении которого excel выдает следующее сообщение: «На этой странице произошла ошибка скрипта» Продолжить? Нажимаем да, и программа срабатывает. Вопрос – можно как то убрать это сообщение?
Спасибо заранее
К сообщению приложен файл: akkum_gvs.xls (49.0 Kb)
 
Ответить
СообщениеПривет всем.
Есть файл Excel, на листе которого расположен элемент ActiveX - WebBrowser, который при открытии файла excel и разрешении макросов загружает web страницу с расчетом. В расчете, по видимому, участвует javascript, при выполнении которого excel выдает следующее сообщение: «На этой странице произошла ошибка скрипта» Продолжить? Нажимаем да, и программа срабатывает. Вопрос – можно как то убрать это сообщение?
Спасибо заранее

Автор - Михаил1
Дата добавления - 28.09.2012 в 21:40
Gustav Дата: Пятница, 28.09.2012, 22:10 | Сообщение № 2
Группа: Админы
Ранг: Участник клуба
Сообщений: 2770
Репутация: 1140 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Вообще программно это сообщение давится таким оператором:

[vba]
Code
WebBrowser1.Silent = True
[/vba]

Но у меня что-то это сообщение не воспроизвелось и всё нормально сразу отобразилось... В общем, у себя вот так сделайте:

[vba]
Code
Private Sub Workbook_Open()
     Лист1.WebBrowser1.Silent = True
     Лист1.WebBrowser1.Navigate ("http://www.slpl.ru/excel/raschet_akkum_tepla_vk/raschet_akkum_tepla_vk.htm")
End Sub
[/vba]
и должно быть нормально.


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Пятница, 28.09.2012, 22:17
 
Ответить
СообщениеВообще программно это сообщение давится таким оператором:

[vba]
Code
WebBrowser1.Silent = True
[/vba]

Но у меня что-то это сообщение не воспроизвелось и всё нормально сразу отобразилось... В общем, у себя вот так сделайте:

[vba]
Code
Private Sub Workbook_Open()
     Лист1.WebBrowser1.Silent = True
     Лист1.WebBrowser1.Navigate ("http://www.slpl.ru/excel/raschet_akkum_tepla_vk/raschet_akkum_tepla_vk.htm")
End Sub
[/vba]
и должно быть нормально.

Автор - Gustav
Дата добавления - 28.09.2012 в 22:10
Михаил1 Дата: Пятница, 28.09.2012, 22:16 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Gustav СПАСИБО! Все получилось.
 
Ответить
СообщениеGustav СПАСИБО! Все получилось.

Автор - Михаил1
Дата добавления - 28.09.2012 в 22:16
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!