Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + IE / 2 сообщений из 2, страница 1 из 1
20.05.2009, 14:53
    #35996769
crystalreports
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA + IE
Добрый день.
Задача:Вызвать IE из vba.Например вызываем форму в ней открывается браузер и в нем определенный url.
Библиотеку SHDocVw.dll (Microsoft.internet.control) я добавил.
Подскажите пожалуйста как реализовать данную задачу??
...
Рейтинг: 0 / 0
20.05.2009, 15:10
    #35996811
crystalreports
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA + IE
Ответ найден.
Public Sub X()
Dim objIE As SHDocVw.InternetExplorer
'Dim HTMLDocument As MSHTML.IHTMLDocument2
Dim appShell As SHDocVw.ShellWindows
Dim appWindow As SHDocVw.InternetExplorer

Set objIE = New SHDocVw.InternetExplorer

objIE.Visible = True
objIE.navigate "www.ya.ru"

Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

'Set HTMLDocument = objIE.document
'Debug.Print HTMLDocument.body.innerText

Set appShell = New SHDocVw.ShellWindows

For Each appWindow In appShell
If appWindow.LocationURL Like "*www.ya.ru*" Then
Debug.Print appWindow.Application
Debug.Print appWindow.LocationName
Exit For
End If
Next appWindow
End Sub
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + IE / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]