Konst_One писал(а):у контрола WebBrowser есть ряд полезных событий, в том числе DocumentComplete
146 WEB.Navigate FileName
DoEvents
148 Do While (WEB.ReadyState <> READYSTATE_COMPLETE)
150 If VBA.Timer >= (tmr + Me.TimeOut) Then
151 WEB.Stop
152 ErrNumber = errWaitTimeout
154 mMain.LogInfo "Print error: " & errWaitTimeout & " Navigate wait timeout."
Exit Function
End If
156 DoEvents
Loop
brows.Navigate "адрес"
While brows.Document Is Nothing
DoEvents
Wend
'страница загружена
Сейчас этот форум просматривают: Yandex-бот и гости: 20