


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
'страница загруженаСейчас этот форум просматривают: Google-бот и гости: 19