Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как открыть домашнюю страницу IE при помощи ВБА  (Прочитано 10321 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« : 04-08-2010 12:43 » 

Каков скрипт?
Записан
baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #1 : 04-08-2010 12:51 » 

Код: (Text)
Sub Macro1()
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
End Sub
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 04-08-2010 12:52 » 

что такое домашняя страница?
просто запустить  ИЕ?

Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #3 : 04-08-2010 12:52 » 

Вот еще пример, но уже для более серьезных операций:
http://vba-corner.livejournal.com/4623.html
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #4 : 04-08-2010 13:08 » 

Я так понимаю Вы поспешили, а полный код, такой?
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Do While IE.ReadyState <> 4 'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState
Loop
DoEvents
IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
Просто сейчас дома не могу проверить??
Записан
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #5 : 04-08-2010 14:42 » 

Вот как:
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.GoHome 'открывает указанную в кавычках страницу
Do While IE.ReadyState <> 4 'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState
Loop
DoEvents
IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines