
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.05.2009, 14:53
|
|||
|---|---|---|---|
|
|||
VBA + IE |
|||
|
#18+
Добрый день. Задача:Вызвать IE из vba.Например вызываем форму в ней открывается браузер и в нем определенный url. Библиотеку SHDocVw.dll (Microsoft.internet.control) я добавил. Подскажите пожалуйста как реализовать данную задачу?? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.05.2009, 15:10
|
|||
|---|---|---|---|
|
|||
VBA + IE |
|||
|
#18+
Ответ найден. 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2160974]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
56ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 374ms |

| 0 / 0 |
