Guest User

Untitled

a guest
Nov 23rd, 2017
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. On Error GoTo Erro
  2. namePdf = doc3.Document.all.tags("font")(8).innerText
  3.  
  4. For Each exibirDoc In doc2.Document.all.tags("img")
  5.  
  6. ver = exibirDoc.src
  7.  
  8. If ver = "https://pan.interfile.com.br/imagens/FileSearch.gif" Then
  9. exibirDoc.Click
  10. Exit For
  11. End If
  12.  
  13. Next
Add Comment
Please, Sign In to add comment