Do While ie.Busy
DoEvents
Loop
MsgBox "Загрузились!"
Clipboard.SetText ie.document.form(\forms).NAME_OF_TEXTBOX.value
Set Image.Picture = LoadPicture("Path")
On Local Error Resume Next
For nI = 0 to ie.Document.All().length - 1
If ie.Document.All(nI).name = "AccountID" Then
ie.Document.All(nI).value = "Test"
Exit For
End If
Next nI
Сейчас этот форум просматривают: AhrefsBot и гости: 193