powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + IE
2 сообщений из 2, страница 1 из 1
VBA + IE
    #35996769
Фотография crystalreports
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день.
Задача:Вызвать IE из vba.Например вызываем форму в ней открывается браузер и в нем определенный url.
Библиотеку SHDocVw.dll (Microsoft.internet.control) я добавил.
Подскажите пожалуйста как реализовать данную задачу??
...
Рейтинг: 0 / 0
VBA + IE
    #35996811
Фотография crystalreports
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ответ найден.
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
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + IE
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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