Вызвать событие InternetExplorer |
[/SRC]
Dim ie As Object
Dim el As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate (CurrentProject.Path & "/CADmatic 4.1.html")
varReturn = SysCmd(acSysCmdClearStatus)
Do Until ie.readyState = 4: DoEvents: Loop
'Пытаюсь вызвать событие Click - ошибка: Run-time Error '424'
'Это не кнопка а картинка (может у нее нет события Click)
ie.Document.getElementById("ctl00$cphBody$btnPrgHistory").Click
Set el = Nothing
Set ie = Nothing
[SRC vba]
http://www.sql.ru/forum/1171757/vyzvat-sobytie-internetexplorer
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |